通过vba代码更改word文档中符号的字体大小

Question

我正在使用vba将数据从excel传输到word并且我在我的word文档中添加符号/缩进，但是，我需要帮助我分配的其中一个符号的字体大小。

我现在如何声明它将使所有字体大小为10.5，但我想将符号ws3.Range("N1") = ChrW(&H2588)的字体大小仅更改为5。它是黑色方块的象征。见图为差异，上面一个是10.5，下面是我需要的，大小为5.

我这样做的原因是因为我有多个这样的符号，这增加了编辑文档的时间，所以我希望修改我的代码以达到理想的结果。所以我希望将符号填充到word文档中，大小为5而不是10.5，其余的应该保持字体大小为10.5

如果您熟悉字符编号，请分享ChrW（＆amp; H2588）的字符编号。

如果我可以更改字符编号，这将有效。

  InsertSymbol Font:="Symbol", CharacterNumber:=183, Unicode:=False

我的代码，

ws3.Range("N1") = ChrW(&H2588)
.Font.Size = 10.5
.ParagraphFormat.Alignment = wdAlignParagraphLeft
'deleting extra spacing
.ParagraphFormat.SpaceAfter = 0
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.TypeText Space(27)
.TypeText ws3.Range("N1") & Space(5) & ws3.Range("N2")

尝试了方法，

（1）代码经历了没有发生的事情

 ws3.Range("N1").Font.Size = 5

（2）代码经历了没有发生的事情

With ws3.Range("N1")
.Font.Size = 5
End With

（3）对象不支持方法

With ws3.Range("N1")
 .Words(1).Font.Size = 5
End With