Word VBA Macro

[Steve001]

Hello,

I am not familiar with macros in word but have used them in excel quite a bit...
Is it possible to look through a word document for hyper links these are mainly from 'insert cross reference' then do the following ....

Some of these can be inside tables from 'insert table function'

check if it has an underline
underline if not

check the colour
set to dark blue if not

PS. Please put comments in the code so i can understand

I am using office 363 & office 2021

Regards
Steve

 

[Macropod]

For that, you could use a macro like:

Sub RefColorizer()
Application.ScreenUpdating = False
Dim Fld As Field, StrTxt As String
With ActiveDocument
  For Each Fld In .Fields
    With Fld
      If .Type = wdFieldRef Then
        StrTxt = Trim(.Code.Text)
        If InStr(StrTxt, "\h") > 0 Then
          StrTxt = "REF " & Split(StrTxt, " ")(1) & " \* Charformat \h"
          .Code.Text = StrTxt: .Code.Font.Underline = True: .Code.Font.ColorIndex = wdBlue
        End If
      End If
    End With
  Next
  .Fields.Update
End With
Application.ScreenUpdating = True
End Sub

 

[Steve001]

Thank you, i will try this monday and get back to you

Steve

 

[Steve001]

Hi Macropod,

This worked a treat thank you, Very much appriciated.

Steve