【转载】论文排版-文本从PDF等粘贴到WORD中,智能删除多余的空格和回车

临近毕业,想必小伙伴们都忙着修改论文吧,最近发现了一些不错的方法,可以帮助大家论文排版节省不少时间,希望对大家有所帮助,祝愿大家都顺利毕业,找到心仪的工作!

本文转自 Endlesswx的博客

http://blog.sina.com.cn/endlesswx123

大家是否有这样的经历,从PDF或网页中复制一段文字再粘贴到WORD中,会出现很多多余的空格和回车,一个一个去删除费时费力费心。下面的代码是写来自己用的,觉得节省了不少时间,不妨分享给大家试试。

功能展示:

 直接Ctrl+V与使用自定义的Alt+V的区别见下图:

代码(灰色部分):

Sub 粘贴并替换空格和回车()

 Dim Flag As Integer

 '粘贴并选中

 startpos = Selection.Start

' Selection.Paste '普通粘贴

 Selection.PasteAndFormat (wdFormatPlainText) '粘贴为文本

 Selection.Start = startpos

 With Selection.Find

 .text = "[  ^s]" '括号里依次:半角空格、全角空格、^s指不间断空格(注意^w:空白区域不能选择全角空格)

 .Replacement.text = ""

 .MatchWildcards = True '使用通配符

 .Execute Replace:=wdReplaceAll

 End With

 '先将多个回车并为一个

 With Selection.Find

 .text = "^13{2,}"

 .Replacement.text = "^p"

 .MatchWildcards = True '使用通配符

 .Wrap = wdFindStop '把 .Wrap = wdFindAsk 改成 .Wrap = wdFindStop对应于“是否搜索其余部分”中的“否”

 .Execute Replace:=wdReplaceAll

 End With

 '主要针对最后是两个回车的特殊情况这种特殊情况下,替换后少选择一位字符,影响后续操作

 If Selection.text Like "*[!。\??\!!”:;]" & Chr(13) Then

 Flag = 1

 End If

 '再将前面不是句号的回车删除

 With Selection.Find

 .text = "([!。\??\!!”:;])^13"

 .Replacement.text = "\1"

 .MatchWildcards = True '使用通配符

 .Wrap = wdFindStop '把 .Wrap = wdFindAsk 改成 .Wrap = wdFindStop对应于“是否搜索其余部分”中的“否”

 .Execute Replace:=wdReplaceAll

 End With

 If Flag Then

 Selection.MoveLeft unit:=wdCharacter, Count:=-1, Extend:=wdExtend '取消选定最后一个回车符

 End If

 '清除替换的内容

 Selection.Find.Replacement.text = ""

End Sub

使用方法:

第一步:录制一个宏(主要为了创建NewMacros模块,以前录制过的请跳过此步)

03:工具→宏→录制新宏→确定→单击“停止”按钮

10:单击WORD状态栏的录制宏按钮(或开发工具→录制宏)→确定→单击“停止”按钮

第二步:ALT+F11(打开VBA对话框)

将以上代码粘贴到打开的NewMacros模块中

第三步:为“粘贴并替换空格和回车”这个宏定义快捷方式

03:工具→自定义→键盘→命令类别:宏→改为Alt+V(快捷键视个人喜好自定义)

10:文件→选项→自定义功能区→自定义键盘→命令类别:宏→改为Alt+V

注意:

程序遇到标题格式时,由于标题格式末尾没有标点符号,会与其下第一段合并,Alt+V后手动微调即可。

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 144,247评论 1 305
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 61,830评论 1 258
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 95,531评论 0 214
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 41,345评论 0 183
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 49,160评论 1 260
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 38,936评论 1 178
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 30,538评论 2 275
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 29,291评论 0 168
  • 想象着我的养父在大火中拼命挣扎,窒息,最后皮肤化为焦炭。我心中就已经是抑制不住地欢快,这就叫做以其人之道,还治其人...
    爱写小说的胖达阅读 29,162评论 6 237
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 32,654评论 0 214
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 29,401评论 2 217
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 30,747评论 1 232
  • 白月光回国,霸总把我这个替身辞退。还一脸阴沉的警告我。[不要出现在思思面前, 不然我有一百种方法让你生不如死。]我...
    爱写小说的胖达阅读 24,297评论 1 33
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 27,206评论 2 213
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 31,670评论 3 213
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 25,661评论 0 9
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 26,089评论 0 169
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 33,677评论 2 233
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 33,819评论 2 237

推荐阅读更多精彩内容