Word常用宏代码大全

Microsoft Word 的宏（Macro）功能基于 VBA（Visual Basic for Applications），可以帮助用户自动化重复性操作。以下是一些常用的 Word 宏代码示例，适用于日常办公场景。

1. 自动保存文档

Sub AutoSaveDocument()
    ActiveDocument.Save
End Sub

2. 批量替换文字

Sub ReplaceText()
    With Selection.Find
        .Text = "旧文本"
        .Replacement.Text = "新文本"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

3. 设置全文行距为1.5倍

Sub SetLineSpacing()
    With ActiveDocument.Range.Paragraphs
        .LineSpacingRule = wdLineSpaceMultiple
        .LineSpacing = LinesToPoints(1.5)
    End With
End Sub

4. 删除所有空段落

Sub DeleteEmptyParagraphs()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        If Len(Trim(para.Range.Text)) = 1 Then ' 只有换行符
            para.Range.Delete
        End If
    Next para
End Sub

5. 插入当前日期

Sub InsertCurrentDate()
    Selection.TypeText Text:=Format(Date, "yyyy年mm月dd日")
End Sub

使用说明

将上述代码复制到 Word 的 VBA 编辑器中（按 Alt + F11 打开），粘贴到模块（Module）中即可运行。

注意：首次使用宏功能时，请确保启用宏（文件 → 选项 → 信任中心 → 宏设置）。