Word VBA选中区域单词首字母大写：URL处理问题及解决方案咨询

I get exactly what you're dealing with—using Selection.Range.Case is quick, but it doesn't know to leave URLs alone, turning https://example.com/path into something messy like Https://Example.Com/Path. Here's a targeted VBA solution that preserves your URLs while capitalizing the rest of your list items:

Step-by-Step Approach #

Instead of treating the entire selection as one block, we'll:

• Go through each numbered list item individually
• Use regex to detect URLs starting with http:// or https:// at the end of each item
• Split the item into the main text (which we'll capitalize) and the URL (which stays lowercase)
• Recombine and update the item

VBA Code Implementation #

Sub CapitalizeListItemsPreserveURLs()
    Dim doc As Document
    Dim selRange As Range
    Dim listItem As ListItem
    Dim itemText As String
    Dim urlMatch As Object
    Dim regex As Object
    
    Set doc = ActiveDocument
    Set selRange = Selection.Range
    Set regex = CreateObject("VBScript.RegExp")
    
    ' Configure regex to find URLs at the end of the text
    regex.Pattern = "(https?://.+)$"
    regex.Global = False
    regex.IgnoreCase = True
    
    ' Check if selection is within a numbered list
    If selRange.ListFormat.ListType = wdListNumbering Then
        ' Loop through each list item in the selection
        For Each listItem In selRange.ListFormat.List.ListItems
            ' Make sure the item is within the selected range
            If listItem.Range.InRange(selRange) Then
                itemText = listItem.Range.Text
                
                ' Check if there's a URL at the end of the item
                If regex.Test(itemText) Then
                    Set urlMatch = regex.Execute(itemText)(0)
                    Dim mainText As String
                    Dim urlText As String
                    
                    ' Split into main text and URL
                    mainText = Left(itemText, urlMatch.FirstIndex)
                    urlText = urlMatch.Value
                    
                    ' Capitalize main text words (exclude URLs)
                    mainText = StrConv(mainText, vbProperCase)
                    
                    ' Recombine and update the list item
                    listItem.Range.Text = mainText & LCase(urlText)
                Else
                    ' No URL found, just capitalize the whole item
                    listItem.Range.Text = StrConv(listItem.Range.Text, vbProperCase)
                End If
            End If
        Next listItem
    Else
        MsgBox "Please select a numbered list range first!"
    End If
    
    Set regex = Nothing
    Set selRange = Nothing
    Set doc = Nothing
End Sub

How This Works #

• Regex Detection: The pattern (https?://.+)$ finds any URL starting with http:// or https:// that's at the end of the list item text.
• Text Splitting: We split each item into the content before the URL and the URL itself.
• Proper Case Conversion: StrConv(mainText, vbProperCase) capitalizes the first letter of each word in the main content without touching the URL.
• URL Preservation: The URL is converted to lowercase (just to be safe) and appended back to the capitalized main text.

Notes #

• Make sure your URLs are indeed at the end of each list item (as you mentioned) for the regex to catch them correctly.
• If you have URLs in the middle of items, you'd need to adjust the regex pattern, but this fits your specific use case.

内容的提问来源于stack exchange，提问作者Greedy