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

gmayor · #2 04-09-2018, 04:47 AM

It's a characteristic of the font in the text range e.g.

Code:

With .TextFrame.TextRange
            .InsertSymbol Font:="+Body", CharacterNumber:=9679, Unicode:=True
            .Font.ColorIndex = wdRed
End With

BLUEPUPIL · #3 04-11-2018, 04:09 AM

[IMG]

[/IMG]

eduzs · #4 04-11-2018, 04:41 AM

Code:

With Shp
      With .TextFrame.TextRange
            .InsertSymbol Font:="+Body", CharacterNumber:=9679, Unicode:=True
            .Font.ColorIndex = wdRed
      End With
 .Line.Visible=msofalse
.
.
.

gmayor · #5 04-11-2018, 05:05 AM

You didn't copy what I posted, so no wonder it doesn't work. Font is an attribute of the text range not of the shape.

BLUEPUPIL · #6 04-11-2018, 06:53 AM

[IMG]

[/IMG] [IMG]

[/IMG]

macropod · #7 04-11-2018, 03:03 PM

You still haven't implemented the code as advised...

BLUEPUPIL · #8 04-13-2018, 02:38 AM

[IMG]

[/IMG]

BLUEPUPIL · #9 04-13-2018, 03:05 AM

On the first place my gratitude goes to gmayor for supplementing the script, then to eduzs for digging into details and finally to macropod for his confirmation that I'm on a wrong track. *** I decided to take my chances and first changed the CharacterNumber from 9679(symbol=dot) to 9632 (symbol=square) then highlighted the symbol with a yellow color. To my great surprise it worked. However, it is hard to believe that, this time I've made things right at the first attempt. I need your final approval of the edited script.

BLUEPUPIL · #10 04-13-2018, 03:51 AM

[IMG]

[/IMG]

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