需求:复制CAJ、PDF文件部分文字时
逻辑:确定选区(而不是默认全选)→查找回车符号→替换符号→ 向下搜索→ 执行全部
Sub 替换回车()
Dim r As Range
Set r = Selection.Range
With r.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
With r.Find
.Text = "^t"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
With r.Find
.Text = "^l"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
With r.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
'针对某网站的特殊空格字符
With r.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
With r.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub