我有代码可以在这些“Word”之间逐字搜索.docx文件中的“word”,并将其复制到Excel文件的活动表中的特定单元格中: Sub find1()
Dim Word As Object
Dim WordDoc As Object
Dim r, f As Boolean, fO As Long
Set Word = CreateObject('Word.Application')
Set WordDoc = Word.Documents.Open(Filename:=Application.ThisWorkbook.path & '\AD.docx')
Set r = WordDoc.Range
Do
With r.Find
.ClearFormatting
.Text = 'discipline *concerns'
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
If .Execute Then
If f Then
If r.Start = fO Then
Exit Do
End If
Else
fO = r.Start
f = True
End If
WordDoc.Range(r.Start + 11, r.End - 9).Copy
Range('C4').Select
ActiveSheet.Paste
Set r = WordDoc.Range(r.End, r.End)
Else
Exit Do
End If
End With
Loop
End Sub 如何修改此宏以读取第一个工作表(Sheet 1)的列“B”,并且一旦宏找到包含该内容的第一个单元格,就开始在Excel文件所在的同一个文件夹中搜索与此单元格中的文本同名的.docx文件。如果它找到这样的文件,它就会使用它(我的代码描述的那样),但不是在活动工作表(Sheet 1)上,而是在下一个工作表(Sheet 2)上。 |
|
来自: Excel实用知识 > 《按单元格内容搜索文件并打开》