Nevermind. Simple solution if you know what a tab leader is. This simple code works perfectly:

Dim aTOC As TableOfContents
For Each aTOC In ActiveDocument.TablesOfContents
    aTOC.TabLeader = wdTabLeaderDots
Next