Hello ChrisATBase,

Sorry about that, There should be Set statement before Folder. Here is the corrected macro code...
 
Sub Cement2()

    Dim File        As Object
    Dim Folder      As Object
    Dim Path        As Variant
    Dim wdApp       As Object
    Dim wdDoc       As Object
    Dim Wks         As Worksheet

        Set Wks = ActiveSheet

        With Application.FileDialog(msoFileDialogFolderPicker)
            If .Show = -1 Then
                Path = .SelectedItems(1)
            Else
                Exit Sub
            End If
        End With
    
        With CreateObject("Shell.Application")
            Set Folder = .Namespace(Path)
            Set Files = Folder.FolderItems
                Files.Filter 64, "*.docx"
        End With
        
        Set wdApp = CreateObject("Word.Application")
            wdApp.Visible = True
    
        For Each File In Files
            Set wdDoc = wdApp.Documents.Open(File)
                Call ReplaceWords2(wdDoc, Wks, False)
                Call CopyPasteImage2(wdDoc, Wks, False)
            wdDoc.Close SaveChanges:=True
        Next File
        
        wdApp.Quit

End Sub