本页面汇总了 Microsoft Word 中常用 VBA 宏命令，适用于日常办公自动化、批量处理、格式调整等场景。所有代码均可直接复制到 Word 的宏编辑器中使用。
1. 插入当前日期
Sub InsertCurrentDate()
Selection.TypeText Text:=Format(Now, "yyyy年mm月dd日")
End Sub
2. 全文加粗
Sub BoldAllText()
ActiveDocument.Content.Font.Bold = True
End Sub
3. 删除空段落
Sub DeleteEmptyParagraphs()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If Trim(para.Range.Text) = vbCr Then
para.Range.Delete
End If
Next para
End Sub
4. 批量替换文本
Sub ReplaceAll()
With ActiveDocument.Content.Find
.Text = "旧文本"
.Replacement.Text = "新文本"
.Execute Replace:=wdReplaceAll
End With
End Sub
5. 保存并关闭文档
Sub SaveAndClose()
ActiveDocument.Save
ActiveDocument.Close
End Sub