如何取得某个字的位置？

我心依旧

我用find找到了某个字后想得到该字接着的下几个字应该如何？

还有如何得到整个文档的长度？

谢谢

守柔

请参考：

Sub GetText() Dim MyRange As Range Set MyRange = ActiveDocument.Content MsgBox Len(MyRange) End Sub Sub GetRange() Dim wUnits With Selection.Find .Forward = True .ClearFormatting .MatchWholeWord = True .MatchCase = False .Wrap = wdFindContinue .Execute FindText:="你想找的文字" End With MsgBox Range(Start:=Selection.End, End:=Selection.End + 2)'取得找到文字后二个字的内容 End Sub