2,462
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
fice_chen 2005-11-25
- 打赏
- 举报
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
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
northwolves 2005-11-24
- 打赏
- 举报
不好意思,因为所用机子没装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
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
northwolves 2005-11-23
- 打赏
- 举报
try:
Sub Macro3()
With Selection.Find
.Text = "^P^P"
Do While .Found = True
.Replacement.Text = "^p"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
Loop
End With
End Sub
Sub Macro3()
With Selection.Find
.Text = "^P^P"
Do While .Found = True
.Replacement.Text = "^p"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
Loop
End With
End Sub
bxf 2005-11-23
- 打赏
- 举报
这个问题，我没试过，你录制个宏试试
opentuxedo 2005-11-17
- 打赏
- 举报
是在WORD中
