访问所有文档的宏功能

Question

我创建了一个宏函数：

Sub updateFontCC()

Dim doc As Document
Set doc = ActiveDocument
Dim i As Integer
For i = 1 To doc.Range.Characters.Count

     If IsNumeric(doc.Range.Characters(i)) Then
        doc.Range.Characters(i).Font.Name = "Cambria"
        Else
        doc.Range.Characters(i).Font.Name = "Candara"
     End If
Next i

End Sub  

我希望在需要时将其用于每个新文档。另外，我不想每次需要此宏时都一次又一次地执行/运行宏代码。

如何访问此宏函数而不必在每次需要时都执行它？

Answer 1

您的问题没有明确说明“如何访问此宏函数而无需每次都需要执行它“，但我想我明白你在问什么。

Normal将您的代码放在VBA Explorer 左侧窗格中的模块部分。

这将使其可供所有打开的 Word 文档使用。

当你需要的时候，按Alt+F8打开宏窗口。选择宏并点击Run。