Question

我正在尝试查看是否可以在第9页和第15页之间的Microsoft Word文档中找到每个单元格中的值。当我到达我要设置搜索范围的部分时，Set Doc = wrdApp.Selection.Range给我错误＆＃34; Type Mismatch＆＃34;

如果有人能够帮助我，我将永远感恩。这最终会为我节省数周的工作量。

word文档无法复制到excel中 - 这是一个漫长的探索。单词文档必须保持其格式，并且每个页面上的某些奇怪的标题内置有合并格式化等。

谢谢，斯潘塞

Sub TFUpdate()
Dim Wd, FinalRow, TableRow
Dim wrdApp As Object
Dim DoC As Range

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Users\kimbersr\Desktop\Word Project\TF1.doc")
wrdApp.Visible = True

ThisWorkbook.Worksheets("sheet2").Activate

FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
TableRow = 1
x = 1

For i = 1 To FinalRow
    part = Cells(i, 1).Value


wrdApp.Selection.GoTo What:=1, Which:=1, Count:=9
Set DoC = wrdApp.Selection.Range
wrdApp.Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=14
wrdApp.DoC.End = wrdApp.Selection.Bookmarks("\Page").Range.End

wrdApp.DoC.Find.Execute FindText:="14-581930L", Forward:=True
If wrdApp.DoC.Find.Found = True Then

wrdApp.DoC.Select

End If

Next i

End Sub

Answer 1

关于Excel和Word文件的格式/数据的信息太少。

基于大量的信息...我可能只是简单地将Word数据表复制到Excel，只需在第4列上运行VLOOKUP或INDEX MATCH组合。

对于Excel中的每个单元格，请在Microsoft Word中查找

1 个答案: