如何在不显示文档的情况下打开word文档并在其中查找文本？

Question

从以下代码TCN.docx文件已成功使用

打开

Application.ScreenUpdating = False

而不是

Visible:= False

Sub workonTCN()
Dim odoc As Document
Dim path As String
path = "C:\Users\Bilal\Desktop\TCN.docx"

     Set odoc = Documents.Open(filename:=path)

     Application.ScreenUpdating = False

     Selection.Find.ClearFormatting
     Selection.Find.Font.Bold = True
     With Selection.Find
        .Text = "TI"
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
    End With
    Selection.Find.Execute
If Selection.Find.Found = True Then
    Selection.MoveRight Unit:=wdCell
    Selection.COPY
Else
End If
    Windows("ROUGH").Activate
      odoc.Close wdDoNotSaveChanges
      Selection.PasteAndFormat (wdPasteDefault)
End sub

如何应用范围来查找没有Selection.Find的文字？

Answer 1

使用Range.Find而不是Selection.Find：

1. 在Sub：Dim rng As Word.Range
的开头声明Range的对象变量
2. 将文档主要故事的范围分配给它：Set rng = odoc.Content
3. 在代码的其余部分替换rng Selection（执行粘贴的最后一行除外）

请注意，您可以删除用于激活要粘贴信息的窗口的行。