怎么去除软回车从网复制下来的文章到WO
如果你经常要用到粘贴网页文件,可以把上述诸位的做法录制成宏,然后每次粘贴完网页执行一下宏,可以省很多事。下面是我自己录制的一个宏,其中还包括了格式方面的调整。供你参考:
Sub Macro5()
'
' Macro5 Macro
' 宏在 2006-04-29 由 dell 录制
'
Selection。 WholeStory
Selection。Find。ClearFormatting
Selection。Find。Replacement。ClearFormatting
With Selection。 Find
。Text = "^l"
。Replacement。Text = "^p...全部
如果你经常要用到粘贴网页文件,可以把上述诸位的做法录制成宏,然后每次粘贴完网页执行一下宏,可以省很多事。下面是我自己录制的一个宏,其中还包括了格式方面的调整。供你参考:
Sub Macro5()
'
' Macro5 Macro
' 宏在 2006-04-29 由 dell 录制
'
Selection。
WholeStory
Selection。Find。ClearFormatting
Selection。Find。Replacement。ClearFormatting
With Selection。
Find
。Text = "^l"
。Replacement。Text = "^p"
。Forward = True
。
Wrap = wdFindAsk
。Format = False
。MatchCase = False
。MatchWholeWord = False
。
MatchByte = True
。MatchWildcards = False
。MatchSoundsLike = False
。MatchAllWordForms = False
End With
Selection。
Find。Execute Replace:=wdReplaceAll
With Selection。Find
。Text = " "
。Replacement。
Text = ""
。Forward = True
。Wrap = wdFindAsk
。Format = False
。
MatchCase = False
。MatchWholeWord = False
。MatchByte = True
。MatchWildcards = False
。
MatchSoundsLike = False
。MatchAllWordForms = False
End With
Selection。Find。Execute Replace:=wdReplaceAll
Selection。
Find。Execute Replace:=wdReplaceAll
Selection。Find。ClearFormatting
Selection。Find。Replacement。
ClearFormatting
With Selection。Find
。Text = "^p^p"
。Replacement。Text = "^p"
。
Forward = True
。Wrap = wdFindAsk
。Format = False
。MatchCase = False
。
MatchWholeWord = False
。MatchByte = True
。MatchWildcards = False
。MatchSoundsLike = False
。
MatchAllWordForms = False
End With
Selection。Find。Execute Replace:=wdReplaceAll
Selection。
Find。Execute Replace:=wdReplaceAll
Selection。Find。Execute Replace:=wdReplaceAll
End Sub
。收起
