为什么这里有属性不支持？

yyzh_god_2013

求助各位大神：
我想把这句话的第3个字到第10个字在word里面修改为红色，怎么可以做得到？

doc.Paragraphs(1).Range(Start:=颜色起始, End:=颜色结束).Content.Font.Color = wdColorRed

cuanju

此段代码，可将文章第一段的第3个字~第10个字标红。不知是否达到楼主要求。
================================
Sub s()
    iStart = ActiveDocument.Paragraphs(1).Range.Characters(3).Start
    iEnd = ActiveDocument.Paragraphs(1).Range.Characters(10).End
    ActiveDocument.Range(iStart, iEnd).Font.Color = vbRed
End Sub

yyzh_god_2013

cuanju 发表于 2019-11-4 11:11
此段代码，可将文章第一段的第3个字~第10个字标红。不知是否达到楼主要求。
============================ ...

谢谢，问题解决了。

根据您的例子，我知道了，原来我一直是在 .range.range(3,10).font.color
我把层级上移了一下就好了

非常感谢~