如何创建关联MacroButton的Word VBA宏，实现跨设备无选中文本检索

修改后的VBA宏代码 #

替换原PROC宏或新建以下宏，实现直接读取文档第一行内容检索18号字体标题：

Sub SearchTitleFromFirstLine()
    Dim searchText As String
    ' 获取文档第一行文本并清理换行符、空格
    searchText = Trim(Replace(ActiveDocument.Paragraphs(1).Range.Text, vbCr, ""))
    
    ' 检查检索内容是否为空
    If searchText = "" Then
        MsgBox "请在文档第一行输入要检索的区县名称！", vbExclamation
        Exit Sub
    End If
    
    ' 配置查找规则：仅匹配18号字体的标题
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 18
    With Selection.Find
        .Text = searchText
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = True ' 启用整词匹配，避免区县名部分匹配（可根据需求改为False）
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    ' 执行查找并反馈结果
    If Not Selection.Find.Execute Then
        MsgBox "未找到包含「" & searchText & "」的标题！", vbInformation
    End If
End Sub

代码说明 #

• 自动读取文档第一行内容，无需手动选中文本，彻底解决MacroButton双击丢失选中内容的问题
• 自动清理文本中的换行符和多余空格，避免无效检索
• 增加空值检查和未找到提示，提升使用体验
• 启用整词匹配（可按需关闭），确保检索结果精准对应区县名

如何添加MacroButton到文档 #

1. 打开目标Word文档，点击「插入」选项卡 → 「文本」组 → 「文档部件」 → 「域」
2. 在「域」对话框中：
   • 类别选择「链接和引用」
   • 域名选择「MacroButton」
   • 宏名下拉框选择新建的SearchTitleFromFirstLine
   • 显示文字输入按钮标识，比如「🔍 检索区县标题」
3. 点击「确定」，文档中会生成可双击运行的MacroButton

注意事项 #

• 确保文档第一行仅输入要检索的区县名，不要添加多余格式或内容
• 共享文档时，需告知同事在Word选项中设置宏安全级别为「启用所有宏」或「通知宏并允许运行」，否则宏无法执行
• 若仍需保留选中内容检索的功能，可同时保留原PROC宏，按需调用

内容的提问来源于stack exchange，提问作者José Marques