【VBA】选中并批量处理回车符号

需求：复制CAJ、PDF文件部分文字时
逻辑：确定选区（而不是默认全选）→查找回车符号→替换符号→ 向下搜索→ 执行全部

Sub 替换回车()Dim r As RangeSet r = Selection.RangeWith r.Find.Text = "^p".Replacement.Text = "".Forward = True.Execute Replace:=wdReplaceAllEnd WithWith r.Find.Text = "^t".Replacement.Text = "".Forward = True.Execute Replace:=wdReplaceAllEnd WithWith r.Find.Text = "^l".Replacement.Text = "".Forward = True.Execute Replace:=wdReplaceAllEnd WithWith r.Find.Text = " ".Replacement.Text = "".Forward = True.Execute Replace:=wdReplaceAllEnd With'针对某网站的特殊空格字符With r.Find.Text = "".Replacement.Text = "".Forward = True.Execute Replace:=wdReplaceAllEnd WithWith r.Find.Text = "".Replacement.Text = "".Forward = True.Execute Replace:=wdReplaceAllEnd WithEnd Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！