Доступ к функции макроса для всех документов


0

Я создал функцию макроса как:

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  

который я хочу использовать для каждого нового документа всякий раз, когда я хочу его использовать. Также я не хочу выполнять / запускать код макроса снова и снова каждый раз, когда мне нужен этот макрос.

Как получить доступ к этой функции макроса, не выполняя ее каждый раз, когда мне это нужно?

Ответы:


0

Ваш вопрос не совсем понятен, что вы подразумеваете под « Как получить доступ к этой функции макроса, не выполняя ее каждый раз, когда мне это нужно », но я думаю, что понимаю, о чем вы спрашиваете.

Поместите свой код в раздел модуля Normalна левой панели VBA Explorer.

введите описание изображения здесь

Это сделает его доступным для всех документов Word, когда они открыты.

Когда вам это нужно, нажмите Alt+, F8чтобы открыть окно макроса. Выберите макрос и нажмите Run.


@ CharlieRB - Спасибо, это то, что я хотел :)
Маликс
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.