内容导航:


一、word文档被损坏了怎么办


工具:office word

步骤:

方法一:

打开office word,点击打开--对话框中“打开”后的三角--打开并修复,耐心等待一会,即可完成word文档修复。

方法二:

1、打开office word,在菜单栏单击【文件】——【另存为】。

2、单击“保存类型”,在下拉列表中选择【RTF格式(*.rtf)】,保存。

3、打开转换好的RTF文件,单击【文件】菜单中的【另存为】命令。

4、在【保存类型】列表中选择【Word文档(*.doc)】,保存。再打开word文档即可发现被损坏的部分已经修改完成了。



二、如何把损坏的word文档修复


一、替换格式法
  就是把损坏的Word文档存为另一种格式。

  1、打开被损坏的文档单击“文件/另存为”菜单,在“保存类型”列表中,选择“RTF格式”,然后单击“保存”按钮,并关闭word。

  2、打开刚才保存的RTF格式文件,再次使用“另存为”将文件重新保存为“Word文档”,现在打开这个word文件就可以发现文件已经被恢复过来了。

  如果在转换成rtf格式后文件仍然不能被恢复,可以将文件再次转换为纯文本格式(*.txt),再转换回Word格式,当然在转换为txt文件的时候其图片等信息会丢失掉。

二、删除格式信息法
  Word文档的最后一个段落符号记录着全篇文档的格式信息,有时删除这些格式信息就可以恢复变成乱码的文件。

  1、在打开损坏的文档后,单击“工具/选项”菜单,选择“编辑”标签,取消对“使用智能段落选择范围”复选框的勾选,然后单击 按钮。这样就可以修复文件了。

  2、选定最后一个段落符之外的全部内容,然后将这些内容粘贴复制到新的word文件中即可。
三、文档格式法
  这种方法是将损坏的Word文档转换为另一种格式,然后再将其转换回Word文档格式,这是最简单和最彻底的文档恢复方法。

  1.在Word中打损坏的文档后,选择“文件→另存为”,在“保存类型”列表中,选择“RTF格式(*.rtf)”,然后单击“保存”按钮。

  2.关闭损坏的文档,打开刚才保存的RTF格式文件,选择“文件→另存为”,在“保存类型”列表中,选择“Word文档(*.doc)”,然后单击“保存”按钮。

  3.关闭RTF文,打开修改后的Word文档。

  Word文档与RTF的相互转换将保留其格式,如果这种转换没有纠正文件损坏,则可以尝试与其他字处理格式的相互转换,这将不同程度地保留Word文档的格式。如果使用这些格式均无法解决本问题,可将文档转换为纯文本格式(*.txt),再转换回Word格式。由于纯文本的简单性,这种方法有可能更正损坏处,但是Word文档的所有格式设置都将丢失。

四、重设格式法
  Word用文档中的最后一个段落标记关联各种格式设置信息,特别是节与样式的格式设置,这样我们就可以将最后一个段落标记之外的所有内容复制到新文档,就有可能将损坏的内容留在原始文档中,步骤如下:

  1.在Word中打开损坏的文档,选择“工具→选项”然后选择“编辑”选项卡,取消“使用智能段落选择范围”复选框前的勾。取消选中该复选框,选定整个段落时,Word将不会自动选定段落标记,然后单击“确定”按钮。

  2.选定最后一个段落标记之外的所有内容,方法是:按“Ctrl+End”组合键,然后按“Ctrl+Shift+Home”组合键。

  3.在常用工具栏中,依次单击“复制”、“新建”和“粘贴”按钮。


三、怎样才能故意破坏WORD文档


1、把后缀改成dll或rmvb之类的然后用记事本打开,看到乱码,删几个字符,保存,再把后缀改回去。

2、如果懂编程,用Word的宏代码来故意损坏一个文件。将如下VBA代码复制到宏代码编辑器中,按F5执行即可。

  1. Sub CorruptFiles( )

  2. Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""

  3. Dim sFile As String, StartPos As Long

  4. Dim Buff() As Byte

  5. OpenAgain:

  6. sFile = InputBox("请指定待破坏的文件(请勿非法他用):", "消息", "c:Test待破坏的测试文件.doc")

  7. If Dir(sFile) = "" Then

  8. Rc = MsgBox("你指定的文件不存在,请重新指定!", vbCritical + VbRetrCancel, "消息")

  9. If Rc = vbRetry Then GoTo OpenAgain

  10. Exit Sub

  11. End If

  12. Open sFile For Binary Access Read As #11

  13. Flen = LOF(11)

  14. StartPos = Int(Flen * 0.1) '将文件头的10%内容删除掉,只保留文件内容的后面90%的内容,文件头不存在被破坏了,文件也就被破坏了

  15. ReDim Buff(1 To Flen - StartPos)

  16. Seek #11, StartPos + 1

  17. Get #11, , Buff

  18. Close #11

  19. Pos=InstrRev(sFile,".")

  20. sFile=Left(sFile,Pos-1)+"_被破坏的文件" +mid(sFile,Pos)

  21. Open sFile For Binary Access Write As #11 '制作被人为破坏的文件

  22. On Error Resume Next

  23. Put #11, , Buff

  24. Close #11

  25. Rc = MsgBox("损坏文件已制作完毕!要测试打开被破坏的文件吗?", vbInformation + vbYesNo, "消息")

  26. If Rc = vbYes Then Shell Replace(Sh, "#", sFile)

  27. End Sub