文本内容:
Sub自动编号改为手动编号EndSubSub批量去除域EndSubSub__nterPara绝对居中中国式居中WithSelection.ParagraphFor__t.CharacterUnitFirstLineIndent=
0.FirstLineIndent=
0.CharacterUnitLeftIndent=
0.LeftIndent=
0.CharacterUnitRightIndent=
0.RightIndent=
0.Alig__ent=wdAlignParagraph__nterEndWithEndSubSub选中所有的表格DimtempTableAsTableApplication.ScreenUpdating=FalseIfActiveDocument.ProtectionType=wdAllowOnlyFormFieldsThenMsgBox文档已保护+填写窗体,此时不能选中多个表格ExitSubEndIfActiveDocument.DeleteAllEditableRangeswdEditorEveryoneForEachtempTableInActiveDocument.TablesNextActiveDocument.SelectAllEditableRangeswdEditorEveryoneActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSubSub文本反选对常规文本进行反选DimmyRangeAsRangeoEditorAsEditorOnErrorResumeNextIfApplication.Version11ThenMsgBox版本过低!ExitSubEndIfMsgBox文档最后的段落标记不能设置为隐藏文字ExitSubEndIfMsgBox此文档有隐藏文字ExitSubEndIfIfActiveDocument.ProtectionTypewdNoProtectionThenMsgBox文档处于保护状态ExitSubEndIfIfSelection.TypewdSelectionNor__lThenMsgBox所选内容为非常规文本ExitSubEndIfApplication.ScreenUpdating=FalseWithActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=FalseGN:SetmyRange=.ContentWithmyRange.Find.ClearFor__tting.Font.Hidden=TrueDoWhile.Execute=TruemyRange.SelectmyRange.EditorswdEditorEveryone.DeleteGoToGNLoopEndWith.SelectAllEditableRangeswdEditorEveryone.DeleteAllEditableRangeswdEditorEveryoneEndWithApplication.ScreenUpdating=TrueEndSub。