请问在word二次开发中，执行替换操作后，如何记录当前替换文本的位置 ？

[nelazy]

请问在word二次开发中，执行替换操作后，如何获得当前替换文本的位置 ？

[liujiaqiid]

你是想批量替换后，返回每个替换点的位置？？？？----

[bigriverhorse]

可以使用selection对象，注意selection不一定就是代表选择的文本，也代表当前位置。

代码示例如下：

Sub show_cur_pos()
    Dim rng As Range
    Dim pos As Long
    
    Set rng = Selection.Range
    pos = rng.Start
    
    MsgBox pos
End Sub

[frankbj]

经过测试，二楼的程序是正确的！

[liujiaqiid]

二楼方法我没调通，不过有所启发：

Sub replece()
'
'此函数首先输入您要替换的文本，然后输入你要替换成的文本，最后执行替换并且将替换的文本置成蓝色
    
    Dim iResult1 As String, iResult2 As String
       
    iResult1 = InputBox("请输入你需替换的文本")
    
    iResult2 = InputBox("请输入你要替换成的文本")
    
    Selection.Find.ClearFormatting
    
    Selection.Find.Replacement.ClearFormatting
    
    Selection.Find.Replacement.Font.Color = wdColorBlue
    
    With Selection.Find
        .Text = iResult1
        .Replacement.Text = iResult2
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    Selection.Find.Execute Replace:=wdReplaceAll
    
    msgbox “已成功替换，并将替换文本置成蓝色！！”

End Sub

[liujiaqiid]

也算是一种定位方法了...........

[bigriverhorse]

不会吧，就三行代码都出问题了，楼主的没调通的原因是什么，提示什么错误呢。

[fairchild811]

用Selection.Range.Start

[无·法]

不懂，帮顶

[liujiaqiid]

LZ 不接贴？？！！！

[liujiaqiid]

GF