topic Ms word highlight text colour to red in Product Forum

Ms word highlight text colour to red

Rama_krishna — Thu, 01 Aug 2024 05:53:35 GMT

Hi all,

i have written a table in ms word now i want change some text colour to red or green

example in below table i want to change colour

www text colour to red and
yyy text colour to green.

need solution how to achieve.

Re: Ms word highlight text colour to red

faheemsd — Thu, 01 Aug 2024 07:34:09 GMT

Dear @Rama_krishna

Could you please create a custom code with the below in the MS Word VBO

Sub ChangeTextColor()
Dim doc As Document
Dim rng As Range

' Set the document object
Set doc = ThisDocument

' Change "www" text color to red
Set rng = doc.Content
With rng.Find
.Text = "www"
.Replacement.Text = "www"
.Replacement.Font.Color = wdColorRed
.Execute Replace:=wdReplaceAll
End With

' Change "yyy" text color to green
Set rng = doc.Content
With rng.Find
.Text = "yyy"
.Replacement.Text = "yyy"
.Replacement.Font.Color = wdColorGreen
.Execute Replace:=wdReplaceAll
End With
End Sub

Could you please implement the above and let me know the results.

Re: Ms word highlight text colour to red

Denis__Dennehy — Fri, 02 Aug 2024 09:36:26 GMT

I'd probably just say that rather than amending the official MS Word VBO, best practice is to create a separate VBO with any new actions (plus the connect/attach actions so you can use it). Not amending the official word VBO will make it easer to take newer versions of it in future.

Re: Ms word highlight text colour to red

Rama_krishna — Mon, 05 Aug 2024 05:38:50 GMT

Hi @faheemsd below error i am getting

'Let' and 'Set' assignment statements are no longer supported.

Re: Ms word highlight text colour to red

faheemsd — Sat, 17 Aug 2024 21:08:21 GMT

Dear @Rama_krishna

I apologies for the delay in responding; my project work kept me quite busy.

I have made the code so simple that you may use any color to apply it to any text that is included in the Word document.

Input Parameters:

handle

document name
textTocolor

colorNumber

Code used in Code stage

' Find and replace text color
Dim d As Object = GetDocument(handle,document_name)
Dim r As Object = d.Range

' Execute find and replace
Do While r.Find.Execute(textTocolor)
r.Font.Color = colorNumber ' wdColorRed
r.Start = r.End
Loop
' Release objects
r = Nothing

for your requirement
red color number= 225
Green color number = 5287936

This is how we can achieve adding the colors to the required text in Word Document using Blue Prism
Please let me know if you face any difficulties Implementing the above steps.
@Michael_S All Blue Prism users will find this code useful in changing the text color in Word documents.