Word批量添加着重号

shangtu2005

如下，将12和13中的点（.）删除，将其前面的“异”、“奇”和“宾客”加上着重号。VBA解决，谢谢~！

12、父异．焉，借旁近与之。

13、邑人奇．之，稍稍宾客．．其父。

duquancai

没有真实文档，恐怕不好解决？

duquancai

Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("．{1,}", , , 1)
            n& = Len(.Parent.Text)
            With .Parent
                .Text = Empty: .MoveStart , -n
                .Font.EmphasisMark = 1
                .SetRange .End, .End
            End With
        Loop
    End With
End Sub

shangtu2005

成功了，谢谢

小花鹿

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

试了一下，.SetRange .End, .End 用 .move , 1 代替也行，不知有什么区别

jiminyanyan

小花鹿 发表于 2017-5-7 11:18
试了一下，.SetRange .End, .End 用 .move , 1 代替也行，不知有什么区别

Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("．{1,}", , , 1)
            n& = Len(.Parent.Text)
            With .Parent
                .Text = Empty: .MoveStart , -n
                .Font.EmphasisMark = 1
                .SetRange .End, .End
                 MsgBox .End
            End With
        Loop
    End With
End Sub
.SetRange .End, .End 代表一个位置，您可以理解一下。

小花鹿

其实.SetRange .End, .End也不是代表一个位置，而是代表一个RANGE
我的意思是用.move,1 效果一样

weiyingde

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

杜老师，这个小程序，对语文老师来说很实用。
谢谢shangtu2005，我也一起受益了。

duquancai

由于没有具体文档，并且没有“大”文档，无法测试速度，现在用“另类”的写法，凭感觉：对于大文档而言，应该速度上有所提升！！！！

Sub shish()
    With ActiveDocument.Range(0, 0)
        Do
            .MoveUntil "．": n = .MoveEndWhile("．")
            If n = 0 Then Exit Do
            .Text = Empty: .MoveStart , -n
            .Font.EmphasisMark = 1
            .SetRange .End, .End
        Loop Until .End = ActiveDocument.Content.End
    End With
End Sub

weiyingde

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

这样好，又多了一条思路，一并收藏，慢慢啃。