Я пытаюсь обновить старый макрос из книги хаков O'Reilly Word 2003 для Word для Mac версии 16.23. Макрос работает так, как задумано в Word для ПК 2007 и Word для Mac 2011, но не работает в Word для Mac 2016.
Я хочу сделать это, потому что я редактор. Использовать «отслеживание изменений» для копирования - это проще всего для меня, но некоторые авторы находятся в замешательстве, поэтому я хочу иметь возможность снабжать этих людей рукописью Word, размеченной с использованием стилизованного текста, а не отслеживаемых изменений (вычеркивание для удалений, цветной текст). для дополнений и пр.).
Мои знания по VBA / макросам ограничены, поэтому я не знаю с чего начать. Если бы ответ состоял в том, чтобы самообразоваться, я был бы признателен за указатели на начало текста.
Sub ConvertCommentsToInlineText()
Dim c As Comment
Dim i As Integer
For i = ActiveDocument.Comments.Count To 1 Step -1
Set c = ActiveDocument.Comments(i)
c.Reference.Style = wdStyleEmphasis
c.Reference.Text = " [" & c.Range.Text & " -- " & c.Author & "] "
Next i
End Sub
Этот макрос предназначен для перемещения текста комментариев в скобки в тексте, добавления имени автора и добавления акцента. Вместо этого он вызывает диалоговое окно Microsoft Visual Basic с ошибкой во время выполнения «6028»: диапазон не может быть удален. Я сделал поиск этой ошибки здесь и на соответствующих форумах. Поток в VBA Express ссылается на ту же ошибку, но я не понимаю, решение или как оно будет применяться здесь: http://www.vbaexpress.com/forum/showthread.php?41781-Solved-Runtime-Error-6028