Manipulating a string while keeping format of substrings - vba

Question

I wanted to create a string that is the result of concatenating the character "A" to the last 3 characters of an existing string "JKLXYZ". In this string the "Y" is blue, the rest is automatic colour. The result to obtain is "AXYZ" with the "Y" still in blue.
I wanted to write :
Dim myString as String
myString = "A" & right(myString,3)
Two questions I would appreciate help with :
How do I get the original string from the Word document into the myString variable while keeping its formatting = the "Y" in blue ?
Assuming that I have been able to get into myString the original string with the "Y" in blue, how do I avoid the concatenation and/or the RIGHT function to destroy the format (the "Y" should still be in blue)
Thanks very much.

Answer 1

I crafted some macro. (note: I am not a VBA export!):
Sub Macro1()
'
'
Dim myString As String
Dim myColor As Double
myColor = -738131969
' Find something in myColor
Selection.Find.ClearFormatting
Selection.Find.Font.Color = myColor
Selection.Find.Execute
' Select the word with the character in myColor
Selection.MoveLeft Unit:=wdWord, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
' check if the selected word contains "XYZ"
If InStr(1, Selection.Text, "XYZ") > 0 Then
myString = Selection.Text
myString = "A" & Right(myString, 3)
' Insert the text after the current selection
Selection.InsertAfter Text:=" " & myString
Selection.MoveRight Unit:=wdWord, Count:=1
' Change the color of the "Y" to myColor
Selection.MoveLeft Unit:=wdCharacter, Count:=2
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.TextColor = myColor
End If
End Sub
NOTE: The changed string will be inserted after the found piece of text.