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

Question

从以下代码中TCN.docx文件已成功打开

Application.ScreenUpdating = False

而不是

Visible:= False

Sub workonTCN()
Dim odoc As Document
Dim path As String
path = "C:UsersBilalDesktopTCN.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（粘贴的最后一行除外）

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