Error 462: The remote server machine does not exist when working with Word via Excel VBA

You have two unqualified references to Word objects:

objSelection.Style = ActiveDocument.Styles("Heading 1")

which appears twice, needs to be:

objSelection.Style = objWord.ActiveDocument.Styles("Heading 1")

Otherwise you're creating an implicit reference to Word that you can't destroy in your code.

You should first ensure there are no oprhan winword.exe in task manager. Kill then or log out/in to get rid of them.

Then you should add something like this code to the end to 'explcitly' close word:

(I'm not sure of the exact syntax, hopefully you can work it out)

IF Not(objWord Is Nothing) Then

    objWord.Close(False)
    Set objWord = Nothing

End If

You should add something similar to your error handler.

What often happens is during development and debugging, sometimes word doesn't get closed properly and 'orphan' processes hang around even though they are not visible.

You may also wish to use

Set objWord = New Word.Application

instead of

Set objWord = CreateObject("Word.Application")

as that gives you autocomplete etc.

But there area advantages to each way.