如何将word里的特定信息提取到excel里？

复制

提取WORD中特定内容制成来excel表格：
用宏命令。
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = ThisWorkbook.Path & "\aaa.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
App.Visible = True'根据实际情况修改是否自可见
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text ' 你要zhidao的第一个内容：第一行，第二列
StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text ' 你要的第一个内容：第二行，第二列
WrdDoc.Close ' 关闭文件
Set App = Nothing
Debug.Print StrA
Debug.Print StrB
End Sub
试了一下 下面的代码可以：
Public Sub lllkk()
Dim xlApp
Dim xlBook
Dim xlSheet
Dim docApp
Dim newDoc
Dim thisPath, thisName As String
FileDir = "C:\新建文件夹\1.xls"
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application") '判断Excel是否打开
If Err.Number <> 0 Then
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.Visible = True '设置EXCEL对象可见e69da5e887aae799bee5baa6e997aee7ad94332
End If
Err.Clear
Set xlBook = xlApp.Workbooks.Open(FileDir) '打开工件簿文件
xlBook.Visible = True
thisPath = ActiveWorkbook.Path & "\"
thisName = Range("a1")
Set xlSheet = xlBook.worksheets(1)
xlSheet.Range("A1:A12").Copy '''''''''''''''''''''''''这个貌似不执行啊

Windows("1.doc").Activate ''''''''''''''这个word含有表格，处于打开状态
Tables(1).Cell(1, 1).Select
Selection.HomeKey wdCell
Selection.MoveDown Unit:=wdLine, Count:=11, Extend:=wdExtend
Selection.Paste
xlApp.Quit
Set xlApp = Nothing
End Sub

还有问题可以再提

提取WORD中特定内容制成excel表格：
用宏命令。zd
Sub abc()
Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String
Mypath = ThisWorkbook.Path & "\aaa.doc" '请修改实际储存路径！
Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成版序对象！
App.Visible = True'根据实际情况修改是否可见
Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！
StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text ' 你要的第一个内容：第一行，第二列
StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text ' 你要的第一个内容：第二行，第二列
WrdDoc.Close ' 关闭权文件
Set App = Nothing
Debug.Print StrA
Debug.Print StrB
End Sub