Sub TabToEndOfLine()
Dim oRng As Range, lngColWidth As Long
Dim oPara As Paragraph
    On Error Resume Next
    For Each oPara In ActiveDocument.Paragraphs
        Set oRng = oPara.Range
        If oPara.Range.Information(wdWithInTable) = False Then
            lngColWidth = oRng.Sections(1).PageSetup.TextColumns.Width
        Else    ' in a table
            lngColWidth = oRng.Cells(1).Width
        End If
        If Len(oRng) > 1 Then
            With oRng.ParagraphFormat.TabStops
                .ClearAll
                .Add Position:=lngColWidth, Alignment:=wdAlignTabRight, Leader:=2
            End With
            oRng.End = oRng.End - 1
            oRng.InsertAfter Chr(32) & vbTab
            DoEvents
        End If
    Next oPara
lbl_Exit:
    Set oRng = Nothing
    Set oPara = Nothing
    Exit Sub
End Sub