怎样才能故意破坏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