Solved

Word 2003

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

Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Recursion / Iteration in Word 2013 Mail Merge 16 73
Free Online PDF Converter 2 59
Surface Book vs Surface Pro 4 76
Remove all hidden metadata properties of MS .Docx Files 7 35
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
Microsoft Word is a program we have all encountered at some point, but very few of us have dug deep into its full scope of features, let alone customized it to suit our needs. Luckily making the ribbon (aka toolbar, first introduced in Word 2007) wo…
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.

776 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