Error 426 el equipo o servidor remoto no existe o no esta disponible

Con el código que expongo he conseguido que me abra el documento y me automatice datos desde el formulario, pero cuando cierro el documento y le vuelvo a dar al botón para que repita la acción me sale el error "426 el equipo o servidor remoto no existe o no está disponible".

Podéis ayudarme a solucionar este problemón que no he sabido solucionar!

El código:
Private Sub Command1_Click()
Static wd1 As Word.Application
Static wd1Doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = True
Set wd1Doc = wd1.Documents.Add("C:\Users\usuario\Desktop\prueba.docx")
For Each myStoryRange In ActiveDocument.StoryRanges
With myStoryRange.Find
.Text = "aaa"
.Replacement.Text = "bbb"
.Wrap = wdFindContinue
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Highlight = False
.Execute Replace:=wdReplaceAll
End With
Next myStoryRange
End Sub

La zona que me marca el error es: 

For Each myStoryRange In ActiveDocument.StoryRanges