MS-Word VBA-Makro: Convert/Replace-Tab stoppt auf Komma

Question

Ich arbeite an mehreren Word-Dokumenten, die ich konvertieren oder ersetzen Tabstopps zu Kommas. Der Text kann wie folgt aussehen:

Word bietet 4 Optionen für Tabstopps: Punkt, Strich, Linie und keine. Allerdings möchte ich nur die ersten 3 Anführertypen in Komma ersetzen. Der letzte wird nicht so geändert werden:

Hello,world 
Hello,World 
Hello,World 
Hello   world 

Suchen und Ersetzen Tabs-Funktion in Word funktioniert nicht. So nach vielen Google-Suche, habe ich versucht, „Kopieren und Einfügen“ aus verschiedenen Quellen in ein einfaches Makro, diese Aufgabe zu tun (ich total bin neu in Word-Makro und VBA):

Sub Macro1() 
    For Each para In ActiveDocument.Content.Paragraphs 
     For Each aTab In para.TabStops 
      If aTab.Leader = wdTabLeaderDots _ 
      Or aTab.Leader = wdTabLeaderDashes _ 
      Or aTab.Leader = wdTabLeaderLines Then 
       TypeText = "," 
       aTab.Clear 
      End If 
     Next aTab 
    Next para 
End Sub 

Referenz: https://msdn.microsoft.com/en-us/library/office/ff192806.aspx

Word sagt, es gibt einen Fehler in der Zeile: TypeText = "," und ich weiß nicht, wie Sie es korrigieren.

Könnten Sie mir bitte mit diesem Makro helfen?

Vielen Dank im Voraus.

P/S: Slai hat eine Lösung für diese Frage. Ich änderte nur den zweiten Code in ein Makro kopiert, ein wenig, damit es funktioniert:

Sub Macro1() 
    Dim p As Paragraph, t As TabStop 

    For Each p In ActiveDocument.Paragraphs 
     For Each t In p.TabStops 
      If t.Leader Then p.Range.Find.Execute "^t", , , , , , , , , ",", wdReplaceAll 
     Next 
    Next 
End Sub 

Wenn Sie das Makro brauchen nur in Ihrer Auswahl mit den Absätzen zu arbeiten, benutzen Sie bitte Active in zur Auswahl ersetzen.

Answer 1

Suchen und Ersetzen Format nur scheint zu funktionieren, wenn die Tabulator-Positionen bekannt sind:

With ThisDocument.Range.Find 
    For L = wdTabLeaderDots To wdTabLeaderLines 
     .ParagraphFormat.TabStops.Add Position:=36, Leader:=L 
     .Execute "^t", , , , , , , , , ",", wdReplaceAll 
    Next 
End With 

Alternative sein kann, die Tabstopps jeden Absatz zu überprüfen (BTW WdTabLeader has 6 values):

Dim p As Paragraph, t As TabStop 

For Each p In ThisDocument.Paragraphs 
    For Each t In p.TabStops 
     If t.Leader Then p.Range.Find.Execute "^t", , , , , , , , , ",", wdReplaceAll 
    Next 
Next 

Answer 2

TypeText ist eine Methode des Objekts Selection. Da Sie das Objekt nicht angeben, schlägt TypeText in Ihrem Code fehl. Da Sie auch das Objekt Selection nicht verwenden, können Sie TypeText überhaupt nicht verwenden. Ich schlage eine Struktur wie diese vor.

With Para.Range 
    .Collapse wdCollapseEnd 
    .Move wdCharacter, -1 
    .Text = "," 
End With 

würde Dieser Code ein Komma am Ende des Absatzes hinzufügen, die Sie auf die Frage bringt, wo Sie das Komma sein sollen. Sie wollen es an der Stelle der Registerkarte, die ein ganz anderes Tier ist als die TabStop. Ein Tab ist ein Chr (9), den Sie leicht ersetzen können. Wie jedoch Chr (9) interpretiert wird, hängt von dem Typ von TabStop ab, der davon abhängt, wo auf der Seite Chr (9) wirksam wird. Sie können das nicht durch die Untersuchung des Textes feststellen. Daher können Sie nicht zwischen den Typen TabStops unterscheiden, indem Sie sich den Text des Dokuments ansehen.

Um klar zu sein: Es ist nicht möglich ein TabStop mit einem Komma zu ersetzen, weil ein TabStop existiert nicht. Es ist möglich, Registerkarten durch Kommas zu ersetzen.

Es ist nicht möglich, den Leader eines bestimmten Tabs zu bestimmen, ohne dessen genaue Position im Text zu kennen.Beispiel: Wenn ein TabStop bei 100pts vom linken Rand existiert und eine Registerkarte in dem Raum wirksam wird 100pts vom linken Rand endet, lassen Sie uns 50pts sagen, und gibt es keine andere TabStop in der Region zwischen 50pts und 100pts aus der linke Rand, dann die Registerkarte im Dokument kann mit der TabStop bei 100pts festgelegt werden, deren Führer bestimmt, und ein Ersatz der Registerkarte (nicht die TabStop !!!) erlassen oder weggelassen.

Mit Kenntnis der genauen Position der Registerkarte im Dokument ist es nicht möglich, eine Verknüpfung zwischen ihr und einem der Tabstopps im Absatz zu erstellen. Da es nicht möglich ist zu bestimmen, welche wirksam werden könnte, ist es auch unmöglich, eine begründete Vermutung hinsichtlich irgendeiner seiner Eigenschaften zu machen. Ohne genaue Kenntnis der Position des Tabs in dem Dokument kann die einzige Entscheidung, die mit ihm getroffen werden kann, sein, ob er es ausführen oder ersetzen soll - bedingungslos.