2. 程式人生 > >計算機興趣——Word——巨集——一鍵處理百度百科文字格式整理

計算機興趣——Word——巨集——一鍵處理百度百科文字格式整理

阿新 • • 發佈：2018-12-24
    計算機是用來自動化人工作的。。。
    
    這篇文章是幹什麼的？當你複製網上的文字，再貼上到word上時，往往需要修改格式。eg：字型大小，居中，換行，設定標題。這種重複枯燥的操作，就應當交由計算機一鍵化秒秒鐘處理，將人解放出來。所以，這有了這篇文章。
    
    你需要安裝Office Word 2007，如果是Word 2003，可能，會出一點點小問題，刪除出問題的那段程式碼就行了。因為有些東西Word 2007的東西，Word 2003不支援。如果是WPS的話，很抱歉，人家幾百M的軟體的功能還是強大很多的。（WPS免費版沒有 巨集 的功能）。

    原理：就是利用Word 巨集的功能。簡而言之，就是用程式代替你設定文字的大小，標題的操作。而執行這段程式只需秒秒鐘的時間。這段程式就叫做巨集。所以，下面就是那段一鍵化的程式碼。

    這篇文章的由來：雖然網上有各種格式化貼上文字的巨集，但不能針對特定網站。例如，我想把百度百科的全部內容全部複製貼上到Word，用網上百度到的巨集，只能把它全部整理成一種格式（eg：五號字型，但沒標題）。所以，下面的巨集，是針對百度百科的，且已經稍作修改，可以格式化一般網站上的文字。你如果稍作修改，也能適應特定的網站，也可以適應一般的網站。如果你想需要將維基百科上的內容複製貼上且列印的話，直接選擇Adobe Acrobat Printer，Printer將自動設定好了字型大小，標題，換行。（如果你裝了Adobe Acrobat 軟體，一般情況是有的Printer的，沒有就是Ghost系統沒有一些服務o(╯□╰)o）


已經有的功能：刪除段前距，段後距，行距（這樣列印就不浪費紙）。正文設定為五號，這樣打印出來的字，既不會太大，也不會太小。按Word已經有的標題格式，重新設定標題，也可以略修改，按自己的需求設定。將所有的字型顏色設定為黑色。正文字型大小和標題均可以按自己的需求設定。
沒有的功能/Bug/希望能增加的功能：標題設定後的效果和手動點標題設定的效果不一樣。將百度百科的內容複製貼上過來，標題2，標題3就已經是Word內建的標題了，所以標題2，標題3不好設定，需手工設定。因為我的列印文件已經預設設定好頁邊距，和頁尾，所以下面的程式碼沒有頁邊距和頁尾的設定。我希望增加自動插入頁首的功能。

下面是巨集程式碼：

Sub 百度百科一鍵整理()
'
' 百度百科一鍵整理 巨集
'2013年12月19日，星期四。
'
'
'
    '---------替換空格------
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
' 替換全形空格
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = "  "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'---------替換換行------
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    '刪除“編輯”兩個字。可能會多刪除，但一般是不會的。
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "編輯"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    
    
    
    '增加新段落的縮排
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p^t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    
    '修改標題1， （因為標題2， 3系統已經預設修改好了）
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 17 '有時候好像是13.5，所以下面還有一個類似的，只不過是13.5
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("標題 1")
    With Selection.Find.Replacement.Font
        .Size = 12
    End With
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphCenter
        .WordWrap = True
    End With
    Selection.Find.Replacement.ParagraphFormat.TabStops.ClearAll
    With Selection.Find.Replacement.ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorBlack
            .BackgroundPatternColor = wdColorBlack
        End With
        .Borders.Shadow = False
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.EscapeKey
'修改標題1， （因為標題2， 3系統已經預設修改好了）
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 13.5 '有時候好像是13.5，所以下面還有一個類似的，只不過是13.5
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("標題 1")
    With Selection.Find.Replacement.Font
        .Size = 12
    End With
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphCenter
        .WordWrap = True
    End With
    Selection.Find.Replacement.ParagraphFormat.TabStops.ClearAll
    With Selection.Find.Replacement.ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorBlack
            .BackgroundPatternColor = wdColorBlack
        End With
        .Borders.Shadow = False
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.EscapeKey
    
    '修改正文，將    '將 七號 改為 五號
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Size = 7
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 10.5
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    '刪除“編輯”之後，還有一個空行。，僅替換一次。
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^t"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    With Selection
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
        End If
        .Find.Execute
    End With
    
    
        ' 刪除行距、段距 巨集
'-------刪除段前距--------
 Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphJustify
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    
    '------刪除段後距---------
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphJustify
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    
    '--------刪除行距-------
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceAtLeast
        .LineSpacing = 12
        .Alignment = wdAlignParagraphJustify
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    
    
    
    
    
    '字型顏色處理
    Selection.WholeStory
    Selection.Font.Color = wdColorBlack
    
    
    
End Sub

     關於如何使用Word巨集，百度，或者“http://wenku.baidu.com/link?url=zP5Ckji5u6mrfLIgU09Ia3DISQA_Dhn7vt033k8b3ISxpTU9yoTNeSeIAa2g404ZlK1k52p9SlXSsCeMqTQY1Km5UlTbW9b0Y7KwK-TG0je”，雖然講的不是很好。

歡迎大家提出新的需求，舉出bug，解決方案，Idea！
Ps：這程式碼不是手寫的，是用“巨集錄製”功能錄製的。我雖然是計算機專業的，但沒有Word相關課程，且一般計算機專業的也沒有Word相關課程。(⊙o⊙)…

歡迎轉載（轉載請說明出處）！

相關推薦

計算機興趣——Word——巨集——一鍵處理百度百科文字格式整理

    計算機是用來自動化人工作的。。。         這篇文章是幹什麼的？當你複製網上的文字，再貼上到word上時，往往需要修改格式。eg：字型大小，居中，換行，設定標題。這種重複枯燥的操作，就應當交由計算機一鍵化秒秒鐘處理，將人解放出來。所以，這有了這篇文章。    

老毛子百度雲轉存工具，一鍵批量百度轉存

Win資源分享目錄 Win資源分享目錄 百度轉存 『軟體推薦』老毛子百度雲轉存工具，一鍵批量百度轉存 老毛子百度雲轉存工具，一鍵批量百度轉存 老毛子百度雲轉存工具，一鍵批量百度轉存 下載地址 本地下載備用下載 軟體簡介 老毛子百度雲轉存工具是一款批量

百度地圖API快速調用，一鍵生成百度地圖

百度地圖API對於在網站或者網頁之內插入百度地圖插件，可能很多編程技術人員都知道如何來做，但是做起來所花費的時間都比較長，那麽下面跟大家分享一下如何快速調用百度地圖API，一件生成百度地圖的方法，這種方法適用於任何的編程語言，所以有興趣的編程開發者可以保存一下。body之間源代碼如下：<script t

爬蟲實例——爬取python百度百科相關一千個詞條

管理器 name 詞條 enc aik lib cnblogs response ons 調度器： import url_manager,html_downloader,html_parser,html_outputer class SpiderMain(object

【深度學習系列】一起來參加百度 PaddlePaddle AI 大賽吧！

人工 領域 而且 標註數據 sea nload 類型 指定路徑 ear 　　寫這個系列寫了兩個月了，對paddlepaddle的使用越來越熟悉，不過一直沒找到合適的應用場景。最近百度搞了個AI大賽，據說有四個賽題，現在是第一個----綜藝節目精彩片段預測 ，大家可以去檢測一

叮！你有一條來自百度深度學習公開課的訊息待檢視

作為百度自主研發的深度學習平臺，PaddlePaddle 的易學易用和靈活高效極大地降低了開發者的研發門檻。為幫助開發者打造一條深度學習快速進階之路，百度開設了“深度學習公開課”，從 PaddlePaddle 開發基礎與功能、深度學習工程師的職業規劃以及 PaddlePaddle 應用解析等方面，為開發者

教你一次破解百度網盤限速

廢話不多說，直接正面剛！ 連結：https://share.weiyun.com/5AXU97a 密碼：v89tem 進入我的網盤下載對應的安裝包與瀏覽器外掛，這裡提供windows版本與MAC版本 下載好之後，開啟你的谷歌瀏覽器在位址列輸入chrome://extensions/ 按下回車 然後將你

python3爬取1000個百度百科頁面（一）

一、基本概念        爬蟲：一段自動抓取網際網路資訊的程式 二、簡單爬蟲架構         １、URL管理器：管理已經爬取和未曾爬取的url，防止重複、迴圈抓取     &

教你一招遮蔽百度聯盟廣告

如今的百度廣告聯盟不勝其煩，尤其是百度為了自身的利潤，不斷接入一些遊戲廣告、也有算命等封建迷信的廣告。而這些遊戲廣告更是為了吸引別人點選 做出極其庸俗露骨的人物動畫來 可謂噁心至極！再次嚴重批評百度，作為中國網際網路的龍頭，旗下廣告聯盟僅為一己私利 枉顧使用者感受，大肆接

TamperMonkey | 一款過濾百度廣告推廣的神器

TamperMonkey | 一款過濾百度廣告推廣的神器 1 如果黑百度儼然成了一種政治正確，那麼我相信這是最正確的政治正確。 開啟百度，隨便搜尋一個關鍵詞，得到的搜尋結果中，整個頁面的60%以上都是百度的廣告推廣。我們一眼就可以看出，百度在浪費我們的時間和效率來賺錢。這完全背離了搜尋引擎的初

關於百度富文字編輯器UEditor中ctrl+enter鍵傳送訊息的解決方案

最近一個訊息外掛中遇到一個特殊需求，就是一旦ueditor編輯器獲取焦點以後，除非讓編輯器失去焦點，否則window的鍵盤監聽事件就失去作用了，在這種情況下如何才能使用ctrl+enter傳送已經編輯好的內容呢？上網搜了好多，發現大家都遇到這個問題了，這裡我將我自己的解決方

李彥巨集：我是百度創始人 絕對有說話的權利

李彥巨集2008年的天人交戰，是所有創業家到企業家的“凶險一躍”文/本刊記者 林濤 雷曉宇這還用問？當李彥巨集和賈樟柯坐在一起的時候，他身上的“明星特質”越發明顯了——年輕、富有、才智過人，以及讓女人在心底暗暗尖叫的清俊。三年前，這兩位山西名人一塊在老家太原參加活動。當時，李

在 Soui 中嵌入 MiniBlink 初體驗(一)：支援百度 ECharts 開源視覺化庫顯示

一、引言 最近在工作中遇到了這麼一個需求： 產品想要讓我們的桌面客戶端中顯示覆雜的圖表，類似下圖所示的樣子（圖片來自網路），不排除後期會增加更多複雜圖示的可能性，因此我們需要考慮如何實現這種需求，並能夠支援其需求的擴充套件性 那麼，看到這個需求

一步步分析百度音樂的播放地址，利用Python爬蟲批量下載

百度音樂不需要登入也可以下載？聽到這個訊息是不是很興奮呢， 接下來我們開啟百度音樂,隨便開啟一首歌，切換到百度播放頁面：如圖 我這裡用的是Firfox 瀏覽器，開啟firebug 先清空所有的請求，如圖： 現在我們重新重新整理下頁面，看到這個.mp3的地址就是百度音樂的

三十三期百度技術沙龍筆記整理

net structure 更新 缺失 dag 存在 文本分析 infoq 科學 此次技術沙龍是由百度的高級架構師陳天健和豆瓣首席科學家王守崑為主講，大主題是推薦系統。 陳天健的主要話題是百度推薦引擎計算平臺架構中的流式計算架構。中間有一種因為

第四十期百度技術沙龍筆記整理

無法 但是 hash esql 官方 標準 數據挖掘 轉換 gps 本期的技術沙龍主題內容是LBS技術，雖然LBS應用最近這兩年在業內炒得風生水起，但是我感覺離廣泛應用好像還是有一定距離。 本期的講座主講講師是百度定位服務負責人張傳明、陌陌的CTO李誌威、北

Python開發簡單爬蟲（二）---爬取百度百科頁面數據

class 實例 實例代碼 編碼 mat 分享 aik logs title 一、開發爬蟲的步驟 1.確定目標抓取策略： 打開目標頁面，通過右鍵審查元素確定網頁的url格式、數據格式、和網頁編碼形式。 ①先看url的格式, F12觀察一下鏈接的形式;② 再看目標文本信息的

多線程爬取百度百科

lib item put 腳本 mit sin find client rtl 前言：EVERNOTE裏的一篇筆記，我用了三個博客才學完...真的很菜...百度百科和故事網並沒有太過不一樣，修改下編碼，debug下，就可以爬下來了，不過應該是我爬的東西太初級了，而且我爬到

使用Python的BeautifulSoup庫實現一個可以爬取1000條百度百科數據的爬蟲

otto 提取數據 tps summary 簡介 標題格式 段落 字典 如果 BeautifulSoup模塊介紹和安裝 BeautifulSoup BeautifulSoup是Python的第三方庫，用於從HTML或XML中提取數據，通常用作於網頁的解析器 Beauti

什麽是NoSql（摘自百度百科）

AI 大量 ble 特定 海量數據 post 有一個 最短路徑 aik 來源地址：https://baike.baidu.com/item/NoSQL/8828247?fr=aladdin NoSQL，泛指非關系型的數據庫。隨著互聯網web2.0網站的興起，傳統的關系數