臨近畢業(yè)幽七，想必小伙伴們都忙著修改論文吧，最近發(fā)現(xiàn)了一些不錯的方法溅呢，可以幫助大家論文排版節(jié)省不少時間澡屡，希望對大家有所幫助，祝愿大家都順利畢業(yè)咐旧，找到心儀的工作驶鹉！
大家是否有這樣的經(jīng)歷，從PDF或網(wǎng)頁中復(fù)制一段文字再粘貼到WORD中休偶，會出現(xiàn)很多多余的空格和回車梁厉，一個一個去刪除費時費力費心。下面的代碼是寫來自己用的踏兜，覺得節(jié)省了不少時間词顾，不妨分享給大家試試。
功能展示：
?直接Ctrl+V與使用自定義的Alt+V的區(qū)別見下圖：
代碼（灰色部分）：
Sub 粘貼并替換空格和回車()
?Dim Flag As Integer
?'粘貼并選中
?startpos = Selection.Start
'?Selection.Paste?'普通粘貼
?Selection.PasteAndFormat (wdFormatPlainText)?'粘貼為文本
?Selection.Start = startpos
?With Selection.Find
?.text = "[ ^s]" '括號里依次：半角空格碱妆、全角空格肉盹、^s指不間斷空格（注意^w：空白區(qū)域不能選擇全角空格）
?.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對應(yīng)于“是否搜索其余部分”中的“否”
?.Execute Replace:=wdReplaceAll
?End With
?'主要針對最后是兩個回車的特殊情況這種特殊情況下，替換后少選擇一位字符疹尾，影響后續(xù)操作
?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對應(yīng)于“是否搜索其余部分”中的“否”
?.Execute Replace:=wdReplaceAll
?End With
?If Flag Then
?Selection.MoveLeft unit:=wdCharacter, Count:=-1, Extend:=wdExtend '取消選定最后一個回車符
?End If
?'清除替換的內(nèi)容
?Selection.Find.Replacement.text = ""
End Sub
使用方法：
第一步：錄制一個宏（主要為了創(chuàng)建NewMacros模塊，以前錄制過的請?zhí)^此步）
03：工具→宏→錄制新宏→確定→單擊“停止”按鈕
10：單擊WORD狀態(tài)欄的錄制宏按鈕（或開發(fā)工具→錄制宏）→確定→單擊“停止”按鈕
第二步：ALT+F11（打開VBA對話框）
將以上代碼粘貼到打開的NewMacros模塊中
第三步：為“粘貼并替換空格和回車”這個宏定義快捷方式
03：工具→自定義→鍵盤→命令類別：宏→改為Alt+V（快捷鍵視個人喜好自定義）
10：文件→選項→自定義功能區(qū)→自定義鍵盤→命令類別：宏→改為Alt+V
注意：
程序遇到標題格式時面睛，由于標題格式末尾沒有標點符號絮蒿，會與其下第一段合并，Alt+V后手動微調(diào)即可叁鉴。
