Макрос для вставки пузырьков комментариев в Microsoft Word?

У меня есть проблема, и я хочу знать, если макрос может решить:

Я хотел бы макрос, который может пройти через документ Microsoft Word, найти каждое вхождение текстовой строки, а затем выделить строку и создать пузырь комментариев (вид, который вы получаете с помощью "отслеживать изменения"), который содержит вторую текстовую строку (например, "это кажется неправильным.").

могут ли макросы вставлять пузырьки комментариев таким образом?

25
задан slhck
01.12.2022 9:57 Количество просмотров материала 2668
Распечатать страницу

1 ответ

просто закодировал это (на Word 2010, хотя не вижу ничего, что должно помешать ему работать на старых версиях):

Sub CommentBubble()
'
' CommentBubble Macro
'
'
Dim range As range
Set range = ActiveDocument.Content

Do While range.Find.Execute("aaa") = True
    ActiveDocument.Comments.Add range, "my comment"
Loop
End Sub

который работает, хотя, очевидно, нуждается в некоторой очистке:) вы можете создать объект комментария (и указать такие вещи, как автор, Initals...не могу выбрать цвет!)

3
отвечен cjb110 2022-12-02 17:45

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх