[在线求助]normal.dot的位置

yuyvtul

谁能告诉我，在Word的不同版本中(97,2000,XP,2003)，normal.dot的位置，与Windows的位置是否有关。谢谢。

plxmm

其实在资源管理器中搜索 normal.dot 即可找到

守柔

MsgBox Application.NormalTemplate.Path

yuyvtul

谢谢守老大，我未说清楚。

是一个程序的安装程序要拷贝normal.dot。因为我现在没有其它版本，所以来此求助。

守柔

以下是引用[I]yuyvtul[/I]在2006-2-6 19:43:20的发言：[BR]

谢谢守老大，我未说清楚。

是一个程序的安装程序要拷贝normal.dot。因为我现在没有其它版本，所以来此求助。

道理已经给出了，为什么还是不明白呢？ Option Explicit Private Sub Form_Load() Dim WordApp As Object, NormalPath As String, TargetPath As String On Error Resume Next TargetPath = "E:\Normal.dot" Set WordApp = GetObject(, "Word.Application") If Err.Number = 0 Then NormalPath = WordApp.NormalTemplate.FullName If MsgBox("Word 打开状态下本程序不能正确复制Normal.dot文件!是否关闭Word程序?", vbYesNo + vbExclamation + vbDefaultButton1, "ExcelHome") = vbYes Then WordApp.Documents.Close False WordApp.Quit Set WordApp = Nothing FileCopy NormalPath, TargetPath End If Else Err.Clear Set WordApp = CreateObject("Word.Application") NormalPath = WordApp.NormalTemplate.FullName WordApp.Quit Set WordApp = Nothing FileCopy NormalPath, TargetPath End If End Sub