在word中怎样把光标定位到指定位置

ndyndy

在word中怎样把光标定位到指定位置，比如：
aabbcc
ccddee
我要把光标定位到第二行的cc后

happytc

在word中怎样把光标定位到指定位置，比如：
aabbcc
ccddee
我要把光标定位到第二行的cc后
ndyndy 发表于 2012-3-30 13:11

用VBA，若不知如何写，在Word录个宏，查看这个宏就知道如何写了
再用Au3建个Word对象操作就要以了

kevinch

$word=ObjCreate("word.application")
$word.visible=True
$doc=$word.documents.add
$doc.range.text="aabbcc"&@CRLF&"ccddee"
With $doc.parent.selection.find
        .clearformatting
        .replacement.clearformatting
        .text="cc"
        $n=0
        Do
                .execute
                If .found Then 
                        $n+=1
                Else
                        ExitLoop
                EndIf
        Until $n=2
        If $n=2 Then
                .parent.moveright
                .parent.typetext("光标就位了")
        Else
                MsgBox(0,"","没找到那么多！")
        EndIf
EndWith

测试代码

ndyndy

这下不用靠宏了，谢谢

yfh131

这个很像是木马呀

yfh131

这个很像是木马呀1

ndyndy

回复 3# kevinch
kevinch老大怎样才能把某一行或某一指定字符的字体变色如：
aaabbbccc
dddeeefff
把aaabbbccc行变红
把eee变蓝

ndyndy

不是木马是要把log文件粘贴到DOC上

kevinch

$word=ObjCreate("word.application")
$word.visible=True
$doc=$word.documents.add
$doc.range.text="aaabbbccc"&@crlf&"dddeeefff"
With $doc.parent.selection.find
        .clearformatting
        .replacement.clearformatting
        .forward=1
        .wrap=0
        .text="aaabbbccc"
        While 1
                .execute
                If .found Then 
                        .parent.homekey(5)
                        .parent.endkey(5,1)
                        .parent.font.colorindex=6
                        .parent.endkey
                Else
                        ExitLoop
                EndIf
        wend
        .text="eee"
        While 1
                .execute
                If .found Then
                        .parent.font.colorindex=2
                Else
                        ExitLoop
                EndIf
        WEnd
        .parent.homekey(6)
EndWith

llww7779

非常好！正需要