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

我正在尝试查看是否可以在第9页和第15页之间的Microsoft Word文档的每个单元格中find值。当我到达想要设置search范围的部分时，Set Doc = wrdApp.Selection .Range给我的错误“types不匹配”

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

word文档不能复制到excel中 – 这是一个长期的探索。 word文档必须保持其格式，每个页面都有一些奇怪的标题，并合并格式化等。

谢谢，斯宾塞

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 

结束小组

Answer 1

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

基于信息稀缺的数量…我可能只是复制Word数据表到Excel中，只需在第四列上运行VLOOKUP或INDEX MATCH组合。