ndyndy 发表于 2012-3-30 13:11:06

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

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

happytc 发表于 2012-3-30 13:34:21

在word中怎样把光标定位到指定位置，比如：
aabbcc
ccddee
我要把光标定位到第二行的cc后
ndyndy 发表于 2012-3-30 13:11 http://www.autoitx.com/images/common/back.gif

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

kevinch 发表于 2012-3-30 16:11:19

本帖最后由 kevinch 于 2012-3-30 16:12 编辑

$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 发表于 2012-3-30 16:18:49

这下不用靠宏了，谢谢

yfh131 发表于 2012-3-30 16:38:23

这个很像是木马呀

yfh131 发表于 2012-3-30 16:38:30

这个很像是木马呀1

ndyndy 发表于 2012-3-30 16:40:21

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

ndyndy 发表于 2012-3-30 16:47:22

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

kevinch 发表于 2012-3-30 18:10:12

$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 发表于 2012-12-15 11:37:53

非常好！正需要
页: [1]
查看完整版本: 在word中怎样把光标定位到指定位置