vba word 批量删除批注

Sub 批量删除批注()

' 批量删除批注 Macro'

Dim fPk As FileDialog, fName, fType As String, 后缀 As String, t0, 计数

t0 = Timer

Set fPk = Application.FileDialog(msoFileDialogFilePicker)

With fPk

.AllowMultiSelect = True

.InitialFileName = "注意在此处放入需要处理word文件的文件夹地址"

.Show

fType = InputBox("请输入文件类型（支持通配符，如“doc*”）：", "文件类型", "doc*")

If .SelectedItems.Count > 0 Then

For Each fName In .SelectedItems

If fType = "" Then

MsgBox "文件类型为空，将退出程序！", vbInformation, "出错提示"

Exit Sub

Else

后缀 = Right(fName, Len(fName) - InStrRev(fName, "."))

If 后缀 Like fType Then

Call 删除批注(fName)

计数 = 计数 + 1

End If

Else

MsgBox "您未选择文件，将退出程序！", vbInformation, "出错提示"

Exit Sub

End If

End With

Set fPk = Nothing

If 计数 > 0 Then

Debug.Print "完成，共处理了" & 计数 & "个文件。用时" & Timer - t0 & "秒。"

MsgBox "完成，共处理了" & 计数 & "个文件。用时" & Timer - t0 & "秒。"

Else

Debug.Print "完成，没有类型符合要求的文件。用时" & Timer - t0 & "秒。"

MsgBox "完成，没有类型符合要求的文件。用时" & Timer - t0 & "秒。"

End If

End Sub

Sub 删除批注(fName)

Dim aDoc As Document

Application.ScreenUpdating = False

Set aDoc = Documents.Open(fName)

'此处以下写对文件的具体处理过程

If aDoc.ProtectionType = 3 Then

aDoc.Unprotect Password:="3q"

End If

Selection.SetRange Start:=7497, End:=7497

aDoc.DeleteAllComments

Debug.Print "已完成对文件《" & aDoc.FullName & " 》的处理。 "

'此处以上写对文件的具体处理过程

aDoc.Close wdSaveChanges

Application.ScreenUpdating = True

Set aDoc = Nothing

End Sub

vba word 批量删除批注相关推荐

【操作篇】Excel中如何批量删除批注
有没有发现,某些财务人员给的excel表格中各种红点点,特别是在做数据整理和清洗时,会特别捉急,一个个点选内心多么的~~(崩了) 其实批量删除批注不难,重点是在批量,是如何批量选择, 第一步!!! 方 ...
Excel如何批量删除批注
如下图表格区域中含有多个批注,现在想要将这些批注批量删除. 全选要删除批注的单元格区域点击下图选项(Excel工具箱,百度即可了解详细的下载安装方法,本文这里不作详细叙述) 选择[批量删除] 选择[ ...
word批量删除除英文间空格外的空格
word批量删除除英文间空格外的空格方法一方法二后记在网上复制粘贴大段文字,调整排版格式等等之后,发现还有一些多余的空格留在文章中,这对强迫症患者很不友好,如下. 如果直接使用"查找 ...
word批量删除空格，巨简单
word批量删除空格,巨简单按[Ctrl+H]组合键,打开"查找与替换"对话框在查找内容里面填: ^w 替换为那里不用填,最后直接点全部替换即可参考:链接
word批量删除空行方法
word批量删除空行方法其实很简单,就是用查找加替换就可以了方法:查找^p^p 替换为^p 这样就可以了注:这种方法只适合回车符在最前面,如何在后面有几个空格的话,则需要查找替换将空格替换掉,使回 ...
Word批量删除空格引发的学习
Word批量删除空格引发的学习由于近期在使用Word文档的时候需要进行空格的批量删除,于是,需求驱动了学习,其实word的功能极其强大,只是看你会不会使用了: 利用Word的"替换&quo ...
word批注怎么删除计算机名字,word批注删除不了,word怎么删除批注栏
为了方便大家阅读一般我们在制作办公文件或者重要文档的时候都会在重要的语句下标记和批注,近期就有用户在使用office办公的时候打开Word发现有许多墨迹批注,用户表示自己不需要这些批注该怎么将其去掉呢 ...
word批量删除艺术字
删除艺术字水印背景方法背景遇到一个文档是用艺术字打的水印,本来想看怎么能够批量选中艺术字对象,再统一删除,无奈并没找到对应的方法,最后成功通过宏语言,使用VBA代码实现删除艺术字的目的. 方法 ...
Word批量删除所有书签
Word中的书签功能可快速.准确定位文档中特定的位置,经常用于模板定制.文档产出等. 可一直以来,书签功能存在一个不便的操作,即无法批量删除,只能单个删除,操作极不友好. 解决方案我用代码暂时还改变 ...

vba word 批量删除批注

vba word 批量删除批注相关推荐

最新文章

热门文章