Microsoft Office Forums - View Single Post - [Solved] How do I output special character to a specific cell (x,y)?

gmaxey · 01-31-2014, 01:04 PM

Code:

Sub Macro1()
  Selection.Tables(1).Cell(2, 3).Select
  Selection.Collapse wdCollapseStart
  Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-4022, Unicode:=True
  Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=9632, Unicode:=True
  'or
  Dim oRng As Word.Range
  Set oRng = Selection.Tables(1).Cell(1, 3).Range
  oRng.Collapse wdCollapseStart
  With oRng
    .Text = ChrW(&H25A0)
    .Font.Name = "Times New Roman"
  End With
End Sub