Solved

Word 2003

Posted on 2009-07-14
3
200 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

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

The canonical version of this article is on my web site here: http://iconoun.com/articles/collisions/ A companion presentation is available here: http://iconoun.com/articles/collisions/Unicode_Presentation.pdf
Many companies are making the switch from Microsoft to Google Apps (https://www.google.com/work/apps/business/). Use this article to learn more about what Google Apps has to offer and to help if you’re planning on migrating to Google Apps. It is …
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
Learn how to make your own table of contents in Microsoft Word using paragraph styles and the automatic table of contents tool. We'll be using the paragraph styles in Word’s Home toolbar to help you create a table of contents. Type out your initial …

856 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