作者：乔山办公网日期：
返回目录：word文档
wordapp.ActiveDocument.ReadOnlyRecommended = True
Sub GenDocfromExcel()
'excel控制word,生成新文件，插入图片和文件名知，保存
'office 2003, VBA工具/引用中道要勾选Microsoft Word 11.0 Object Library
'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
'...
Range("A1:B13").Copy '复制当前内容
Dim WordApp As Word.Application '定义变量
Set WordApp = CreateObject("Word.Application") '生成WORD对象
WordApp.Documents.Add '新建回文件
WordApp.Selection.Paste '粘贴
fn$ = "D:\" & Range("b1") '生成文件名
WordApp.ActiveDocument.SaveAs fn$ '保存文件
WordApp.Quit '退出答
Set WordApp = Nothing '取消变量
End Sub
1、首先打开EXECL表格，然后在工作表中，点击菜单栏【开发工具】。
2、在其工具栏内，点击【visual basic】。
3、会进入zdVBA编辑界面！点击菜单专栏【插入】，在其下拉菜单中，选择【模块】。
4、会弹出模块编辑窗口，在模块窗口输入以下代码。
5、然后点属按键盘上的F8，一步步运行编写的代码。
6、最后看到“销售登记表0”的word文档就在f盘保存成功了。
简单的复制粘贴即可。