Word Document Vba Excel - Combing two different codes

[Kenneth Hobs]

In post #9, you had already closed the doc and quit word by the True in the 2nd called routine. Whether to close the doc and quit Word is up to you.

Maybe:

Sub ReplaceWordAndCopyPasteImage()

    Dim wdApp       As Word.Application
    Dim Wks         As Excel.Worksheet
    Dim wdDoc       As Word.Document


    Set Wks = ActiveSheet


    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Set wdApp = CreateObject("Word.Application")
    End If
    On Error Goto 0
    wdApp.Visible = True


    Set wdDoc = wdApp.Documents.Open("C:\Users\Admin\Google Drive\SMS TEMPLATES\02 RISK ASSESSMENTS\001 Electrical works RA.docx")


    Call ReplaceWords(wdDoc, Wks, False)
    'Call CopyPasteImage(wdDoc, Wks, True)
    CopyPasteImage wdDoc, Wks, False
    
    On Error Resume Next
    wdDoc.Close
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing


End Sub