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

抱歉，没有实际调试代码

DIR函数只返回文件名，不包含完整路径

所以请重新修改为以下代码：

Sub abc()

Dim App, WrdDoc, MyPath, MyFile, BM, Str

Mypath = "文件实际路径" '请修改实际储存路径！

Set App = CreateObject("WordApplication") '用Set关键字创建Word应用成序对象！

MyFile = Dir(Mypath & "\doc") ' 获得第一个WORD文档

do while MyFile <> "" ' 遍历Mypath下面的所有WORD文档

AppVisible = True

Set WrdDoc = AppDocumentsOpen(Mypath & "\" & MyFile) '打开这个Word文件！

for each BM in WrdDocBookmarks ' 遍历文档中的所有书签

Str = BMRange ' 读取书签内容

next BM

WrdDocClose ' 关闭文件

MyFile = Dir ' 下一个WORD文档

Loop

Set App = Nothing

End Sub

1、点击开始在搜索程序和文件中输入“regedit”打开注册表，然后展开到“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer”下，在右键选择新建一个“DWORD32位”，重命名为“MultipleInvokePromptMinimum”，然后双击它，把它的值修改为你想要同时打开的文件数就可以了。

2、此时在系统里就可以一次性选择多个文档一次单击右键选择打印了，如图所示：

3、设置系统默认打印设备、在开始菜单右边点击设备和打印机，选择要批量打印文档的默认打印设备并设为默认打印机。

4、如需要批量打印双面（A3、A4）则需设置打印机首选项，在里面设置你需要打印的纸张大小及双面打印设置。

5、设置将多个文档同时打印多份、先将文档排序方式设置成以名称排序；然后我们将要打印多份的文档选择后按Ctrl+C的方式复制，再以Ctrl+V的方式粘贴。

下面介绍一下使用“邮件合并法”批量导入excel数据到word表格中的方法，

1 打开需要进行邮件合并的word文档，浏览要插入的数据。

2 在菜单栏----邮件菜单----开始邮件合并----邮件合并分步向导，在文档的左边出现“邮件合并”对话栏。

3 选择文档类型为“信函”（将信函发送给一组人，可以设置信函的格式），单击“下一步”继续。

4 点击下一步（正在启动文档）---选择开始文档，就是需要设置信函，选中“使用当前文档”，单击“下一步”

5 点击下一步（选取收件人）---选择收件人，勾中“使用现在列表”，点击“浏览”（使用来自某文件或数据库的姓名和地址。），选择数据源，找到需要添加的数据源地址---选择表格，的名称SHEET1$,和选中数据首行包含列标题。并点击确定按钮，---选择“邮件合并收件人”把需要的收件人列表勾中，在此不可以调整收件人列表，比如：排序，筛选，查找重复收件人，查找收件人，验证地址---点击确定。

6 回到“邮件合并”栏，选择下一步：撰写信函，选中“其他项目”---出现“插入合并域”，根据需要合并的邮件内容，选择域的内容。比如:姓名栏后面添加姓名域，性别栏添加性别域等等。插入完后，点击关闭。单击“下一步”预览信函---可以就看到第一条记录。

7 点击“下一步”完成邮件合并---完成合并，已经可以使用“邮件合并”生成信函----点击“编辑单个信函”---选择合并全部记录。左边可以看到，记录的全部内容。此时就可以打印，需要的内容。

8 邮件合并完成。注：如果要修改，就可以点击“上一步”来实现修改，其他 *** 作和上述相同。

可以用Word中的“邮件合并”功能轻松完成。

以Office 2003为例，“邮件合并”具体 *** 作如下：

在Excel中“编号、姓名……”数据表并保存。

在Word中制作好“合同”文档并保存。

在合同文档页面进行下述 *** 作即可。

执行“工具/信函与邮件/邮件合并”命令，打开“邮件合并”对话框（在窗口右侧）。

1选中“信函”单击“下一步”；

2选中“使用当前文档”单击“下一步”；

3选中“使用现有列表”单击“浏览”，找到数据表后单击“打开”，单击“下一步”；

4将光标定位于要合并数据的位置，单击“其他项目”，把“插入合并域”中的项目选定（如编号）后单击“插入/关闭”；

5重复第5步，完成所有合并域的插入后，单击“下一步“；

6单击“预览信函”中的按钮即可浏览合并效果，再单击“下一步：完成合并”就可以进行打印；

7打印可以全部打印也可以指定打印，根据实际情况在“合并到打印机”进行设置。

如果在Office 2000中,合并过程大同小异。试试看，在实际 *** 作中可以调节。

方法如下

1将所要拷贝的文件放在同一个文件夹中。本文以桌面上的音乐文件夹为例介绍。

2 新建一个文本文件，在文本文件中填入以下内容：for /r C:\Users\Administrator\Desktop %%a in (mp4) do echo %%~na >>生成文件txt，请将其中的“C:\Users\Administrator\Desktop”替换成您步骤1中建立的文件夹；mp4为您需要整理的文件类型，请按照实际要求替换，生成文件txt为最终生成的文件名称。

3将文本文件另存为批处理文件，文件类型选择所有文件，并填写bat扩展名。将此文件保存在步骤1所建立的文件下，双击运行，系统会生成一个名为“生成文件”的TXT文档。

4 用EXCEL打开此TXT文件即可。

以上就是关于如何用VBA宏程序将excel中的内容批量复制到word文档中去全部的内容，包括:如何用VBA宏程序将excel中的内容批量复制到word文档中去、如何提取excel里的数据到word里批量打印、怎么把多个excel数量批量导入word中等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！