怎么用正则查找替换域内的带格式的字符

pbdq

我有一段域代码如下


{EQ\* jc0 \* "Font:华文细黑"\* hps14 \o(\s\up 19(dà),大)}{eq\* jc0 \* "Font:华文细黑" \* hps14 \o(\s\up 19(chénɡ),乘)}{eq \* jc0 \* "Font:华文细黑" \* hps14 \o(\s\up 19(dà),大)}{eq \* jc0 \* "Font:华文细黑" \*hps14 \o(\s\up 19(jí),集)}{eq \*jc0 \* "Font:华文细黑" \* hps14 \o(\s\up 19(dì),地)}{eq \* jc0 \* "Font:华文细黑" \* hps14 \o(\s\up 19(zànɡ),藏)}{eq \* jc0 \* "Font:华文细黑" \*hps14 \o(\s\up 19(shí),十)}{eq\* jc0 \* "Font:华文细黑" \* hps14 \o(\s\up 19(lún),轮)}{eq \* jc0 \* "Font:华文细黑" \* hps14 \o(\s\up 19(jīnɡ),经)}


我想把带红色的拼音后面的字提取出来，例如，

{eq \* jc0 \* "Font:华文细黑" \* hps14 \o(\s\up 19(chénɡ),乘)}


我想提取(chénɡ)后面的“乘”字，应该怎么做。


附件是一个测试文件

测试标红拼音的多音字提取.rar (9.58 KB, 下载次数: 14)

2015-1-31 17:27 上传

点击文件名下载附件

pbdq

顶上去啊，坐等大仙出现

loquat

先查找到再去判断格式

ammyc

是不是去拼音留汉字

loquat

通配符应该就行了吧

shenghua8

我这个办法比较土。
得分三步（两步替换，一步查找加复制粘贴）。

首先，楼主已知道，要按Alt+F9切换成域代码。

然后，
第一步：用替换
勾选“使用通配符”，
查找内容

1. [a-zɡ]@

复制代码

字体颜色：红色
替换为空白。
如下图：


第二步：用查找。
勾选“使用通配符”，
查找内容

1. \(\)\,(?)

复制代码

不限定格式。
在以下项目中查找：主文档
搜索：全部。
关闭查找对话框后，点“复制”。

在新页面或者新文档中“粘贴”。

如下图：


第三步：再用替换。
勾选“使用通配符”，
查找内容

1. \(\)\,(?)^13

复制代码

不限定格式。
替换为

1. \1

复制代码

如下图：


楼主自己将：
切换域代码、三步查找替换录制成一个宏，
再优化一下代码。

pbdq

shenghua8 发表于 2015-2-3 13:41
我这个办法比较土。
得分三步（两步替换，一步查找加复制粘贴）。

大帅你好！用录制的时候，是可以的，但是我用录制好的宏，第二部是不行的。

具体的宏代码如下（似乎没有执行查找工作）

    Selection.WholeStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "\(\)\,(?)"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Copy
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdPasteDefault)

pbdq

shenghua8 发表于 2015-2-3 13:41
我这个办法比较土。
得分三步（两步替换，一步查找加复制粘贴）。

手动是可以。用录制好的宏，第二部似乎是不行的，不知道代码应该怎么修改啊