首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

小弟我想选择(即变黑)第三段落的第五行的左起第八个中文字符,多谢

2012-12-17 
我想选择(即变黑)第三段落的第五行的左起第八个中文字符,谢谢这个VBA的代码是什么,请直接要代码。[最优解释

我想选择(即变黑)第三段落的第五行的左起第八个中文字符,谢谢
这个VBA的代码是什么,请直接要代码。
[最优解释]


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


[其他解释]
班主任,谁在本人的提问后打了那么多的广告,本人要求删贴,无非是再来提问一下。
[其他解释]
'选择(即变黑)第三段落的第五行的左起第八个中文字符(要试)
'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”为从第五个开始选择了一个字符。'也可以用作光标在行单元格内移动

热点排行