作者：乔山办公网日期：
返回目录：word文档
1、加密Word文档
如果Word文档不希望别人查看，可以通过添加打开密码来实现。为Word文档添加密码，可以通过下列两种方法来实现：
方法一：启动Word2003（其他版本操作相似，下同），打开需要加密的文档，执行“工具→选项”命令，打开“选项”对话框，切换到“安全性”标签下，在“打开文件时的密码”右侧的方框中输入密码，按下确定按钮，再确认输入一次密码，确定退出，然后保存一下当前文档即可。
注意：经过加密设置后，以后需要打开该文档时，需要输入正确的密码，否则文档不能打开。
方法二e5a48de588b6e79fa5e98193364：在对新建文档进行“保存”或对原有文档进行“另存为”操作时，打开“另存为”对话框。
单击工具栏上的“工具”按钮，在随后弹出的下拉列表中，选“安全选项”，打开“安全选项”对话框，在“打开文件时的密码”右侧的方框中输入密码，按下确定按钮，再确认输入一次密码，确定退出，然后保存当前文档即可。
—————————————————————————
2、保护Word文档
如果Word文档允许别人查看，而不允许别人修改，可以采取保护的方法来实现。
方法一：设置“修改文件时的密码”。仿照上述加密操作，在相应的对话框中，在“修改文件时的密码”右侧的方框中输入密码，按下确定按钮，再确认输入一次密码，确定退出后，保存当前文档即可。
注意：在打开设置了“修改文件时的密码”的文档时，会弹出如图5所示的对话框，不输入密码，直接按其中的“只读”按钮，即可打开文档进行浏览。而此时对文档所作的任何修改，均不能被保存到原文档中。
方法二：保护文档：执行“工具→保护文档”命令，展开“保护文档”任务窗格。
选中“仅允许在文档中进行此类编辑”选项，然后按下“是，启动强制保护”按钮，打开“启动强制保护”对话框，输入并确认输入密码一篇密码，确定返回即可。
注意：①对文档启动强制保护后，如果试图对文档进行编辑操作时，在状态栏会出现“不允许修改，因为此文档已经锁定”的提示。
②如果需要解除锁定，请执行“工具→取消文档保护”命令，输入正确的密码，确定即可。
word文档批量处理大师软件有这个功能的，可以批量添加word的打开密码、修改密码、保护密码，当然，也可以批量修改或者删除这些密码，强烈推荐！
word是基于Windows操作系统的应用程序，在DOS下好像不能百用。
不过办法总是有的，你可以在某度个文件夹下先建一个空白的word文档，如命名为"abc.doc"，然后利用copy命令，如其他知文件名依次为：abc1.doc、abc2.doc、abc3.doc、……
将下列文字（可在excel中生成道，再复制）复制到文本文件中（txt格式的文件，下例以创建12个文件为例，当然10000个文件也没问题专）
copy abc.doc abc1.doc
copy abc.doc abc2.doc
copy abc.doc abc3.doc
copy abc.doc abc4.doc
copy abc.doc abc5.doc
copy abc.doc abc6.doc
copy abc.doc abc7.doc
copy abc.doc abc8.doc
copy abc.doc abc9.doc
copy abc.doc abc10.doc
copy abc.doc abc11.doc
copy abc.doc abc12.doc
然后将此文本文件的后缀“.txt“更改为“.bat"，确属定，执行此文件即可。
可以把“2读书心得”文件夹下的所有word文档批量加密和解密。密码为7a686964616fe4b893e5b19e3395822。各句可根据实际修改
Sub 加密word()
On Error Resume Next
mypath = ActiveDocument.Path & "\2读书心得"
myname = Dir(mypath & "\" & "*.doc*")
Do While myname <> ""
Set wb = Documents.Open(mypath & "\" & myname, PasswordDocument:="5822")
wb.Password = "5822"
wb.Close True
myname = Dir
Loop
End Sub
Sub 解密word()
On Error Resume Next
Dim wb As Document
mypath = ActiveDocument.Path & "\2读书心得"
myname = Dir(mypath & "\" & "*.doc*")
Do While myname <> ""
Set wb = Documents.Open(mypath & "\" & myname, PasswordDocument:="5822")
wb.ReadOnlyRecommended = False
wb.Password = ""
wb.Close True
myname = Dir
Loop
End Sub