如何用VBA宏程序将excel中的内容批量复制到word文档中去

Question

如题所述

Answer 1

抱歉，没有实际调试代码
DIR函数只返回文件名，不包含完整路径
所以请重新修改为以下代码：
Sub abc()
Dim App, WrdDoc, MyPath, MyFile, BM, Str
Mypath = "文件实际路径" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
MyFile = Dir(Mypath & "\*.doc") ' 获得第一个WORD文档
do while MyFile <> "" ' 遍历Mypath下面的所有WORD文档
App.Visible = True
Set WrdDoc = App.Documents.Open(Mypath & "\" & MyFile) '打开这个Word文件！
for each BM in WrdDoc.Bookmarks ' 遍历文档中的所有书签
Str = BM.Range ' 读取书签内容
next BM
WrdDoc.Close ' 关闭文件
MyFile = Dir ' 下一个WORD文档
Loop
Set App = Nothing
End Sub

Answer 2

找我 6 。，、9,，、59,822，、39