如何写代码，让选中后的选项号变成大写

zzpsx

如何写代码，让选中后的选项号变成大写.rar (8.12 KB, 下载次数: 6)

2018-2-19 19:04 上传

点击文件名下载附件

下面代码是我录制的。可能用不了。代码中需要写明对选中文字操作，避免替换分割线上面的文字。

'
' 选项号变成大写 Macro
' 宏在 2018-2-19 由 微软用户 录制
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "a."
        .Replacement.Text = "A."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "b."
        .Replacement.Text = "B."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "c."
        .Replacement.Text = "C."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

2489586288

这个用查找替换就能解决吧

leikaiyi123

Sub test()
    Selection.Range.Case = 2        '0小写，1大写，2首字母大写，5切换大小写，6半角,7全角
End Sub

zzpsx

leikaiyi123 发表于 2018-2-20 12:40
Sub test()
    Selection.Range.Case = 2        '0小写，1大写，2首字母大写，5切换大小写，6半角,7全角 ...

谢谢，太赞了。简洁明了。

相见是缘8

zzpsx 发表于 2018-2-20 14:27
谢谢，太赞了。简洁明了。

楼主、你不是说：只把选中部分的A.B.C.D.的四个选项号，变成英文大写？看你1楼录制的代码也是这个意思，可3楼这个代码是把选中部分的所有首字母都变为了大写，我不明白怎么就可以了？？？

zzpsx

相见是缘8 发表于 2018-2-21 06:20
楼主、你不是说：只把选中部分的A.B.C.D.的四个选项号，变成英文大写？看你1楼录制的代码也是这个意思，可3 ...

谢谢，可能我思考不周。我自己的代码缺少一个选中功能。

leikaiyi123

3楼只是给你指个方向，难道你就不会变通下？
'以下在word2003中已测试通过:
Sub test()
    With ActiveDocument.Content.Find
        Do While .Execute("[a-d][．.]", , , 1)
            .Parent.Case = 2   '0小写，1大写，2首字母大写，5切换大小写，6半角,7全角
            .Parent.Collapse 0
        Loop
    End With
End Sub

相见是缘8

leikaiyi123 发表于 2018-2-21 11:57
3楼只是给你指个方向，难道你就不会变通下？
'以下没测试:
Sub test()

你好！
代码运行错误。

leikaiyi123

相见是缘8 发表于 2018-2-21 14:14
你好！
代码运行错误。

呵呵，先是手机写的没测试，
现在7楼的已修改，测试通过。

duquancai

Sub test()
    Dim Q As Range, R As Range
    If Selection.Type = wdSelectionIP Then
        MsgBox "没有选中文档内容！": Exit Sub
    Else
        Set Q = Selection.Range: Set R = Q.Duplicate
    End If
    With Q.Find
        Do While .Execute("[a-d].", , , -1)
            If Not Q.InRange(R) Then Exit Do
            With Q
                .End = .End - 1
                .Case = 1
                .Start = .End + 1
            End With
        Loop
    End With
End Sub