我想选择（即变黑）第三段落的第五行的左起第八个中文字符，谢谢

Question

这个VBA的代码是什么，请直接要代码。

Answer 1

Sub Macro5()
'
' Macro5 Macro
' 宏在 2012-7-10 由 录制
'
Selection.Start = ThisDocument.Paragraphs(3).Range.Start
Selection.End = Selection.Start'ThisDocument.Paragraphs(3).Range.Characters(1).Select
    Selection.MoveDown Unit:=wdLine, Count:=5 - 1
    Selection.MoveRight Unit:=wdCharacter, Count:=8 - 1
    Selection.MoveEnd Unit:=wdCharacter, Count:=1
End Sub

Answer 2

'选择（即变黑）第三段落的第五行的左起第八个中文字符(要试)
'Dim MyRange
'Set MyRange = ActiveDocument.Paragraphs(10).Range.Characters(1)
'MyRange.Select
'Selection.MoveDown unit:=wdLine, Count:=4 '第五行
'Selection.MoveRight unit:=wdCharacter, Count:=7 '左起第八个字符。也可以用作光标在行单元格内移动
'Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend '“1”为从第五个开始选择了一个字符。'也可以用作光标在行单元格内移动