W_SetDecimalBreak

Sub SetDecimalTab()
' Ctrl+(
   Dim CW
    CW = PointsToInches(Selection.Cells.PreferredWidth) - 0.06
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.ParagraphFormat.TabStops.ClearAll
    Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(CW), _
        Alignment:=wdAlignTabDecimal, Leader:=wdTabLeaderSpaces

    With Selection.Find
        .Text = "-"
        .Replacement.Text = "-  "
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub