如何彻底删除Word文档版本信息？如何隐藏文档版本号？

作者：佚名|分类：Word|浏览：170|发布时间：2025-03-25 20:14:21

在Word文档的使用过程中，版本信息可能会暴露文档的编辑历史，有时这并不是我们希望看到的。以下是一些详细的方法，帮助您彻底删除Word文档版本信息以及隐藏文档版本号。

一、彻底删除Word文档版本信息

1. 使用“文件”选项卡

步骤：

（1）打开Word文档。

（2）点击“文件”选项卡。

（3）在左侧菜单中选择“信息”。

（4）在右侧的“文档属性”部分，找到“版本”。

（5）点击“版本”旁边的下拉箭头，选择“高级属性”。

（6）在弹出的窗口中，取消勾选“包括文档版本信息”。

（7）点击“确定”保存更改。

2. 使用宏

步骤：

（1）打开Word文档。

（2）按下“Alt + F11”键，打开VBA编辑器。

（3）在“插入”菜单中选择“模块”。

（4）在打开的模块窗口中，复制以下代码：

```vba

Sub RemoveVersionInfo()

Dim objDoc As Document

Set objDoc = ActiveDocument

With objDoc

.CustomDocumentProperties.Clear

.CustomDocumentProperties.Add Name:="Keps", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Keywords", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Manager", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="OfficeDocumentSettings", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="RevisionNumber", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Template", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Title", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Company", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="LastAuthor", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="LastPrinted", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Created", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="LastSaved", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Pages", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Words", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Characters", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Application", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Security", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Lines", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Paragraphs", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="CharactersWithSpaces", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Tables", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Charts", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Embellishments", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="Images", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="OleObjects", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="FileVersion", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="StatString", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="HyperlinksChanged", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="LinksUpToDate", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="ScaleCrop", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="HypertextLinks", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="CharactersEastAsia", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="CharactersOther", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="LinesStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="ParagraphsStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="CharactersWithSpacesStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="TablesStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="ChartsStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="EmbellishmentsStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="ImagesStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="OleObjectsStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="FileVersionStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="StatStringStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="HyperlinksChangedStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="LinksUpToDateStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="ScaleCropStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="HypertextLinksStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="CharactersEastAsiaStd", LinkToContent:=False, Value:=""

.CustomDocumentProperties.Add Name:="CharactersOtherStd", LinkToContent:=False, Value:=""