Excel中实现选中文本添加<metaphor>标签的宏/快捷键需求

实现步骤： #

1. 打开VBA编辑器：按下Alt+F11组合键
2. 插入模块：在左侧工程窗口右键点击当前工作簿 → 插入 → 模块
3. 粘贴宏代码：将以下代码复制到模块窗口中

Sub AddMetaphorTag()
    ' 仅当选中单元格内的文本片段时执行
    If TypeName(Selection) = "Range" And Selection.Characters.Count > 0 Then
        Dim originalText As String
        originalText = Selection.Characters.Text
        ' 给选中文本包裹<metaphor>标签
        Selection.Characters.Text = "<metaphor>" & originalText & "</metaphor>"
    End If
End Sub

4. 设置自定义快捷键：
   • 点击Excel顶部菜单栏的「文件」→「选项」→「自定义功能区」
   • 点击窗口底部的「键盘快捷方式：自定义」按钮
   • 在「类别」列表中选择「宏」，右侧选中AddMetaphorTag
   • 在「请按新快捷键」输入框中按下你想设置的组合键（比如Ctrl+Shift+M），点击「指定」后关闭窗口

使用方法： #

在第一列的文本单元格中，选中需要标记为隐喻的片段，按下你设置的快捷键，即可自动给选中内容加上<metaphor>和</metaphor>标签。

注意事项： #

• 确保选中的是单元格内的部分文本，而非整个单元格（如果选中整个单元格，会给单元格内所有文本添加标签）
• 如果Excel提示宏被禁用，需在「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」中，选择「启用所有宏」（仅在信任当前工作簿的情况下使用）

内容的提问来源于stack exchange，提问作者Dario Del Fante