如何通过代码对（词组）音标进行批量替换？

tangqingfu · 发表于 2020-2-20 09:20

本帖最后由 tangqingfu 于 2020-2-20 10:45 编辑

请教如何通过代码实现对所有词组中的音标进行批量替换？如：

weiyingde · 发表于 2020-2-20 11:13

不能帮你解答问题，帮你顶一把，潘大侠指点。

weiyingde · 发表于 2020-2-20 11:21

本帖最后由 weiyingde 于 2020-2-20 11:22 编辑

你的意思是将“/" 和" /"中的音标，以词为单位将其另添加用"/"符号隔开，是吗？
这个你应该能解决的。

tangqingfu · 发表于 2020-2-20 11:38

weiyingde 发表于 2020-2-20 11:21
你的意思是将“/" 和" /"中的音标，以词为单位将其另添加用"/"符号隔开，是吗？
这个你应该能解决的。[em0 ...

是的，一时没有头绪，能否请老师指点？

weiyingde · 发表于 2020-2-20 11:54

因为中间有tab，所有不好用正则，
用蠢办法给你完成，请测试。
Sub 添加斜杠()
With ActiveDocument.Content
   .Find.Execute "(/[!^32/]@)(^32)([!^32/]@/)", , , 1, , , , , , "\1/\2/\3", 2
   .Find.Execute "(/[!^32/]@)(^32)([!^32/]@)(^32)([!^32/]@/)", , , 1, , , , , , "\1/\2/\3/\4/\5", 2
   .Find.Execute "(/[!^32/]@)(^32)([!^32/]@)(^32)([!^32/]@)(^32)([!^32/]@/)", , , 1, , , , , , "\1/\2/\3/\4/\5/\6/\7", 2
End With
End Sub

tangqingfu · 发表于 2020-2-20 11:59

本帖最后由 tangqingfu 于 2020-2-20 12:01 编辑

weiyingde 发表于 2020-2-20 11:54
因为中间有tab，所有不好用正则，
用蠢办法给你完成，请测试。
Sub 添加斜杠()

谢谢老师，测试通过。能否注释下代码，以便更好理解。
若单词与音标之间不是tab，而是半角空格或全角空格呢，能否用正则？

weiyingde · 发表于 2020-2-20 12:30

tangqingfu 发表于 2020-2-20 11:59
谢谢老师，测试通过。能否注释下代码，以便更好理解。
若单词与音标之间不是tab，而是半角空格或全角空 ...

可以的。因为tab和图片等正则和word计数不一样，造成定位不准。

weiyingde · 发表于 2020-2-20 12:32

可以的。因为tab和图片等正则和word计数不一样，造成定位不准。

weiyingde · 发表于 2020-2-20 12:33

我这个办法实在是蠢，如果超过四个词，就不能实现了。

凌空一羽 · 发表于 2020-2-21 21:23

Sub lkyy()
Dim doc As Document, ph As Paragraph, Mr As Range, Pstart As Long, Pend As Long
Set doc = Word.ActiveDocument
For Each ph In doc.Paragraphs
n = n + 1
Ps = ph.Range.Start
Pstart = InStr(ph.Range, "/")
Pend = InStr(ph.Range, "/ ")
Set Mr = doc.Range(Ps + Pstart, Ps + Pend - 1)
Mr.Find.Execute " ", , , , , , , , , "/ /", 2
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何通过代码对（词组）音标进行批量替换？

评分

评分