Text box- text color

BLUEPUPIL · #1 04-09-2018, 03:35 AM

I've got a macro, which inserts a text box with a symbol(text) in it. The color of the symbol is Black-(R,G,B)-0,0,0. I want to make it Red-(R,G,B)- 255,0,0. There are two options to achieve this. First by altering the color from black to red and second by changing the initial color. The main difficulty for me is to recognize which part of the macro script deals with the symbol(text) color. Do you have any suggеstions?

Code:

Sub InsertTB()
Dim Shp As Shape
Set Shp = ActiveDocument.Shapes.AddTextbox(1, fcnXCoord, fcnYCoord, 288, 72)
With Shp
.TextFrame.TextRange.InsertSymbol Font:="+Body", CharacterNumber:=9679, Unicode:=True
.Line.Visible = msoFalse
.Fill.Visible = msoFalse
.Width = 155#
.Height = 62#
End With
Set Shp = Nothing
End Sub
Function fcnXCoord() As Double
fcnXCoord = Selection.Information(wdHorizontalPositionRelativeToPage)
End Function
Function fcnYCoord() As Double
fcnYCoord = Selection.Information(wdVerticalPositionRelativeToPage)
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Advanced Font Color Manipulation In Word: Inserting another color than the surrounding text	stuartg	Word	1	02-20-2017 12:38 AM
Text Field [content control] - Default text color vs Filled Text color	jackcoletti	Word	3	02-01-2017 08:10 AM
VBA Word - Find Text Font Color - Insert New Text	jc491	Word VBA	2	01-04-2016 05:42 PM
Remove white text background (keeping the font color and page color intact	cc3125	Word	1	10-26-2015 06:44 PM
Macro to search warning text style and replace the text color	rohanrohith	Word VBA	3	11-27-2014 01:08 PM