推荐几个Word 中较有用的宏
时间: 2023-10-22 19:07:43 浏览: 101
以下是几个在Word中较为常用的宏:
1. 插入当前日期:可以用以下代码来插入当前日期:
```vba
Sub Insert_Date()
Selection.TypeText Format(Date, "yyyy-mm-dd")
End Sub
```
2. 批量替换文本:可以用以下代码来批量替换文本:
```vba
Sub Replace_Text()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "要替换的文本"
.Replacement.Text = "替换后的文本"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
```
3. 批量调整字体大小:可以用以下代码来批量调整字体大小:
```vba
Sub Change_FontSize()
Dim oRng As Range
For Each oRng In ActiveDocument.Content.StoryRanges
oRng.Font.Size = 14 ' 修改这里的数值为需要的字体大小
Next
End Sub
```
以上是一些常用的Word宏,可以通过“开发工具”菜单中的“宏”来创建和运行它们。