求助写入word不能在子程序中执行问题

wxffze

  

Word程序1.创建 ()
Word程序1.激活 ()
Word程序1.显示 ＝ 假
Word程序1.窗口标题 ＝ “新宋体”
Word文档集1.置程序 (Word程序1, 真)
Word文档集1.字体名 ＝ “微软雅黑 Light”
Word文档集1.字体大小 ＝ 18
Word文档集1.字体加粗 ＝ 1
Word文档集1.对齐方式 ＝ 1
Word文档集1.输入文本 (0, “1111111”)
Word文档集1.输入文本 (1, “”)
Word文档集1.输入文本 (1, “”)
Word文档集1.字体加粗 ＝ 0
Word文档集1.字体大小 ＝ 13
Word文档集1.对齐方式 ＝ 0
Word文档集1.字体名 ＝ “新宋体”
Word文档集1.输入文本 (0, “2222222222”)
Word文档集1.保存 (取运行目录 () ＋ “\1.doc”)
Word文档集1.关闭 ()
Word程序1.退出 ()

i支持库列表	支持库注释
eWord2000	WORD2000支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eWord2000<br /> .支持库 spec<br /> <br />         Word程序1.创建 ()<br />         Word程序1.激活 ()<br /> <br />         Word程序1.显示 ＝ 假<br />         Word程序1.窗口标题 ＝ “新宋体”<br />         Word文档集1.置程序 (Word程序1, 真)<br />         Word文档集1.字体名 ＝ “微软雅黑 Light”<br />         Word文档集1.字体大小 ＝ 18<br />         Word文档集1.字体加粗 ＝ 1<br />         Word文档集1.对齐方式 ＝ 1<br />         Word文档集1.输入文本 (0, “1111111”)<br /> <br />         Word文档集1.输入文本 (1, “”)<br />         Word文档集1.输入文本 (1, “”)<br />         Word文档集1.字体加粗 ＝ 0<br />         Word文档集1.字体大小 ＝ 13<br />         Word文档集1.对齐方式 ＝ 0<br />         Word文档集1.字体名 ＝ “新宋体”<br />         Word文档集1.输入文本 (0, “2222222222”)<br />         Word文档集1.保存 (取运行目录 () ＋ “\1.doc”)<br />         Word文档集1.关闭 ()<br />         Word程序1.退出 ()

单独建一个按钮时，点击可以执行，完全正常！ 但是把这段代码放入另一个子程序中（前面是其他代码，比如生成文字，然后写入word中）就不能执行，求助这是为什么？怎么解决？

观音

如果在线程内 需要在调用前加入  线程_初始化com库()  执行完后调用 线程_取消com库

wxffze

完美解决。。。