Save Active Word Doc with URL File Path

[paulked]

I got the error 'Bad File Name on the

Set objDoc = objWord.Documents(OrigDoc)

line. But this worked for any location:

Sub ActiveURLWordDoc()
    Dim objWord As Word.Application
    Set objWord = GetObject(, "Word.Application")
    objWord.ActiveDocument.Save
    objWord.ActiveDocument.Close
End Sub