On Error Goto 0 , я так понимаю, в случае ошибки запускает код сначала.

Нет. Эта инструкция восстанавливает «умолчальный» обработчик ошибок, что сводится к прерыванию работы скрипта в случае возникновения ошибки и выводу сообщения об ошибке.

Option Explicit

Dim objWord
Dim objDocument

On Error Resume Next
Set objWord = GetObject(,"Word.Application")

If Err.Number = 0 Then
    On Error Goto 0
    
    For Each objDocument In objWord.Documents
        WScript.Echo objDocument.FullName
    Next
    
    Set objWord = Nothing
Else
    Err.Clear
    On Error Goto 0
End If

WScript.Quit 0

Если имя документа известно заранее:

Option Explicit

Dim strFullName
Dim objDocument


strFullName = "c:\Temp\Bla-bla-bla.doc"

On Error Resume Next
Set objDocument = GetObject(strFullName)

If Err.Number = 0 Then
    On Error Goto 0
    
    WScript.Echo objDocument.Range.Text
    
    Set objDocument = Nothing
Else
    Err.Clear
    On Error Goto 0
End If

WScript.Quit 0