ActiveDocument.Tables(1).Range.Cells(2).Select
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
Selection.InsertSymbol Font:="Wingdings", _
CharacterNumber:=-4014, Unicode:=True
refer:Insert symbol into cell in table (narkive.com)
扩展一下：
①Unit:=wdCharacter中的unit参数是一个枚举值，在Word以外的程序中使用时可以使用枚举值数值。
refer:WdUnits enumeration (Word) | Microsoft Learn
②在Excel VBA中后期绑定实现该操作需要注意枚举值处理，代码如下：
'方框选中符号
Sub InsertSelectedSymbolIntoTable(tableIdx As Integer, rowIdx As Integer, colIdx As Integer)
    thisDoc.Tables(tableIdx).Cell(rowIdx, colIdx).Range.Select
    wordApp.Selection.MoveEnd Unit:=1, Count:=-1 'Unit:=wdCharacter
    wordApp.Selection.InsertSymbol CharacterNumber:=-4014, Font:="Wingdings 2", Unicode:=True
End Sub