如何仅在Word文件的开头删除所有空的段落

如何解决如何仅在Word文件的开头删除所有空的段落

我正在尝试删除Word文件开头的所有空段落。我正在使用以下内容仅删除FirsT段落，但是我需要连续删除所有空段落，以便如果您有5个空行，则将它们全部删除。这是代码：

Dim MyRange As Range
Set MyRange = ActiveDocument.Paragraphs(1).Range
If MyRange.Text = vbCr Then MyRange.Delete

我尝试添加循环和for语句，但无济于事。预先感谢。

解决方法

折叠到文档的开头，然后扩大范围，直到找到“空字符”。

这是您10的入门级

Dim MyRange As Range
Set MyRange = ActiveDocument.Paragraphs(1).Range
MyRange.Collapse direction:=wdCollapseStart
MyRange.MoveEndWhile cset:=" " & vbCrLf ' & any other invisible characters that may be present
MyRange.Delete

每个段落必须至少包含一个字符-段落标记本身。因此，我们要做的就是检查该段落是否仅包含1个字符。

像这样的简单

Sub ClearEmptyPargraphAtStartOfDocument()

While (ActiveDocument.Paragraphs(1).Range.Characters.Count = 1)
    ActiveDocument.Paragraphs(1).Range.Delete
Wend

End Sub

这似乎对我有用

Public Sub SOCheck()
  Dim MyRange As Range,CarryOn As Boolean
  
  CarryOn = True
  While CarryOn
    Set MyRange = ActiveDocument.Paragraphs(1).Range
    If MyRange.Text = vbCr Then
      MyRange.Delete
    Else
      CarryOn = False
    End If
  Wend
  'MsgBox "Done"
End Sub

这只是围绕您自己的代码的循环