posta pra gente o trecho do código que você criou fica mais fácil

 

Segue um trecho do código:

Function CreateDoc()
    Dim WordObj As Word.Application
    Dim WordDoc As Word.Document
    Dim WordRng As Word.Range
    Dim WordPar As Word.Paragraph
    Set WordObj = CreateObject("Word.Application")
    With WordObj
        .Visible = True
        .WindowState = wdWindowStateMaximize
        .Documents.Add
        Set WordDoc = WordObj.ActiveDocument
   
        Set WordRng = WordDoc.Range
        With WordRng
            .Font.Name = "Monotype Corsiva"
            .Font.Color = wdColorRed
            .Font.Bold = True
            .Font.Italic = True
            .Font.Size = 48
            .InsertAfter "Primeiro texto aqui" ' primeiro
            .InsertParagraphAfter ' segundo
            .InsertParagraphAfter ' tereceiro
            .InsertParagraphAfter ' quarto
        End With
        Set WordPar = WordRng.Paragraphs(4)
   
        With WordPar.Range
            '.Select
            .Font.Color = wdColorGreen
            .Font.Name = "Arial"
            .Bold = False
            .Italic = True
            .Font.Underline = wdUnderlineWavyDouble
            .Font.Size = 25
            .InsertAfter "Documento Criado por Ivan Luiz Coelho em:  "
            .Collapse Direction:=wdCollapseEnd
            .InsertDateTime DateTimeFormat:="DD-MMMM-YYYY HH:MM:SS"
        End With
              
       
        If MsgBox("Deseja alterar o texto", vbExclamation + vbYesNo) = vbYes Then
      
       WordRng.Paragraphs(4).Range.Delete ' apaga o paragrafo a ser modificado
       WordRng.Paragraphs(3).Range.InsertParagraph ' insere um novo paragrafo (anteriormente excluido)
       Set WordPar = WordRng.Paragraphs(4) ' seta o paragrafo para edição;
       
        With WordPar.Range
            .Font.Color = wdColorBlue
            .Font.Name = "Arial"
            .Bold = False
            .Italic = True
            .Font.Underline = wdUnderlineWavyDouble
            .Font.Size = 25
            .InsertAfter "Documento alterado por Fulano de Tal em:  "
            .Collapse Direction:=wdCollapseEnd
            .InsertDateTime DateTimeFormat:="DD-MMMM-YYYY HH:MM:SS"
        End With
           
       End If
         .ActiveDocument.SaveAs "C:AutCreateDate.Doc"
        ' Tire o comentário da linha abaixo para fechar o Word.
        '.Quit
    End With
End Function

Tenta o seguinte feche os objetos no final da função

 

Set WordObj= Nothing
Set WordDoc= Nothing

Set WordRng= Nothing
Set WordPar= Nothing