作者：乔山办公网日期：
返回目录：word文档
试试下面的代码7a64e59b9ee7ad94338：
Sub 宏1()
Dim wordapp As Object
Dim mydoc
Dim mypath$, myname$
Dim wdRng As Object
Dim pos1%, pos2% '定义找到的字段的首位位置
Application.DisplayAlerts = False
Set wordapp = CreateObject("word.application")
mypath = ThisWorkbook.Path & ""
myname = Dir(mypath & "*.doc*")
Set mydoc = wordapp.Documents.Open(mypath & myname)
Set wdRng = mydoc.Range
wdRng.Find.Execute ("（一）")
pos1 = wdRng.Start
Set wdRng = mydoc.Range
wdRng.Find.Execute ("五、")
pos2 = wdRng.Start
mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容
mydoc.Close False
wordapp.Quit
Worksheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Range("A1:A12").Select Selection.Copy'''''''''''''''''''''''''这个貌似不执知行啊 Range("C1:C12").Select ActiveSheet.Paste''''''''''''''''''这个也就不执行了道 Windows("1.doc").Activate''''''''''''''这个word含有表格，处于打开状态 Selection.HomeKey wdStory Selection.MoveDown Unit:=wdLine, Count:=11, Extend:=wdExtend Selection.paste''''''''''''''''''''这个不知道有没专有写错 上头这一段改成 Range("A1:A12").copy Windows("1.doc").Activate tables(1).cells(1,1).paste 这样属应该可以了。
可用CreateObject函数创百建对EXCEL的引用，然后度就可打开EXCEL工作簿，将表格中知的数据复制到WORD中，参道考代码如下版：
Set xlapp = CreateObject("excel.application")
With xlapp.Open("带路径的EXCEL文件名")
.Sheets(1).Range("A1:H8").Copy
'粘贴权到WORD指定位置
End With
xlapp.Quit上文件 ，明要求，定制产品。