Sub Create_Dot_Leader_1Tbl_Col_1_SpacedOut()
Dim oTbl As Table
Dim oRow As Row
Dim oCell As Cell
Dim oRng As Range
  Application.ScreenUpdating = False
  Set oTbl = Selection.Tables(1)
  oTbl.Columns(1).Select
  With Selection.ParagraphFormat
    .TextboxTightWrap = wdTightNone
    .CollapsedByDefault = False
    .TabStops.ClearAll
    .TabStops.Add Position:=InchesToPoints(5.25), _
         Alignment:=wdAlignTabRight, Leader:=wdTabLeaderDots
  End With
  For Each oRow In oTbl.Rows
    Set oRng = oRow.Cells(1).Range
    With oRng
      .End = .End - 1
      .Collapse wdCollapseEnd
      .InsertAfter vbTab
      With .Font
        .Bold = False
        .Color = wdColorAutomatic
        .Spacing = 2
      End With
    End With
  Next oRow
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub

Sub Create_Dot_Leader_1Tbl_Col_1_SpacedOut()
Dim oTbl As Table
Dim oRow As Row
Dim oCell As Cell
Dim oRng As Range
  Application.ScreenUpdating = False
  For Each oTbl in ActiveDocument.Tables 'Set oTbl = Selection.Tables(1)
  oTbl.Columns(1).Select
  With Selection.ParagraphFormat
    .TextboxTightWrap = wdTightNone
    .CollapsedByDefault = False
    .TabStops.ClearAll
    .TabStops.Add Position:=InchesToPoints(5.25), _
         Alignment:=wdAlignTabRight, Leader:=wdTabLeaderDots
  End With
  For Each oRow In oTbl.Rows
    Set oRng = oRow.Cells(1).Range
    With oRng
      .End = .End - 1
      .Collapse wdCollapseEnd
      .InsertAfter vbTab
      With .Font
        .Bold = False
        .Color = wdColorAutomatic
        .Spacing = 2
      End With
    End With
  Next oRow
  Next oTbl
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub