title: Change the colour of text in the footer of a Word document
body: <p>I'm using VBA to insert some text in to the footer of a document, and I wish to then change the colour of the text.</p>
  
  <p>I've tried using <code>Selection.Range.Font.ColorIndex</code> but this doesn't seem to work. I've also tried manually settings the colour and recording a macro, but VBA doesn't pick up on the colour change.</p>
  
  <p>Does anybody know how I can achieve this? Thanks.</p>
  
  <pre><code>'**
   ' Insert the required text into the footer of the document
   '
   ' @param required String footerText    The text to insert into the document footer
   ' @param Boolean insertDate            Whether or no to insert the date into the document footer
   '*
  Sub DoFooterText(ByVal footerText As String, _
                   Optional ByVal insertDate As Boolean = True)
  
      Selection.GoTo What:=wdGoToPage, Count:=2                       ' Go to page 2 of the document (no footer on page 1)
      Selection.MoveRight Unit:=wdCharacter, Count:=1                 ' Move the cursor to the right of the document
      ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter     ' Switch the view to the header
      Selection.TypeText text:=footerText                             ' Insert the footer text
      If insertDate = True Then                                       ' Insert the date into the footer
          Selection.TypeText text:=vbCrLf
          Selection.InsertDateTime _
              DateTimeFormat:="dd/MM/yyyy", _
              InsertAsField:=False, _
              InsertAsFullWidth:=False, _
              DateLanguage:=wdEnglishUK, _
              CalendarType:=wdCalendarWestern
      End If
      Selection.Range.Font.ColorIndex = wdGray50                      ' Set the colour of the footer text
      ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument      ' Switch the view back to the main document
      Selection.HomeKey Unit:=wdStory                                 ' Move the cursor back to the top of the document
  
  End Sub
  </code></pre>