一、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执行即可。
Sub CorruptFiles( )
Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""
Dim sFile As String, StartPos As Long
Dim Buff() As Byte
OpenAgain:
sFile = InputBox("请指定待破坏的文件(请勿非法他用):", "消息", "c:Test待破坏的测试文件.doc")
If Dir(sFile) = "" Then
Rc = MsgBox("你指定的文件不存在,请重新指定!", vbCritical + VbRetrCancel, "消息")
If Rc = vbRetry Then GoTo OpenAgain
Exit Sub
End If
Open sFile For Binary Access Read As #11
Flen = LOF(11)
StartPos = Int(Flen * 0.1) '将文件头的10%内容删除掉,只保留文件内容的后面90%的内容,文件头不存在被破坏了,文件也就被破坏了
ReDim Buff(1 To Flen - StartPos)
Seek #11, StartPos + 1
Get #11, , Buff
Close #11
Pos=InstrRev(sFile,".")
sFile=Left(sFile,Pos-1)+"_被破坏的文件" +mid(sFile,Pos)
Open sFile For Binary Access Write As #11 '制作被人为破坏的文件
On Error Resume Next
Put #11, , Buff
Close #11
Rc = MsgBox("损坏文件已制作完毕!要测试打开被破坏的文件吗?", vbInformation + vbYesNo, "消息")
If Rc = vbYes Then Shell Replace(Sh, "#", sFile)
End Sub