Solved

Word 2003

Posted on 2009-07-14
3
198 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
Comment Utility
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
Comment Utility
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
Comment Utility
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

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

As with any other System Center product, the installation for the Authoring Tool can be quite a pain sometimes. This article serves to help you avoid making these mistakes and hopefully save you a ton of time on troubleshooting :)  Step 1: Make sur…
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…
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 …
This Micro Tutorial well show you how to find and replace special characters in Microsoft Word. This is similar to carriage returns to convert columns of values from Microsoft Excel into comma separated lists.

728 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now