使用MS Word宏搜索文本文件

Question

感谢您对我的previous question的帮助。有了这个建议，我可以从Word文档的文本行中读取。然后，我可以继续解析该行以提取文件名。

我现在正在尝试使用该文件名启动文件搜索。 有没有人有任何关于如何使用MS Word宏来启动文本文件搜索的建议？ 我需要找到该文件，将其打开，然后在文本文件中搜索。

任何帮助将不胜感激。 谢谢！

Answer 1

查找，使用Application.FileSearch：

FileSearch Object

阅读，使用FileSystemObject

搜索应该是InStr函数的一个简单的事情，从那里。

Answer 2

如果你是用Word做的，最简单的方法是在Word中打开文本文件并使用Word的搜索功能。这样你就不需要实现你自己的搜索功能。

只需记录此操作的宏：在Word中打开文本文件并搜索特定的字符串（Ctrl-F）。结果看起来像这样：

Sub Macro1() 

    Documents.Open FileName:="YourFile.txt", ConfirmConversions:=False, _ 
     ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ 
     PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ 
     WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _ 
     Encoding:=1252 

    Selection.Find.ClearFormatting 

    With Selection.Find 
     .Text = "YourSearchText" 
     .Replacement.Text = "" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchWildcards = False 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False 
    End With 

    Selection.Find.Execute 

    If Not Find Is Nothing Then 
     ' your action here ' 
    End If 
End Sub 

然后，您可以编辑录制的宏以满足您的需求。

编辑：我看到我部分误解了你的问题。我的答案只介绍如何搜索特定字符串的文本文件，而不涉及如何在文件系统中搜索文件列表。