VBScript is causing WINWORD.EXE and WSCRIPT.exe to hang up - vbscript

Question

I have this .vbs script that I use to automate the creation of a .doc file.
This script runs fine when launched from a .bat, or directly from the command line. But I have an external program launching this script and it becomes hung up. When this happens it has a bunch of WINWORD.exe and WSCRIPT.exe entries in the task manager.
Is there anything obviously wrong with this code that could cause issues?
Const wdReplaceAll = 2
Const workPath = "d:\work"
Const template = "template\template.doc"
UniqueId = Wscript.Arguments(0)
If Wscript.Arguments.Named.Exists("Tokens") Then
strTokens = Wscript.Arguments.Named.Item("Tokens")
End If
If Wscript.Arguments.Named.Exists("Values") Then
strValues = Wscript.Arguments.Named.Item("Values")
End If
arrToken = Split(strTokens,"|")
arrValue = Split(strValues,"|")
if UBound(arrToken) = UBound(arrValue) Then
CreateFax UniqueId, arrToken, arrValue
else
Wscript.Echo "Tokens and Values must be same length"
Wscript.Echo "Tokens: " & UBound(arrToken) + 1 & " Values: " & UBound(arrValue) + 1
end if
Sub CreateFax(UniqueId, arrToken, arrValue)
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Activate
objWord.DisplayAlerts = 0
Set objDoc = objWord.Documents.Open(workPath & "\" & template)
for i = 0 to UBound(arrToken)
FindAndReplace objWord.Selection, arrToken(i), arrValue(i)
next
objDoc.SaveAs(workPath & "\" & UniqueId & ".doc")
objWord.Quit
Set objSelection = Nothing
Set objDoc = Nothing
Set objWord = Nothing
End Sub
Sub FindAndReplace (objSelection, strFind, strReplace)
objSelection.Find.Text = strFind
objSelection.Find.Forward = TRUE
objSelection.Find.MatchWholeWord = TRUE
objSelection.Find.Replacement.Text = strReplace
objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll
End Sub

Answer 1

Even though StackOverflow isn't a debugging service...
No, there is not anything obviously wrong.
Have a look at the mentioned externel program, the automated process and debug them.
I have edited your question and reformatted the code block. For potential answerers it's always more pleasant to find a well described problem, nice formatting and not too much to scroll.