Sub TabToEndOfLine()

Dim lngWidth As Long, lngLM As Long, lngRM As Long
Dim oRng As Range
Dim oPara As Paragraph

    For Each oPara In ActiveDocument.Paragraphs
        If oPara.Range.Information(wdWithInTable) = False Then
            Set oRng = oPara.Range

            With oRng.Sections(1).PageSetup
                lngLM = .LeftMargin
                lngRM = .RightMargin
                lngWidth = .PageWidth
            End With

            oRng.End = oRng.End - 1
            With oRng.ParagraphFormat.TabStops
                .ClearAll
                .Add Position:=lngWidth - lngLM - lngRM, _
                     Alignment:=wdAlignTabRight, _
                     Leader:=2
            End With
            oRng.Collapse 0
            oRng.Text = Chr(32) & vbTab
        End If
        DoEvents
    Next oPara
lbl_Exit:
    Set oRng = Nothing
    Set oPara = Nothing
    Exit Sub
End Sub