录制宏,把表格里的数复制到word里? 如何用VBA宏程序将excel中的内容批量复制到word文档...

作者&投稿:谭思 (若有异议请与网页底部的电邮联系)
方法一、启动WORD,新建一个空白文档,执行“插入——〉文件”命令,打开“插入文件”对话框,定位到需要解除保护的文档所在的文件夹,选中相应文档,单击“插入”按钮,将加密保护的文档插入到新文档中,文档保护会被自动撤销。
方法2:文件另存法
打开保护的文档,执行“文件——〉另存为”命令,打开“另存为”对话框,将“文件类型”选定为“WORD97—2003&6.0/95—RTF(*.doc)”,然后取名保存,关闭该文档,重新打开一下,执行“工具——〉取消文档保护”命令即可。或者将文件类型另存为HTML,然后将其中的内容,复制粘贴到新建文档中。
方法3:写字板法
启动写字板,打开保护的WORD文档,另存为WORD文档,同时可以取消对文档的保护。但此方法可能会使文档中的图片等要素丢失。
方法4:用VBA宏程序将excel中的内容批量复制到word文档
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

选中要导入的内容复制粘贴到word就是了,或者保存为另一张sheet,再到word里面插入就OK

word录制宏,复制粘贴固定内容??~

  你这种情况可以使用“自动更正”功能,如图。以word2013做示范。

点击自动更正选项

替换框输入你想要的快捷键,数字字母汉字都可以,比如我输入的为0,替换为想要经常输入的东西,比如我输入的是“想问下,在word里,需要复制粘贴固定内容很多遍,想做个录制宏并指定快捷键。比如要复制粘贴的内容是。需要怎么弄呀。需要详细点的。谢谢。”,选择的是纯文本。点击添加,确定,就可以了。
以后你要输入这段话的时候,只要输入0并回车就可以了。

先录制宏,手动复制一编,然后修改一下,让它循环5次。

怎样将Excel数据批量导入到word表格中
答:1、首先打开excel文件,随意复制文件内的一块区域。2、之后打开word文档, 选中粘贴,然后点击选择性粘贴。3、之后会自动识别复制区域的原表格文件,选中后,点击下方的确定。4、之后表格即可粘贴过来。5、之后点击粘贴格式,然后选择匹配到目标区域表格样式。6、之后即可成功将excel数据导入到word表格中。

...word表格里如何把excel表格中的数据导入到word中不同的表格中_百度...
答:1. 打开Excel文件,选择需要导入的数据区域。2. 复制选中的数据区域。3. 打开一个Word文档,创建一个新的表格,并将光标放置在需要粘贴数据的位置。4. 粘贴复制的数据,并选择“保留源格式”选项,以保持数据的格式。5. 重复上述步骤,将其他Excel表格数据导入到其他Word表格中。如果需要将大量Excel表格...

VBA 把Excel的内容复制到Word的代码?
答:Dim MyWord As Object '定义变量 Dim MyArray '定义数组变量 Dim MyString as String MyArray = MyExcel.Sheets("工作表名称").Range("A2:E2").Value '需要从EXCEL中导出的内容放到数组中,因为操作数组比直接调用RANGE要快得多。Set MyWord = CreateObject("Word.Application") '生成WORD对象 MyS...

我想用word里面的宏(VBA)来实现,将EXCEL表格里指定的数据粘到当前word中...
答:Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixedWith ThisDocument.Tables(1)ThisDocument.Tables(1).Cell(1, 1).Range = my_Object.Worksheets(1).Cells(1, 1).Valuemy_Object.CloseEnd Sub ...

复制表格里的内容粘贴到另一个文档里替换标题和内容还有文档名称,怎么...
答:把Excel工作簿复制到Word文档所在文件夹下,打开后插入模块,粘贴以下代码,点击运行 Sub test1()Application.ScreenUpdating = False Dim wdapp As Word.Application, wdoc As Document, r&, myp$, myf$, i&, a$, b$, c Set wdapp = New Word.Application myp = ThisWorkbook.Path & "\"m...

如何从excel表格中的数字复制粘贴到word的表格中
答:从excel表格中的数字复制粘贴到word的表格中方法:1、需要EXCEL中表格格式,直接粘帖。2、不需要表格格式,打开一个记事本,把数据粘帖到记事本中,再全选记事本中文本,复制,粘帖带word中。

excel如何利用宏把表格内的部分数据复制到另一张表格里?
答:Sub CopyToFile()Dim WB1 As Workbook, WB2 As Workbook Application.ScreenUpdating = False Set WB1 = ActiveWorkbook Set WB2 = Application.Workbooks.Open("C:\我的文档\测试.xlsx")WB1.ActiveSheet.Range("A1:C3").Copy WB2.ActiveSheet.Range("A2:C4")WB2.Close True Application....

Excel表格内容自动填充到word中的指定位置
答:一、如下图,这里把Excel和Word同时打开,并复制Excel中的部分单元格。二、进入Word窗口,点击“开始菜单”下的“粘贴”—“选择性粘贴”。三、打开选择性粘贴窗口后,点击“粘贴链接”,右边选择“带格式文本(RTF)”,点击“确定”。四、这时即可把Excel中选中的单元格以链接的形式粘贴入Word中。五、...

怎么将excel表格里的数据自动同步到Word文档里
答:一个excel表格《123456789》。1、复制单元格内容。2、打开word,粘贴。3、粘贴完成后,不要有任何动作。先点击“粘贴选项”右侧倒三角。选择“保留源格式并链接到Excel”。3、下边来验证。更改excel表格内容。4、看看word文档内容。

excel如何用宏自动抓取数据?
答:这个宏的作用是:把当前文件夹下每一个excel文件的每一行(共8行)复制到总表的每一个sheet工作表中去,即把一个文件里的那1张表的8行复制转换成另一个文件的8张表里的8行,主要用于汇总工作。如何将excel表里的数据提取到word文档里的解决方法如下:1、复制法。即将原来的数据直接复制后,在word...