Ersetzen des letzten Kommas (Microsoft Word)
Rebecca sucht nach einer Möglichkeit, das letzte Komma in einem Satz durch das Wort „und“ zu ersetzen. Sie muss diese Art der Bearbeitung anscheinend ziemlich oft durchführen und dachte, es könnte eine schnelle und einfache Möglichkeit geben, die Bearbeitung durchzuführen, anstatt sie manuell durchführen zu müssen.
Es gibt keine integrierte Möglichkeit, diese spezielle Bearbeitung in Word durchzuführen. Sie können jedoch ein einfaches Makro erstellen, das nach dem letzten Komma sucht, es löscht und dann das gewünschte Wort eingibt. Das Folgende ist ein Beispiel für ein solches Makro.
Sub ReplaceLastComma() Dim J As Integer Dim bRep As Boolean Dim sRaw As String Selection.Sentences(1).Select sRaw = Selection.Text bRep = False For J = Len(sRaw) To 1 Step -1 If Mid(sRaw, J, 1) = "," Then Selection.Collapse Direction:=wdCollapseStart Selection.MoveRight Unit:=wdCharacter, Count:=J - 1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=" and" J = 1 bRep = True End If Next J If Not bRep Then Selection.Collapse Direction:=wdCollapseStart End Sub
Das Makro wählt den aktuellen Satz aus (den, in dem sich die Einfügemarke befindet, und geht dann rückwärts durch den Text des Satzes. (Der Text wird zur Vereinfachung der Verarbeitung der Variablen sRaw zugewiesen.) Wenn ein Komma gefunden wird, dann Die Einfügemarke wird direkt vor dem Komma im Dokument positioniert, das Komma wird gelöscht, und dann wird ein Leerzeichen und das Wort „und“ eingegeben.
Wenn Sie möchten, dass das Makro das nicht löscht Komma, Sie können die Löschung der zu löschenden Zeile schnell ändern (und die Zeile davor so ändern, dass die Bewegung „J + 1“ statt „J-1“ ist), oder Sie können einfach vorher ein Komma hinzufügen das Leerzeichen im Text, das vom Makro eingegeben wird.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer beliebigen Seite) beschriebenen Makros verwendet werden andere Seite auf den WordTips-Sites) habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (12378) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: