Any idea what I have to change to make this work without have the MS Word
Object reference checked? OR is there a way to automatically select the word
object library if the user does not have it checked?


Set WordApp = CreateObject("word.application") 'open Word session
WordApp.Visible = True 'Word visible during operation
WordApp.Activate
Set WordDoc = WordApp.Documents.Open(file_path) 'open Word doc

On Error Resume Next
With WordDoc.Content.Find
With .Replacement
End With
.Execute findtext:="<release plan status", ReplaceWith:="Initial", _
Replace:=wdReplaceAll
.Execute findtext:="<project/RIA ", ReplaceWith:="Project", _
Replace:=wdReplaceAll
.Execute findtext:="<project#", ReplaceWith:=strProjNum & " ", _
Replace:=wdReplaceAll
.Execute findtext:="<project name - or - <RIA name", _
ReplaceWith:=" " & strProjName, Replace:=wdReplaceAll
.Execute findtext:="<mm/dd/yyyy hh:mm A ", ReplaceWith:=strRlsDate, _
Replace:=wdReplaceAll
End With
WordDoc.Tables(1).Rows(2).Range.Font.Color = wdColorBlue
WordDoc.Tables(1).Rows(2).Range.ParagraphFormat.Al ignment =
wdAlignParagraphCenter
WordDoc.Tables(1).cell(2, 1).Range.text = "P & C Property Systems"

WordDoc.Tables(2).Rows(2).Range.Font.Color = wdColorBlue
WordDoc.Tables(2).cell(2, 1).Range.text = "1.0"
WordDoc.Tables(2).cell(2, 2).Range.text = Date
WordDoc.Tables(2).cell(2, 3).Range.text = "Created Document"
WordDoc.Tables(2).cell(2, 4).Range.Font.Color = wdColorAutomatic

On Error GoTo Err_WordDocs