office的论文查重显示未保存

office的论文查重显示未保存

1.office 2010,文档未保存,office进程停止,在打开office文档,会显示下图中的现象,怎么操作才能保存

上次的?

  • 那不是有一个另存为吗?点击它重新保存。

2.office恢复未保存文件

  • word恢复未保存文档

3.为什么EXCEL保存时出现文档未保存的提示??

朋友发了个EXCEL文件给我~我打开文件在里面修改后,就保存不了~~请高手指教一下~~~

  • 1、先来打开Excel ,接着点击固定栏的【文件】选项,等我们进入后点击【选项】按钮。

    2、在新弹出的窗口找到并点击【保存】选项。

    3、这个时候会弹出一个新的对话框,在弹出的新的对话框就可以看到【自动恢复文件的位置】的选项了,这个就是文件自动保存在的目录了。

    4、就要把里面的路径全部选中,就可以来点击一下右键了,接着就可以复制这个路径了,复制这个。

    5、在打开一个文件夹,可以在路径输入栏中把刚才复制的粘贴过来,打开之后就可以看到文件了。

  • EXCEL保存时出现“文档未保存”提示的可能原因:

    1.宏出问题。

    2.部分模块丢失。

    3.病毒破坏。

    4.采用了“自动筛选”和“冻结窗口”两个功能。

    5.临时文件没有被删除。

    6.软件未正确安装或使用过程中被损坏。

    解决办法:

    1.先打开需要处理的excel,然后打开工具栏--宏--录制新宏--确定--停止录制宏--宏-宏--编辑--复制以下程序

    Sub 恢复保存()

    name0 = ActiveWorkbook.Name

    j = Sheets.Count

    For i = 1 To j

    Sheets(1).Visible = -1

    Sheets(1).Move

    Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)

    Next

    End Sub

    然后接着运行宏,后停止。最后关闭即可。

    2.重装软件。

    3.用杀毒软件对电脑全盘杀毒。

  • 同时按Alt和F11,如果你朋友未给宏设密码,可以在左上窗口找到Thisworkbook,双击它,应该会有以下类似代码:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    ThisWorkbook.Saved = True

    ThisWorkbook.Close 0

    End Sub

    把这些玩意删除就可以了。

    如果文件的宏已设密码,请做如下操作:

    关闭你的文件,新开一Excel,同时按Alt和F11,进入VBA界面,右键点左上窗口的Thisworkbook,插入,模块,在右边出来的窗口中粘贴如下代码:

    Sub MoveProtect()

    Dim FileName As String

    FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")

    If FileName = CStr(False) Then

    Exit Sub

    Else

    VBAPassword FileName, False

    End If

    End Sub'设置VBA编码保护

    Sub SetProtect()

    Dim FileName As String

    FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")

    If FileName = CStr(False) Then

    Exit Sub

    Else

    VBAPassword FileName, True

    End If

    End SubPrivate Function VBAPassword(FileName As String, Optional Protect As Boolean = False)

    If Dir(FileName) = "" Then

    Exit Function

    Else

    FileCopy FileName, FileName & ".bak"

    End If Dim GetData As String * 5

    Open FileName For Binary As #1

    Dim CMGs As Long

    Dim DPBo As Long

    For i = 1 To LOF(1)

    Get #1, i, GetData

    If GetData = "CMG=""" Then CMGs = i

    If GetData = "[Host" Then DPBo = i - 2: Exit For

    Next

    If CMGs = 0 Then

    MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"

    Exit Function

    End If

    If Protect = False Then

    Dim St As String * 2

    Dim s20 As String * 1

    '取得一个0D0A十六进制字串

    Get #1, CMGs - 2, St

    '取得一个20十六制字串

    Get #1, DPBo + 16, s20

    '替换加密部份机码

    For i = CMGs To DPBo Step 2

    Put #1, i, St

    Next

    '加入不配对符号

    If (DPBo - CMGs) Mod 2 <> 0 Then

    Put #1, DPBo + 1, s20

    End If

    MsgBox "文件解密成功......", 32, "提示"

    Else

    Dim MMs As String * 5

    MMs = "DPB="""

    Put #1, CMGs, MMs

    MsgBox "对文件特殊加密成功......", 32, "提示"

    End If

    Close #1

    End Function

    然后按F5,运行MoveProtect,在打开窗口中选择你说的文件,完成后,该文件的宏就没密码了。接着按我上面的步骤,可以解决了。

  • EXCEL保存时出现“文档未保存”提示的可能原因:

    1.宏出问题。

    2.部分模块丢失。

    3.病毒破坏。

    4.采用了“自动筛选”和“冻结窗口”两个功能。

    5.临时文件没有被删除。

    6.软件未正确安装或使用过程中被损坏。

    解决办法:

    1.先打开需要处理的excel,然后打开工具栏--宏--录制新宏--确定--停止录制宏--宏-宏--编辑--复制以下程序

    Sub 恢复保存()

    name0 = ActiveWorkbook.Name

    j = Sheets.Count

    For i = 1 To j

    Sheets(1).Visible = -1

    Sheets(1).Move

    Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)

    Next

    End Sub

    然后接着运行宏,后停止。最后关闭即可。

    2.重装软件。

    3.用杀毒软件对电脑全盘杀毒。

  • 可能是在服务器上打开的,建议另存到本地后编辑应该就可以了。

4.Microsoft office Word老是自动关闭,以致未保存的文档丢失是怎么回事儿,该如何解决

注:没有停电或计算机死机的情况,也没有误操作

  • 重装软件。

    不过,你有时间和精力去研究为什么会出故障的话,可以去研究下。

  • 可以有病毒,用最新的杀软件清扫下

  • 像这样的故障的确不太好解决。

    1、查毒。确认是否受病毒干扰所致。

    2、把Word卸载重新安装试试。看是否Word本身故障。

    3、少数情况下,也可能和输入法有关系。

    4、实在不行只有重装系统了。

5.office2013,对内容进行修改未保存时,标题栏的文件名后面会显示*(星号),怎么调出来

我记得不论是word还是ppt,excel,在对其内容作出修改并且没有保存时应该会有星号提示,重装一次后没了,请问如何调出来?如图1是刚打开,那么图二应该是做出修改但未保存时的样子(图中*星号是凭记忆画上的...)

  • 是OneDrive没有登录

  • 窗口下方的状态栏上,有个小磁盘的标志,“已保存”和“未保存”它的显示是不一样的。

office的论文查重显示未保存
下载Doc文档

猜你喜欢