谁帮我写一个宏(在线等待)

Question

要求删除当前文档中所有空行.

Answer 1

try:Sub Macro3()
    With Selection.Find
    .Text = "^P^P"
      Do While .Found = True
        .Replacement.Text = "^p"
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
  Loop
    End WithEnd Sub

Answer 2

不好意思,因为所用机子没装WORD,昨天写的代码不能运行,试试下面这个:Sub MACRO()
With ActiveDocument.Range.Find
   .ClearFormatting
   .Format = False
   .Forward = True
   .Wrap = wdFindStop
   .MatchWildcards = True
   .Text = "[^13]{2,}"
   .Replacement.Text = "^p"
   .Execute Replace:=wdReplaceAll
   .Text = "[^l]{2,}"
   .Replacement.Text = "^l"
   .Execute Replace:=wdReplaceAll
   .Text = "^13^l"
   .Replacement.Text = "^p"
   .Execute Replace:=wdReplaceAll
   .Text = "^l^l3"
   .Replacement.Text = "^p"
   .Execute Replace:=wdReplaceAll
End With
Selection.HomeKey wdStory
End Sub

Answer 3

Dim doc As Document
Set doc = ActiveDocument
Dim i As Integer
For i = doc.Paragraphs.Count To 1 Step -1
    doc.Paragraphs(i).Range.Select
    If Trim(Selection.Text) = vbCr Or Trim(Selection.Text) = vbCrLf Or Trim(Selection.Text) = vbLf Then
        Selection.Text = ""
    End If
Next i