如图，撤退按钮瞬间会变灰。即便在未变灰前点击回退也不会有实际回退效果。

出现这种情况很可能是模板文件出现损坏或有异常。可以通过删除模板文件让word重新自己生成模板文件来解决。

操作步骤如下：

step 1：打开资源管理器，在地址栏输入内容并回车： %appdata%\microsoft\Templates    



step 2：关闭word程序

注：如果有word正在运行，需要先关闭运行中的word程序。如果word在后台运行需要打开任务管理器关闭word程序。



step 3：删除文件：Normal.dotm



step 4：重新打开word文档正常

看看回退操作是不是又回来了。

注：已遭遇这种情况数次了，出现无法回退操作了就删除这个模板文件，目前来看效果还是可以的。网上有说修改注册表或是修改word选项这些方法都不管用。

处理完数个word，回头一看，才发现前面代码把一个符号搞反了。。。
把大于等于与小于等于两符号，颠倒了位置。。。晕。


马上用vba处理一下。


把这些word放在D盘根目录。逐个遍历并打开，逐一修改保存退出。OK！


代码如下：



Sub a()
    Dim doc As Document, myFile As String
    Dim a As Range
    
    myFile = Dir("D:\" & "*.docx")
    
    Do While myFile <> ""
        myFile = "D:\" & myFile
        Set doc = Documents.Open(myFile)
        Set a = doc.Range


        Selection.WholeStory
        '展开域
        Selection.Fields.ToggleShowCodes
        '≥≤ 把大换小，把小换小
        a.Find.Execute FindText:="≤", MatchWildcards:=True, replacewith:="$", Replace:=wdReplaceAll
        a.Find.Execute FindText:="≥", MatchWildcards:=True, replacewith:="#", Replace:=wdReplaceAll
        a.Find.Execute FindText:="$", MatchWildcards:=True, replacewith:="≥", Replace:=wdReplaceAll
        a.Find.Execute FindText:="#", MatchWildcards:=True, replacewith:="≤", Replace:=wdReplaceAll
        Selection.WholeStory
        Selection.Fields.ToggleShowCodes
        
        '保存退出
        doc.Save
        doc.Close
        
        Set doc = Nothing
        
        '查找下一个
        myFile = Dir
    Loop
End Sub



Sub a()
    Dim doc As Document, myFile As String
    Dim a As Range
    
    myFile = Dir("D:\" & "*.docx")
    Do While myFile <> ""
        myFile = "D:\" & myFile
        Set doc = Documents.Open(myFile)
        Set a = doc.Range
        
        Selection.WholeStory
        '展开域
        Selection.Fields.ToggleShowCodes
        '域调整
        a.Find.Execute FindText:="\s( ,", MatchWildcards:=False, replacewith:="\s\do6(", Replace:=wdReplaceAll
        a.Find.Execute FindText:="\s(", MatchWildcards:=False, replacewith:="\s\up7(", Replace:=wdReplaceAll
        Selection.WholeStory
        Selection.Fields.ToggleShowCodes
        
        Dim c As Range, strText As String
        '下标用域
        For Each c In a.Characters
            If c.Font.Subscript = True Then
                c.Select
                strText = Replace(c.Text, Chr(13), "")
                If strText <> "" Then
                    c.Delete
                    Set myfield = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=True) '增加一个新域
                    myfield.Code.Text = "eq \s\do4(" & strText & ")"
                Else
                    c.Font.Subscript = False
                End If
            End If
        Next
        
        '保存退出
        doc.Save
        doc.Close
        Set doc = Nothing
        '查找下一个
        myFile = Dir
    Loop
End Sub

删除C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates中的Normal模板

就可以了。如经常出现这种问题可以编写如下bat脚本，方便进行删除。
@echo off 
cd c:\Documents and Settings\Administrator\Application Data\Microsoft\Templates
del Normal.dotm

将这段代码保存到一个记事本中，修改后缀为.bat就可以很方便的删除文件了

环境
Windows 7 Ultimate English Edition + Microsoft Office 2010


问题
保存Word文档出现“由于文件许可权错误，word无法完成保存操作”。
 
解决
重新激活失败；




更改Word保存选项也失败；




更新注册表也失败；
最终解决办法：将要保存的文档保存到其他位置，不要覆盖以前的文件。保存完成后，删除以前的文档即可。
 
参考资料
http://zhidao.baidu.com/question/116127284.html
 
http://jingyan.baidu.com/article/ff42efa9473692c19e220204.html





 

@Wentasy 博文仅供参考，欢迎大家来访。如有错误之处，希望批评指正。原创博文如需转载请注明出处，谢谢 :) [CSDN博客]