当前位置：文江博客话题详情

使用 MS Word 宏搜索文本文件

发布于 2024-07-17 17:10:15 字数 301 浏览 3 评论 0原文

感谢您对我的上一个问题的帮助。根据建议，我能够读入 Word 文档中的文本行。然后我能够继续解析该行以提取文件名。

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

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

送君千里 2024-07-24 17:10:16

如果您是从 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

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

编辑：我发现我部分误解了你的问题。我的答案仅涵盖如何在文本文件中搜索特定字符串，而不是如何在文件系统中搜索文件列表。

If you are doing it from Word, the easiest way would be to open the text file in Word and use Word's search functionality. That way you don't need to implement your own search functionality.

Just record a macro of this action: Open a text file in Word and search for a specific string (Ctrl-F). The result looks something like this:

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

You can then edit the recorded macro to suit your needs.

Edit: I see that I partly misunderstood your question. My answer only covers how to search a text file for a specific string, not how to search the file system for a list of files.

回复收藏 0 原文