哎呦丶这逼满分
如何用VBA宏程序将excel中的内容批量复制到word文档中去
展开全部 这么简单的问题给你们讲的这么复杂，真是的... 在excel复制，然后到WORD里，这里注意，首先用鼠标把已存在的文件选起来（就是和复制一样的），再粘贴，它就会只粘贴内容到对应的格子里了，有什么不明白可以消息问我这个方法绝对正确，关键是鼠标选区域那不能错
怎样才能把Excel中的内容复制到Word中去,不要表格,要纯文本
展开全部要把Excel中的内容复制到Word中去，不要表格，要纯文本，以word2003和excel2003为例，具体步骤如下： 打开excel，全部选中表格的内容，右击鼠标，选中“复制”；打开word文档，在空白页面上右击鼠标，选中“粘贴”；在word上粘贴了表格之后，在表格的右下角会看到一个“粘贴选项”的按钮；点击“粘贴选项”，在下拉列表里选择“仅保留文本”；然后就可以去掉表格，仅保留纯文本了。
...
word表格调整问题把excel2007中的表格复制到word中？
试试下面的代码：Sub 宏1()Dim wordapp As ObjectDim mydocDim mypath$, myname$Dim wdRng As ObjectDim pos1%, pos2% '定义找到的字段的首位位置Application.DisplayAlerts = FalseSet wordapp = CreateObject(＂word.application＂)mypath = ThisWorkbook.Path & ＂＂myname = Dir(mypath & ＂*.doc*＂)Set mydoc = wordapp.Documents.Open(mypath & myname)Set wdRng = mydoc.RangewdRng.Find.Execute （＂（一）＂）pos1 = wdRng.StartSet wdRng = mydoc.RangewdRng.Find.Execute （＂五、＂）pos2 = wdRng.Startmydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容mydoc.Close Falsewordapp.QuitWorksheets(＂Sheet2＂).SelectRange(＂A1＂).SelectActiveSheet.PasteApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
转载请注明出处51数据库 » excel复制到word vba
