Word文档如何删除控制格行？如何彻底清除？
作者：佚名|分类：Word|浏览：121|发布时间：2025-03-26 02:36:57
Word文档如何删除控制格行？如何彻底清除？
在编辑Word文档时，我们有时会遇到控制格行，这些行可能会影响文档的排版和阅读体验。以下将详细介绍如何在Word文档中删除控制格行，以及如何彻底清除它们。
一、什么是控制格行？
控制格行，也称为隐藏行，是Word文档中的一种特殊行。它们通常不会被显示在屏幕上，但会影响文档的打印和布局。控制格行通常用于在文档中插入页码、页眉页脚等元素。
二、如何删除控制格行？
1. 显示隐藏行
在Word中，默认情况下隐藏行是可见的。如果隐藏行不可见，请按照以下步骤操作：
（1）打开Word文档，点击“视图”选项卡。
（2）在“显示/隐藏”组中，勾选“显示所有格式标记”复选框。
（3）此时，隐藏行将变为可见。
2. 删除控制格行
（1）选中要删除的控制格行。
（2）按下“Delete”键，即可删除该行。
（3）重复上述步骤，删除文档中所有的控制格行。
三、如何彻底清除控制格行？
1. 使用查找和替换功能
（1）按下“Ctrl+H”键，打开“查找和替换”对话框。
（2）在“查找内容”框中输入“^13”，这是控制格行的代码。
（3）点击“全部替换”按钮，Word将自动替换文档中的所有控制格行。
2. 使用宏
（1）按下“Alt+F8”键，打开“宏”对话框。
（2）在“宏名”框中输入“DeleteHiddenLines”，然后点击“创建”按钮。
（3）在打开的编辑器中，输入以下代码：
```
Sub DeleteHiddenLines()
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Replacement.ClearFormatting
.Replacement.Text = ""
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold = False
.Replacement.Font.Italic = False
.Replacement.Font.Strikethrough = False
.Replacement.Font.Superscript = False
.Replacement.Font.Subscript = False
.Replacement.Font.Underline = wdUnderlineNone
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Shadow = False
.Replacement.Font.SmallCaps = False
.Replacement.Font.Wide = False
.Replacement.Font.StrikeThrough = False
.Replacement.Font.DoubleStrikeThrough = False
.Replacement.Font.Kerning = False
.Replacement.Font.SubscriptPosition = wdSubscriptNone
.Replacement.Font.SuperscriptPosition = wdSuperscriptNone
.Replacement.Font.Effect = wdEffectNone
.Replacement.Font.EffectAmount = 0
.Replacement.Font.EffectType = wdEffectNone
.Replacement.Font.EnsureTrailingSpaces = False
.Replacement.Font.Gap = 0
.Replacement.Font.ColorIndex = wdColorAutomatic
.Replacement.Font.Color = wdColorBlack
.Replacement.Font.Name = ""
.Replacement.Font.Size = 0
.Replacement.Font.Bold