Convert / Replace tab stops to comma

Question

I have Word documents which require me to convert or replace tab stops to commas.

The text may look like this:

Hello........world (dot)
Hello------------World (dash)
Hello____World (line)
Hello          world (none)

Word provides 4 choices for tab stops leader: dot, dash, line and none.
I would like to replace only the first 3 leader types into comma.

The last one won't be changed like this:

Hello,world
Hello,World
Hello,World
Hello          world

Find and Replace Tabs function in Word doesn't work. So I tried to "copy and paste" from various sources into a simple macro to do this task:

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

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

Word says there is an error in the line: TypeText = ",".

---

Slai has a solution for this question. I copied the second code into a macro, modified a little bit to make it work:

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

If you need the macro to work only with paragraphs in your selection, replace ActiveDocument into Selection.

Answer 1

Find and Replace Format seems to work only if the Tab stop positions are known:

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

Alternative can be to check the tab stops of each paragraph ( 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