ID: Q132719
The information in this article applies to:
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.
There are two reasons for the templates not appearing on the lists:
This is an Office Preview Program problem and will not occur in the released version of the product.
Method 1: Rename the files and create a shortcut for each template:
a. 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.
b. 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.
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
KBCategory: kbusage
KBSubcategory: kbtemplate
Additional reference words: word95 7.0 word7
Keywords : kbtemplate
Version : 7.0
Platform : WINDOWS
Last Reviewed: February 6, 1998