Solved

Word 2003

Posted on 2009-07-14
3
201 Views
Last Modified: 2012-05-07
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!
0
Comment
Question by:KS_BHENRY
  • 2
3 Comments
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 24848598
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
 

Accepted Solution

by:
KS_BHENRY earned 0 total points
ID: 24848965
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
 

Author Comment

by:KS_BHENRY
ID: 24849227
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

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Lync meeting or Lync conferencing is what many organizations would like to deploy to allow them save money. But companies are now giving up for various reasons, one of which is that they cannot join external meetings (non-federated company meetings)…
Technology opened people to different means of presenting information, but PowerPoint remains to be above competition. Know why PPT still works today.
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.

679 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question