Word 2003

Having Problems with Add-In Templates.

Some externally recieved Word documents, and some old templates in our system seem to Hang on opening Word 2003, (between 10 - 15 Min). This seems to be related to a reference to the original template. If I go to Tools -> Options-> Templates and Add-Ins. the External documents have a reference to other clients Servers, and our old templates refer to old Servers decomissioned years ago. This only started hapeening a few weeks back?

If I change this reference to Normal.dot and save document, then the document opens fine, next time.

Any ideas on how to solve this? and more importantly why it has started to happen in the first place!
KS_BHENRYAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

GrahamSkanRetiredCommented:
This will happen if the attached template server cannot be found.

The documents need to be opened and the attached template changed to one that can be found.

If you are have a lot of these, the snippet has a macro to open all the document files in a folder and its subfolders. As it stands, it checks for the a server share called: "\\Oldserver\templates\", but you would have to change that as well as the new server name.

If possible, I suggest setting up a server with the old name in order to speed up the process.
'example to show usage
Sub Changetemplates
   FindFiles MyFolder, "*.doc"
end sub
 
' main macro
 
Sub FindFiles(strFolder As String, strFilePattern As String)
    Dim strFileName As String
    Dim strFolders() As String
    Dim iFolderCount As Integer
    Dim i As Integer
    Dim Doc As Document
   
    'collect child folders
    strFileName = Dir$(strFolder & "\", vbDirectory)
    Do Until strFileName = ""
        If (GetAttr(strFolder & "\" & strFileName) And vbDirectory) = vbDirectory Then
            If Left$(strFileName, 1) <> "." Then
                ReDim Preserve strFolders(iFolderCount)
                strFolders(iFolderCount) = strFolder & "\" & strFileName
                iFolderCount = iFolderCount + 1
            End If
        End If
        strFileName = Dir$()
    Loop
   
    'process files in current folder
    strFileName = Dir$(strFolder & "\" & strFilePattern)
    Do Until strFileName = ""
            DoEvents
            Set Doc = Documents.Open(strFolder & "\" & strFileName)
            If Doc.AttachedTemplate.Path = "\\Oldserver\templates\" Then
                Doc.AttachedTemplate = "\\NewServer\templates\" & Doc.AttachedTemplate.Name
                Doc.Close wdSaveChanges
            Else
                Doc.Close wdDoNotSaveChanges
            End If
        strFileName = Dir$()
    Loop
   
    'look through child folders
    For i = 0 To iFolderCount - 1
        FindFiles strFolders(i), strFilePattern
    Next i
End Sub

Open in new window

0
KS_BHENRYAuthor Commented:
I've seen this solution on Microsofts site, but this is also happening with external Word documents sent in by clients (the server doesn't exist in our Site and never has) This wasn't happening a few weeks ago?
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
KS_BHENRYAuthor Commented:
I've created DNS alias's which help for 99% of internal documents, but can't solve the issue for External docs, not sure why this has started happpening, is there no way of turning this check off in Word , force word to always look at normal.dot?
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Applications

From novice to tech pro — start learning today.