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

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

我现在如何声明它将使所有的字体大小10.5，但我想改变符号ws3.Range("N1") = ChrW(&H2588)字体大小为5。 这是黑色方块的象征。 看图片的差异，最高的是10.5和以下是我所需要的，5的大小。

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

如果您熟悉字符编号，请分享ChrW（＆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