如下的方法请参考:段败
首先打开VB软件,在新建工程对话框中选择“标准exe”,点击打开按钮。
进入工程》》引用菜单。
在引用对话框中液燃孝找到MicroSoft Word 11.0 Object Library然后勾选,当然我这里是MicroSoft Word 14.0 Object Library,都无所谓。
在窗口中添加一个按钮,将文字改为“生成word”。
双击生成“生成word”按钮,进闹稿入代码编辑区,输入下列代码。
按F8,运行程序。点击“生成word”按钮,是不是跳出word了
先关掉刚才生成的word,然后再输入以下代码,然后运行程序。
Set mydoc = .Documents.Add(Template:=ThisWorkbook.Path&("\轮袜") &"销售报告.doc", Visible:=True)改猜桐友成:Set mydoc = .Documents.Add(Template:=ThisWorkbook.Path &"\" &"销售报告.doc", Visible:=True)
mydoc.SaveAs ThisWorkbook.Path&("\") &Model &".doc", wdFormatDocument
改成:mydoc.SaveAs ThisWorkbook.Path &"穗槐\" &Model &".doc", wdFormatDocument
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)