Word VBA字符串操作：保留子串格式的技术问题咨询

Hey there! Let's tackle your two Word VBA questions step by step, since we're dealing with formatted text (not just plain strings):

First off, a quick critical note: regular String variables can only store plain text—they can't preserve formatting like the blue "Y". To keep that styling intact, you need to use Word's Range object, which retains all text formatting properties.

Here are a few common ways to grab your formatted "JKLXYZ" string:

• If the text is currently selected in the document:

  Dim originalRange As Range
  Set originalRange = Selection.Range
  ' Now originalRange holds "JKLXYZ" with the blue "Y"
  

• If the text is marked with a bookmark (e.g., named "TargetString"):

  Dim originalRange As Range
  Set originalRange = ThisDocument.Bookmarks("TargetString").Range
  

• If you need to find the text in the document first:

  Dim originalRange As Range
  Set originalRange = ThisDocument.Content
  With originalRange.Find
      .Text = "JKLXYZ"
      .MatchWholeWord = True
      If .Execute Then
          ' Found the formatted target string!
      End If
  End With
  

Your original idea of using Right() and string concatenation won't work here—those operations only handle plain text, so they'll strip away the blue formatting from "Y". Instead, we'll manipulate the Range object directly to keep styles intact.

The goal is to create "AXYZ" where "XYZ" keeps its original formatting (including the blue "Y"). Here's how:

1. First, grab the last 3 characters of your original formatted range:

   Dim lastThreeChars As Range
   Set lastThreeChars = originalRange.Duplicate ' Make a copy so we don't alter the original
   lastThreeChars.Start = lastThreeChars.End - 3 ' Shrink the range to just "XYZ"
   

2. Now, create your final "AXYZ" with preserved formatting:
   Option 1: Insert the result at the end of your document

   Dim resultRange As Range
   Set resultRange = ThisDocument.Content
   resultRange.Collapse Direction:=wdCollapseEnd ' Move to end of document
   
   ' Add the plain "A" first
   resultRange.Text = "A"
   resultRange.Collapse Direction:=wdCollapseEnd ' Move cursor after the "A"
   
   ' Paste the formatted "XYZ" (including blue "Y") after the "A"
   lastThreeChars.Copy
   resultRange.PasteAndFormat (wdFormatOriginalFormatting)
   

   Option 2: Replace the original text directly with "AXYZ"

   ' Delete the first 3 characters ("JKL") from the original range
   originalRange.Start = originalRange.Start + 3
   ' Now originalRange is just "XYZ" with blue "Y"
   
   ' Insert "A" at the start of this range
   originalRange.Collapse Direction:=wdCollapseStart
   originalRange.Text = "A"
   ' The range now expands to include "AXYZ", with "Y" still blue
   

To double-check the formatting is preserved, you can verify the "Y" color explicitly:

If lastThreeChars.Characters(2).Font.Color = wdColorBlue Then
    Debug.Print "Y is still blue!"
End If

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