如何拆分Range对象并使用.Case=wdTitleWord修改指定子Range大小写

这里我们可以利用Word VBA的Find方法定位分隔符, ，然后基于定位结果拆分出两个独立的Range对象，再对第一个Range进行大小写调整。以下是完整的代码示例：

Sub SplitAndAdjustRange()
    Dim originalRange As Range
    Dim splitDelimiter As String
    Dim foundRange As Range
    Dim firstPartRange As Range
    Dim secondPartRange As Range
    
    ' 假设你已经创建好包含目标文本的originalRange，这里只是示例引用
    Set originalRange = ActiveDocument.Content ' 替换成你实际的Range对象
    
    splitDelimiter = ", " ' 定义分隔符
    
    ' 使用Find方法定位分隔符
    Set foundRange = originalRange.Duplicate
    With foundRange.Find
        .Text = splitDelimiter
        .MatchWholeWord = False
        .MatchCase = True
        .Execute
    End With
    
    ' 检查是否找到分隔符
    If foundRange.Find.Found Then
        ' 创建第一个Range：从原Range起始到分隔符前一位
        Set firstPartRange = originalRange.Duplicate
        firstPartRange.End = foundRange.Start - 1
        
        ' 创建第二个Range：从分隔符起始到原Range结束
        Set secondPartRange = originalRange.Duplicate
        secondPartRange.Start = foundRange.Start
        
        ' 调整第一个Range的大小写为wdTitleWord
        firstPartRange.Case = wdTitleWord
        
        ' 可选：验证结果，输出到立即窗口
        Debug.Print "第一部分调整后：" & firstPartRange.Text
        Debug.Print "第二部分：" & secondPartRange.Text
    Else
        MsgBox "未找到指定的分隔符：" & splitDelimiter
    End If
End Sub

关键步骤说明： #

• 定位分隔符：我们复制了原Range到foundRange，避免修改原Range的位置，然后用Find方法精准匹配, 。
• 拆分Range：
  • 第一个Range的结束位置设置为分隔符的起始位置减1，确保只包含“Speculative BUY”部分；
  • 第二个Range的起始位置直接设置为分隔符的起始位置，保留完整的“, FV: EGP19.59”部分。
• 大小写调整：调用Case = wdTitleWord会自动将每个单词的首字母大写，其余小写，刚好把“BUY”改成“Buy”。

注意事项： #

• 确保你的originalRange已经正确指向目标文本，替换代码里的ActiveDocument.Content为你实际的Range对象；
• 如果分隔符可能存在大小写差异，可以把.MatchCase = True改成False，不过你的需求里分隔符是固定的, ，所以保持精确匹配更稳妥。

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