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

我正在使用vba将数据从excel传输到word，并在word文档中添加符号/缩进，但是，我需要有关指定符号之一的字体大小的帮助

我现在如何声明它将使所有字体大小为10.5，但我想将symbol

ws3.Range（“N1”）=ChrW（&H2588）

的字体大小仅更改为5。它是黑色正方形的象征。见图片的区别，上面的是10.5，下面是我需要的，大小为5

我之所以这么做，是因为我有多个这样的符号，它们增加了编辑文档的时间，所以我希望修改我的代码以达到预期的效果。因此，我希望将符号填充到word文档中，大小为5而不是10.5，其余的应保持字体大小为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

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

（2） 密码通过了，什么也没发生

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

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

（3） 对象不支持该方法

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

---

我怀疑您需要在将字符放入MS Word后更改其大小。但如果它在Excel中工作，请首先尝试第三个示例中的

.Characters（1）.Font.Size=5

。Excel生成的符号的字体大小为5，但在生成word文档后，返回到字体大小为10.5，我刚刚尝试了您的方法，代码现在可以顺利通过，但仍然使用10.5的字体大小填充，因此您需要在Word中进行识别和调整。我使用了查找并替换为更改字体大小。它只需在word文档中再执行一步。Thanks我怀疑您在将字符放入MS Word后需要更改其大小。但如果它在Excel中工作，请首先尝试第三个示例中的

.Characters（1）.Font.Size=5

。Excel生成的符号的字体大小为5，但在生成word文档后，返回到字体大小为10.5，我刚刚尝试了您的方法，代码现在可以顺利通过，但仍然使用10.5的字体大小填充，因此您需要在Word中进行识别和调整。我使用了查找并替换为更改字体大小。它只需在word文档中再执行一步。谢谢