高手请进:word如何清除用户隐私信息?
来源:百度知道 编辑:UC知道 时间:2024/06/06 21:09:11
是说Word文档属性里面的公司/作者之类的信息!
您有何良策?
你说的对,那要批量删除的话怎么办啦?我没有更好的办法!
请问楼主说的“隐私信息”具体指的是什么形式的隐私信息?
是说Word文档属性里面的公司/作者之类的信息?
还是说正文里面有类似的信息?
望明示,谢谢!
————————————————————
补充,请按如下步骤批量删除隐私信息:
1、在Word里面键入ALT+F11打开VBA编辑窗口;
2、选择菜单“插入-宏”;
3、粘贴如下代码:
Option Explicit
Sub ClearAll()
Const c_strRootFolder = "C:\Temp\docs\test\" ' 包含需要处理文档的文件夹
On Error Resume Next
Dim oDoc, oDocProp
Dim fso, oFolder, oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(c_strRootFolder)
For Each oFile In oFolder.Files
Set oDoc = Documents.Open(oFile.Path)
For Each oDocProp In oDoc.BuiltInDocumentProperties
Select Case oDocProp.Type
Case msoPropertyTypeString
oDocProp.Value = ""
Cas