Hinzufügen eines zweiten Kommentars zu einer zweiten Textzeichenfolge in einem VBA-Makro

346
Chuck C.

Wie würde ich diesen Code ändern, um einen zweiten Textstring ("bbb") zu finden und einen zweiten Kommentar [zB "mein Kommentar # 2"] hinzuzufügen. Dann eine dritte und so weiter. Vielen Dank.

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
Leider wurde der Code komprimiert Chuck C. vor 6 Jahren 0
Fügen Sie zwei weitere Loops hinzu. DavidPostill vor 6 Jahren 0
Ich denke, wie geht das? Chuck C. vor 6 Jahren 0
Kopieren Sie die erste und fügen Sie die Kopie darunter hinzu. Bearbeiten Sie die Kopie. Wiederholen Sie dies bei Bedarf. DavidPostill vor 6 Jahren 0
[Visual Basic-Tutorials - Google-Suche] (https://www.google.de/search?q=visual+basic+tutorials&ie=utf-8&oe=utf-8&client=firefox-b-ab&gfe_rd=cr&dcr=0&ei=BaqIWq7DE8b38Aen86GwDQ ) DavidPostill vor 6 Jahren 0
Hier versuche ich das, aber der 2. Kommentar wird nicht hinzugefügt. Was vermisse ich? Dim Bereich As range Bereich festlegen = ActiveDocument.Content Do While range.find.Execute ("aaa") = True ActiveDocument.Comments.Add range, "mein Kommentar" Schleife Dim Bereich As range Set range = ActiveDocument.Content Do While Bereich. find.Execute ("bbb") = True ActiveDocument.Comments.Add range, "my comment # 2" Loop End Sub Chuck C. vor 6 Jahren 0
Sie müssen nur "Do While ... Loop" kopieren DavidPostill vor 6 Jahren 0
OK, ich habe den echten Code oben hinzugefügt. Ich denke, das ist, was Sie vorschlagen, aber nicht den zweiten Kommentar. Chuck C. vor 6 Jahren 0
Überprüfen Sie, ob Ihre Übereinstimmungszeichenfolge korrekt ist, andernfalls * shrug * DavidPostill vor 6 Jahren 0
Überprüft und gut. 2. Kommentar noch nicht hinzugefügt: - / Chuck C. vor 6 Jahren 0
OK, was passiert, ist, dass die erste Textzeichenfolge ausgewählt wird, wenn versucht wird, den 2. Befehl auszuführen. Es wird also nicht das gesamte Dokument durchsucht. Benötigen Sie wahrscheinlich einen Befehl, um die erste Zeichenfolge aufzuheben, und fahren Sie dann mit dem zweiten Befehl fort. Chuck C. vor 6 Jahren 0
OK, fügte dies vor dem zweiten Befehl hinzu und tat den Trick, indem er die erste Zeichenfolge abwählte: Selection.MoveRight Unit: = wdCharacter, Count: = 1 Chuck C. vor 6 Jahren 0

0 Antworten auf die Frage

Verwandte Probleme