如何在Word中设置VBA宏，在每个空行前添加英文句点？

原内容 #

Lorem ipsum
Lorem ipsum
Lorem ipsum

目标内容 #

Lorem ipsum
.
Lorem ipsum
.
Lorem ipsum

适用于Microsoft Word的宏设置 #

1. 打开Word文档，按下Alt+F11打开VBA编辑器
2. 点击菜单栏「插入」→「模块」，在代码窗口粘贴以下代码：

Sub AddPeriodToEmptyLines()
    Dim doc As Document
    Dim para As Paragraph
    Set doc = ActiveDocument
    For Each para In doc.Paragraphs
        ' 判断段落是否为空（仅含换行符）
        If Trim(para.Range.Text) = vbCr Then
            para.Range.InsertBefore "."
        End If
    Next para
End Sub

3. 关闭VBA编辑器，回到Word界面按下Alt+F8，选择AddPeriodToEmptyLines宏点击「运行」即可。

适用于VS Code的宏设置 #

1. 先安装「Multi Command」扩展（扩展商店搜索即可）
2. 按下Ctrl+,打开设置，点击右上角「打开设置(JSON)」，添加配置：

"multiCommand.commands": [
    {
        "command": "multiCommand.addPeriodToEmptyLines",
        "sequence": [
            "editor.action.selectAll",
            {
                "command": "editor.action.replaceInSelection",
                "args": {
                    "find": "^$",
                    "replace": ".",
                    "isRegex": true
                }
            }
        ]
    }
]

3. 如需绑定快捷键，按下Ctrl+K Ctrl+S打开快捷键设置，点击右上角「打开快捷键(JSON)」添加：

{
    "key": "ctrl+shift+.",
    "command": "multiCommand.addPeriodToEmptyLines",
    "when": "editorTextFocus"
}

4. 打开目标文档，按下绑定快捷键（或命令面板搜索addPeriodToEmptyLines）即可完成处理。

内容的提问来源于stack exchange，提问作者Solsticex