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

2009-07-20 10:13:09 227 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

高效利用Word与Excel构建精准术语替换对照表本文详细介绍了如何高效利用Word与Excel构建精准术语替换对照表，以应对翻译与本地化项目中的术语统一难题。通过Word通配符净化文本、Excel智能比对标记、以及筛选排序生成TSV对照表三步核心流程，实现批量修改的精准定位与高效执行，有效避免遗漏与误伤，大幅提升工作效率。阅读详情

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

...全文

GIS 属性写入Word模板本文介绍了一个GIS属性转Word工具，能够自动读取Shapefile文件的属性信息，并根据配置文件映射规则，将属性值批量填充到Word模板的指定位置，为每条记录生成独立文档。该工具采用面向对象设计，核心功能包括Shapefile读取解析、Word模板加载与文本替换、批量文档生成等。通过JSON配置文件实现字段与占位符的灵活映射，支持段落和表格内容替换，可适配不同数据源和模板需求。工具具有轻量化、易部署的特点，无需依赖GIS软件即可处理Shapefile数据，适合批量生成标准化文档场景。阅读详情

nelazy

Office开发/ VBA 5,174 成员 17,906 内容

+ 关注 + 加入社区

切换为时间正序

liujiaqiid 2009-08-01

打赏
举报

liujiaqiid 2009-08-01

打赏
举报

LZ 不接贴？？！！！

无·法 2009-07-30

打赏
举报

不懂，帮顶

fairchild811 2009-07-25

打赏
举报

用Selection.Range.Start

bigriverhorse 2009-07-22

打赏
举报

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

liujiaqiid 2009-07-22

打赏
举报

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

liujiaqiid 2009-07-22

打赏
举报

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





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

frankbj 2009-07-22

打赏
举报

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

bigriverhorse 2009-07-21

打赏
举报

可以使用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

liujiaqiid 2009-07-21

打赏
举报

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

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

相关推荐

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