OPP: Can't See Word 6.0 Templates in Word for Windows 95Last reviewed: February 5, 1998Article ID: Q132719 |
The information in this article applies to:
SYMPTOMSAfter 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.
CAUSEThere are two reasons for the templates not appearing on the lists:
STATUSThis is an Office Preview Program problem and will not occur in the released version of the product.
WORKAROUNDMethod 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. Macro to Change Template Names to Lowercase Letters
Sub MAINx$ = 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 - 1Wend End Sub |
KBCategory: kbusage
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |