三九宝宝网宝宝百科宝宝知识

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

12月25日 编辑 39baobao.com

[怎么在word文档超链接急呀]如果要链接到目录,请先将你的目录自动生成!! 1、选择你要超链接的词,如“返回目录”; 2、在选择好的词上右击,选择“超链接”; 3、如你的意思是要链接到本文档中的目录,如果你应选择...+阅读

抱歉,没有实际调试代码

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

以下为关联文档:

将excel表格转换成word文档1. 首先,用excel编辑好一个表格,然后点“文件”----“另存为web页”。web页就是网页文件,在“保存选项”处把“保存整个工作簿”调整成“选择:工作表”,把默认文件名“page.htm”...

怎么在excel表格中插入word文档工具:Excel2010 通过菜单栏的【插入】--【对象】功能来把word文档插入到excel电子表格中。 第1步:点击【插入】,然后点击【对象】 第2步:切换到【由文件创建】,然后点击【浏览】...

wps怎么把已做好的表格插入文档以WPS 2019版为例 1、打开需要复制的表格 2、选中表格,按住Ctrl+C 3、打开需要粘贴的文档,点击“开始”---&gt;“选择性粘贴” 4、在弹出的“选择性粘贴”中选择“粘贴链接...

怎样把wps的文档装换成excel1、文件格式的转换需要有工具协助, 可以通过搜索转换器在下载安装。在左侧工具栏中找到即将执行的操作, 然后单击第四列中的 WPS 文件, 将从属菜单中的文件转换为 Excel。 2、...

如何将网页上的内容编辑为word文档1、先在Word中打开一个空的文档,再把网页打开,用鼠标选中想要保存的内容,然后拖到任务栏上的Word图标上,稍等片刻待它的窗口打开时,在窗口中释放左键。这时会出现一个“粘贴选项...

学过VB和SQL的人有谁知道如何将SQL集中的数据导出为world文档Public Sub ExportToWord(RsData As ADODB.Recordset, FileNameSaveAs As String) Dim appWord 'WORD程序对象 Dim docWord 'WORD建立新文档对象 Dim tblWord '文档中的表格...

WPS文档保护技巧教你如何给文档加密会不会被他人偷窥?甚至恶意修改?所幸的是,WPS Office 2012 提供了多种安全保护方式来保证文档的安全。下面让我们一起来看看。 1、给文档加密 不想让别人看到的重要文档该怎么...

VBA用excel模块复制word的表格内容试试下面的代码: Sub 宏1() Dim wordapp As Object Dim mydoc Dim mypath$, myname$ Dim wdRng As Object Dim pos1%, pos2% '定义找到的字段的首位位置 Application.Display...

如何用vba代码向word文档中插入表格试试下面的代码,在网上找的 sub 宏1() dim wordapp as object dim mydoc dim mypath$, myname$ dim wdrng as object dim pos1%, pos2% '定义找到的字段的首位位置 applicati...

推荐阅读
图文推荐