Word批量添加着重号

weiyingde

我再上附件，见下面。

duquancai

weiyingde 发表于 2017-7-8 19:41
我再上附件，见下面。

Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[!0-9A-E]．{1,}", , , 1)
            n& = Len(.Parent.Text) - 1
            With .Parent
                .Start = .Start + 1
                .Text = Empty: .MoveStart , -n
                .Font.EmphasisMark = 1
                .SetRange .End, .End
            End With
        Loop
    End With
End Sub

weiyingde

duquancai 发表于 2017-7-8 19:53
Sub shishi()
    With ActiveDocument.Content.Find
        Do While .Execute("[!0-9A-E]．{1,}", , ...

杜老师，没有相应的效果：
只删除了后面的点，却没有把目标处标上着重号

duquancai

weiyingde 发表于 2017-7-8 19:58
杜老师，没有相应的效果：
只删除了后面的点，却没有把目标处标上着重号

看清楚再说话，不要乱说！！！

weiyingde

duquancai 发表于 2017-7-8 20:07
看清楚再说话，不要乱说！！！

怪现象，只有在小五号子下才能看清楚有着重号，其他字号下难见着重号。

duquancai

weiyingde 发表于 2017-7-8 20:27
怪现象，只有在小五号子下才能看清楚有着重号，其他字号下难见着重号。

什么叫怪现象？自己搞不清状况，乱讲话，段落行距设置一下，这些基础的东东懒得讲。

duquancai

weiyingde 发表于 2017-7-8 20:27
怪现象，只有在小五号子下才能看清楚有着重号，其他字号下难见着重号。

行距，字体，字号，文档网格 都有密切相关。基础太不扎实了！

weiyingde

duquancai 发表于 2017-7-8 20:37
行距，字体，字号，文档网格 都有密切相关。基础太不扎实了！

不怕你笑话，的确是这样，还有很多的东西都不清楚。
由于功利思想想严重，学这个东西很多情况下是为了解决眼前之需，而且百分之百的自学和在此论坛求教！！并不曾有过专业的系统的学习和研究，又加年大眼差，word基本操作和VBA的相关知识的扫盲也基本始于去年，
学习word也全部出自兴趣和爱好；作为教师职业，能否在工作上熟练掌握word，学校亦不做规定和要求。所以，学习的时间也只有在或课余，或假期，或夜深……遇忙，则多日不曾与word会面……所以，所历也只是word的一鳞半爪，因此常常会说一些外行话，切勿见怪。
虽然如此，在我们这儿山城小县的蛮荒之地，学到目前程度，我也知足了……
学无止境，乐在求中……
再次谢谢你的援手。

leikaiyi123

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

ppt中没有加着重号功能，但很多语文老师着实需要，比如画点？还是……？
du大大能不能奉献一下？