Q: Vba replace certain text in a word document? I am using the below code to try and replace certain text in a Word document and save a copy as.
Here's my code:
Sub Macro1()
Dim app As Word.Application
Dim doc As Word.Document

    Set app = CreateObject("Word.Application")
    app.Visible = True
    Set doc = app.Documents.Open("G:\QUALITY ASSURANCE\03_AUDITS\PAI\templates\Audit Announcement Template.docx")


    With app.doc.Content.Find
            .Text = "Insert Date"
            .Replacement.Text = "Hello"
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
        End With


    doc.SaveAs Filename:="G:\QUALITY ASSURANCE\03_AUDITS\PAI\templates\Audit Announcement Template2.doc", _
    FileFormat:=wdFormatDocument



    doc.Close
    app.Quit

End Sub

I get a compile error on this line:
With app.doc.Content.Find

Can someone please show me where I am going wrong?

A: Your With app.doc.Content.Find is not correct because doc is not a member of the app object, its a variable you have created.
Change to: With doc.Content.Find
As you open a .docx and you presumably want to save as such you need to:
doc.SaveAs Filename:="G:\path\file.docx", FileFormat:=WdSaveFormat.wdFormatDocumentDefault

You are early binding (via a reference) so no need for CreateObject()  instead you can simply:
Set app = new Word.Application

