【VBA】如何在Word表格里插入特殊符号

Word里有插入特殊符号的功能，如下图。

通过编程语言实现在Word表格插入特殊符号操作，可以参考下面VBA代码。

?

1 2 3 4

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中后期绑定实现该操作需要注意枚举值处理，代码如下：

?

1 2 3 4 5 6

'方框选中符号 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