Добавление второго комментария ко второй текстовой строке в макросе VBA

232
Chuck C.

Как бы я изменил этот код, чтобы найти 2-ю текстовую строку («bbb») и добавить 2-й комментарий [например, «мой комментарий № 2»] к этому. Затем третий и так далее. Благодарю.

Sub CommentBubble() ' ' CommentBubble Macro ' ' Dim range As range Set range = ActiveDocument.Content  Do While range.Find.Execute("[X] No episodes of osteomyelitis") = True ActiveDocument.Comments.Add range, "IF THIS OPTION IS CHECKED, YOU SHOULD COMPLETELY DELETE QUESTIONS 5 'a' THROUGH 'e'" Loop  Do While range.Find.Execute("6. Does the veteran have any history of hospitalizations/surgery related to the bone condition?") = True ActiveDocument.Comments.Add range, "IF 'NO' IS CHOSEN, DELETE THE CHART" Loop  End Sub
0
Сорр код был сжат Chuck C. 6 лет назад 0
Добавить еще две петли? DavidPostill 6 лет назад 0
Я думаю, как это сделать? Chuck C. 6 лет назад 0
Скопируйте первый и добавьте копию внизу. Отредактируйте копию. Повторите по мере необходимости. DavidPostill 6 лет назад 0
[визуальные базовые учебники - поиск Google] (https://www.google.co.uk/search?q=visual+basic+tutorials&ie=utf-8&oe=utf-8&client=firefox-b-ab&gfe_rd=cr&dcr=0&ei=BaqIWq7DE8b38Qen86GD ) DavidPostill 6 лет назад 0
Вот когда я пытаюсь это сделать, но второй комментарий не добавляется. Что мне не хватает? Dim range As range Установите диапазон = ActiveDocument.Content Do While range.find.Execute («aaa») = True ActiveDocument.Comments.Add range, «my comment» Цикл Dim range Как диапазон Установите диапазон = ActiveDocument.Content Do Пока диапазон. find.Execute («bbb») = True ActiveDocument.Comments.Add range, «my comment # 2» Loop End Sub Chuck C. 6 лет назад 0
Вам нужно только скопировать `Do While ... Loop` DavidPostill 6 лет назад 0
ОК, я добавил настоящий код вверху. Я думаю, это то, что вы предлагаете, но не размещаете 2-й комментарий. Chuck C. 6 лет назад 0
Проверьте правильность строки соответствия, в противном случае * пожимает плечами * DavidPostill 6 лет назад 0
Проверено и хорошо. Все еще не добавляю второй комментарий: - / Chuck C. 6 лет назад 0
Хорошо, происходит то, что первая текстовая строка выделяется при попытке запустить вторую команду. Таким образом, это не поиск по всему документу. Вероятно, нужна команда, чтобы отменить выбор 1-й строки, а затем продолжить со 2-й командой. Chuck C. 6 лет назад 0
Хорошо, добавил это перед 2-й командой и сделал трюк, отменив выбор первой строки .: Selection.MoveRight Unit: = wdCharacter, Count: = 1 Chuck C. 6 лет назад 0

0 ответов на вопрос

Похожие вопросы