OPP: Can't See Word 6.0 Templates in Word for Windows 95

Q132719


The information in this article applies to:


SYMPTOMS

After installing Word for Windows 95, you may not see your old Word 6.0 templates, even if you've already copied them to the MSOffice\Templates folder (where MSOffice is the folder in which you installed Office). When you click New on the File menu, the templates may not appear under any of the tabs.


CAUSE

There are two reasons for the templates not appearing on the lists:


STATUS

This is an Office Preview Program problem and will not occur in the released version of the product.


WORKAROUND

Method 1: Rename the files and create a shortcut for each template:

  1. Rename all the files at once with the macro at the end of this article.

    -or-

    Rename each file individually using Explorer. For more information about renaming files, see your Windows printed documentation or open the Windows Help Topics Index, and see the "renaming files" topic.


  2. Create a shortcut for each template. For more information about how to perform this task in Windows, see your Windows printed documentation or open the Windows Help Topics Index, and see the "shortcuts, adding to a folder" topic.

    When you click New on the File menu in Word, the templates for which you created shortcuts will appear under the General tab.


Method 2: Copy the entire folder containing the old templates and place the folder in the MSOffice\Templates directory. This will give you a new tab in the File Open dialog box. Or, copy all the templates and place them in the MSOffice\Templates directory, and they will appear under the General tab.

NOTE: It's possible that after moving the templates, you may still need to rename the Word 6.0 templates. If some templates still do not appear, use the following macro to rename them, or rename them individually using the Windows Explorer.

Macro to Change Template Names to Lowercase Letters


Sub MAIN
x$ = InputBox$("Please enter the path to your old templates directory")
FileFind .SearchPath = x$, .Name = "*.dot"
NumFiles = CountFoundFiles()
While NumFiles <> 0
     DirPos = InStr(FoundFileName$(NumFiles), "\")
     NoDirFileName$ = FoundFileName$(NumFiles)
     While DirPos
          NoDirFileName$ = Mid$(NoDirFileName$, DirPos + 1)
          DirPos = InStr(NoDirFileName$, "\")
     Wend
     If NoDirFileName$ <> "Normal.dot" Then
     Name FoundFileName$(NumFiles) As LCase$(FoundFileName$(NumFiles))
          Print "Now Renaming" + NoDirFileName$ + "to " +
          LCase$(NoDirFileName$)
     End If
     NumFiles = NumFiles - 1
Wend

End Sub 

Additional query words: word95 7.0 word7

Keywords : kbtemplate
Issue type :
Technology : kbWordSearch kbWordWSearch


Last Reviewed: December 14, 2000
© 2001 Microsoft Corporation. All rights reserved. Terms of Use.