Word批量添加着重号

shangtu2005

第一个有卡死的现象，但等等也可以完成，第二个好多了。谢谢！
再问一下大神，有没有把“4/9”这种格式变为分数，“1 4/9”化为带分数的VBA？编辑分数太费时了！

duquancai

shangtu2005 发表于 2017-5-8 11:06
第一个有卡死的现象，但等等也可以完成，第二个好多了。谢谢！
再问一下大神，有没有把“4/9”这种格式变 ...

还是提供附件吧？

shangtu2005

duquancai 发表于 2017-5-8 11:09
还是提供附件吧？

您提供的2个VBA都在文件里面，仅供测试用，谢谢能否再做分数转化？

duquancai

shangtu2005 发表于 2017-5-8 11:23
您提供的2个VBA都在文件里面，仅供测试用，谢谢能否再做分数转化？

Sub 转分数()
    Dim sr$, f1$, f2$, p As Range, n&, i&
    sr = "0123456789xy-+"
    With ActiveDocument.Range(0, 0)
        Do
            .MoveUntil "/"
            n = .MoveStartWhile(sr, wdBackward)
            f1 = .Text: .MoveEndWhile "/" & sr
            Set p = .Duplicate
            .Collapse 0: i = .MoveStartWhile(sr, wdBackward)
            f2 = .Text
            If n = 0 Or i = 0 Then Exit Do
            p.Fields.Add p, , "EQ \f(" & f1 & "," & f2 & ")", 0
            .SetRange .End, .End
        Loop
    End With
End Sub

duquancai

shangtu2005 发表于 2017-5-8 11:23
您提供的2个VBA都在文件里面，仅供测试用，谢谢能否再做分数转化？

Sub 转分数2()
    Dim f1$, f2$, p As Range, r As Range, n&
    With ActiveDocument.Content.Find
        Do While .Execute("[\-+0-9a-zA-Z]@/[\-+0-9a-zA-Z]{1,}", , , 1)
            Set p = .Parent.Duplicate: Set r = p.Duplicate: n = Len(p.Text)
            With .Parent
                .Collapse 0: .MoveStartUntil "/", -n
                f2 = .Text: r.Collapse
                r.MoveEndUntil "/", n: f1 = r.Text
                If Len(f1) > 0 And Len(f2) > 0 Then
                    p.Fields.Add p, , "EQ \f(" & f1 & "," & f2 & ")", 0
                End If
                .Collapse 0
            End With
        Loop
    End With
End Sub

shangtu2005

大神，谢谢！！

weiyingde

duquancai 发表于 2017-5-6 18:33
Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("．{1,}", , , 1)

我也一个与本题相近的问题：
但要考虑特殊情况
排除题号后面的点号，如
1.下列句子中，加点成语使用无误的一项是[17黄石14中模考] ( C)
A.在读书汇报会上，张山同学旁征博引，断章取义．．．．，赢得了同学们的一致好评。
B．“人间四月天，麻城看杜鹃”，春夏之交，龟峰山上的杜鹃花开得正盛，落英缤纷．．．．，红霞耀天。
C．在这个喧嚣浮躁的世界上，芸芸众生．．．．都在为生活忙碌奔波，很少有人能“停下脚步来等等自己的灵魂”。
D．得到朋友的鼓励与支持，她勇敢地走向赛场，成为当天最耀眼的一颗明星，真是相得益彰．．．．啊。
请问这段代码作何变通可以胜任？我改为：
.Execute("[!A-Za-z0-9]@．{1,}", , , 1)
没有响应效果。

weiyingde

duquancai 发表于 2017-5-7 20:09
由于没有具体文档，并且没有“大”文档，无法测试速度，现在用“另类”的写法，凭感觉：对于大文档而言，应 ...

我再上一个附件，见下面。

duquancai

weiyingde 发表于 2017-7-8 19:30
我也一个与本题相近的问题：
但要考虑特殊情况
排除题号后面的点号，如

你越来越懒了，附件都不上传，搞啥？

weiyingde

duquancai 发表于 2017-7-8 19:39
你越来越懒了，附件都不上传，搞啥？

已经上了附件，不知怎的没出来。