Macro : Spelling Number Always in "Under" Position

Change:

      With Selection
         .Copy
         .EndKey Unit:=wdLine
         .TypeParagraph
      End With

to:

      With Selection
         .InsertAfter " ("
         .Collapse wdCollapseEnd
         .InsertAfter " rupiah)"
         .Collapse wdCollapseStart
      End With