用代码删除模板文件被拒绝

ke3088

我试图用以下代码删除模板文件：
Sub 文件排版08() '删除 Word 模板文件
    Dim myTemplate$
    myTemplate = ActiveDocument.AttachedTemplate.FullName
   
    MsgBox "myTemplate=" & myTemplate
   
    If Dir(myTemplate) <> "" Then
       Kill myTemplate
    End If
End Sub
结果显示：拒绝的权限
请大师们帮助，如何用代码删除模板文件，谢谢

13602822168

感觉好难。。。。。

daibao88

正在使用的模板，怎么能删除。皮之不存，毛将焉附。

ke3088

daibao88 发表于 2020-2-5 17:25
正在使用的模板，怎么能删除。皮之不存，毛将焉附。

有一定道理。
我在多台电脑试过，有的电脑可以删，有的电脑不能删

daibao88

Sub 文件排版08() '删除Word文件非Normal的模板，代码写于Normal模板模块下
    Dim myTemplate$
    myTemplate = ActiveDocument.AttachedTemplate.fullname
   ' MsgBox "myTemplate=" & myTemplate
    ActiveDocument.Close savechanges:=True
     If VBA.InStr(1, myTemplate, "Normal.dot") = 0 Then
        Kill myTemplate
    End If
End Sub

ke3088

这段代码：
Sub 文件排版08() '删除 Word 模板文件
    Dim myTemplate$
    myTemplate = ActiveDocument.AttachedTemplate.FullName
   
    MsgBox "myTemplate=" & myTemplate
   
    If Dir(myTemplate) <> "" Then
       Kill myTemplate
    End If
End Sub
在多台电脑试过，有的电脑可以删，有的电脑不能删。
有什么办法使得这段代码能删就删，如果不能删，不显示提示，继续执行后面的代码。

ke3088

经过测试，Win 7的电脑可以删，Win XP不可以删

lss001

' Shell函数执行cmd自动删除无需权限！
Shell "cmd /c del " & myTemplate

ke3088

lss001 发表于 2020-2-9 00:51
' Shell函数执行cmd自动删除无需权限！
Shell "cmd /c del " & myTemplate

高手就是高手，简单好用，谢谢

tangqingfu

lss001 发表于 2020-2-9 00:51
' Shell函数执行cmd自动删除无需权限！
Shell "cmd /c del " & myTemplate

谢谢分享！