你是怎樣保存、整理知乎好答案的？

11-25

比如看到了自己覺得有用的答案，大家如何保存整理呢？
歡迎大家多邀請……集思廣益。謝謝。

--------------多圖--------------

-------------------------
正在準備整合卷二
-------------------------
補充：鑒於有很多同學想知道製作的步驟，點贊上100我就試著寫一發！
-------------------------
製作步驟寫好了(≧▽≦)/
-------------------------

2014.7.16

軟體準備：word2013，chrome瀏覽器，chrome插件----印象筆記·剪藏，印象筆記windows版。其實整個步驟使用最多的功能就是替換，不得不說這真是一個很強大的功能。

1.
將回答展開。打開自己的收藏夾，在一頁之內點擊每一個「顯示全部」展開所有答案（建議從下往上點）。

2.
保存整頁回答。打開剪藏，選擇網頁正文，選擇範圍如圖，保存到印象筆記。

3.
導出為html。打開windows版印象筆記點擊右鍵導出文章（html單個文件）

4.
建立文檔。新建word文檔，用瀏覽器打開html文件，將html文件中所有內容粘貼在文檔中。（注意不能將保存下來的html文件用word打開直接另存為doc格式，這樣會出現排版錯誤。）

5.
重複步驟1到4。把需要排版的文章全部放在一個文檔中。

6.
設置紙張大小和頁邊距。頁面布局→紙張大小，B5（176*250）。頁邊距如圖。

7.
取消文中超鏈接。開始→選擇→全選，點ctrl+shift+f9 。

8.
將手動換行符↓替換為段落標記?。開始→替換，查找內容^l，替換為^p。

9.
設置樣式。開始→選擇→全選，將全文樣式設置為正文，之後依次設置，標題1（章節標題，自定，比如說「知乎卷」「專人」「專題」），標題2（問題標題。使用替換命令設置。將取消收藏^13*^13 替換為空[樣式為標題2]，勾選使用通配符，如圖。然後將第一條答案標題手動設置為標題2）。

註：手動設置樣式的時候只要把游標放在需要修改樣式的那一行，然後點擊，標題1，正文，等樣式就行。

我設置的樣式如下，也可以根據個人喜好調整。

正文：字體：(中文)方正書宋_GBK，(默認)
Times New Roman，10號，縮進: 兩端對齊，行距：1.15倍行距，首行縮進：2字元。

標題1：字體：(中文)方正正准黑簡體，初號，縮進：居中，加粗，首行縮進：0。

標題2：字體：(中文)方正清刻本悅宋簡體，三號，縮進：居中，首行縮進：0。

標題3：字體：(中文)方正正黑簡體，小四，縮進：左，首行縮進：0。

所有樣式中，段落→段前段後間距均為0。

10.
刪除贊同的人那部分內容。在「替換為」中，將格式→樣式，設置為無樣式，替換 ^13收起*贊同為空（勾選通配符）。

11.
設置樣式。手動將作者名和作者介紹設置為標題三（使用步驟12中的搜索圖形方式定位作者頭像，之後設置為標題3。暫時還沒找到批量設置的好辦法。。。）。

12.
調整或刪除文中圖像。開始→查找，左邊導航欄→放大鏡旁邊的小箭頭→圖形，點上下箭頭逐個手動調整文章中的圖形大小和布局。

最後刪除作者頭像，可使用宏，視圖→宏→編輯，將以下代碼複製進去，視圖→宏→運行（也可以一個一個手動刪除，也可以不刪除。。。）：

Sub test()

Mywidth = 0.66 "指定圖片寬度(厘米)

Myheigth = 0.66 "指定圖片高度(厘米)

For Each ishape In
ActiveDocument.InlineShapes

If Abs(ishape.Height - 28.345 * Myheigth) &< 1 And Abs(ishape.Width - 28.345 * Mywidth) &< 1 Then ishape.Delete

Next ishape

End Sub

13.
刪除空行。替換 ^13^13為 ^13（多點幾次全部替換，勾選通配符）。

14.
在每個答案末尾加入分頁符。替換關注問題*取消收藏
為 ^m（勾選通配符）。

15.
在每個答案末尾加入分頁符。替換取消關注*取消收藏為 ^m（勾選通配符）。

註：14，15步有可能提示「完成0處替換」，這是正常的不用在意。

16.
刪除問題前面的多餘段落標記。如果出現這個問題的話，替換^m^p 為 ^m。

17.
規範格式。全選，設置字體顏色為黑色，取消多餘的下劃線（可能會把答案中下劃線去掉，謹慎操作）。

18.
添加目錄。在整個文檔的最前面添加分頁符（ctrl+回車），在多出來的第一個空白頁添加目錄，引用→目錄→自動目錄。

19.
添加頁碼。插入→頁碼→頁面底端→把頁碼放在中間。

20.
檢查。更新目錄頁碼，最後檢查一下全文還有什麼奇怪的錯誤，手動修改（比如說我這經常會有某個標題沒有成功設置樣式的問題出現）。

21.
導出為pdf。文件→導出→創建pdf/xps文檔。

22.
設計封面和封底。我是用ps設計的。

23.
列印裝訂。最後一步就是交給列印店去列印裝訂，紙越薄越好，封面可以用銅版紙列印加上啞光覆膜。

--------------------------------------

這樣做下來一本300頁左右的小書價格大約在20多塊錢。能把自己在知乎中精選的答案做成實體書捏在手中翻來翻去，感覺爽爆。如果做的時候能在封面或者封底加上一些話送給朋友，逼格甩出送其他書幾條街。這種成就感會讓人覺得複雜的步驟和無數個小時的校對都是值得的。

--------------------------------------

教程中間肯定會出現一些問題是我沒有考慮到的，希望大家踴躍反饋。

--------------------------------------

2014.9.11

經@rida Flo同學的反饋，發現這裡有個問題得注意一下。

教程僅適用於對某個收藏夾內的答案的排版(最好是自己的收藏夾)；如果按照以上步驟對某個問題之下的所有答案進行排版的話，得修改一些步驟，不然會出現很多問題，有興趣的同學可以自己試試。

不作保存，因為沒有用處。

要把別人的回答當作望遠鏡，通過對方發現更高、更遠、更大的世界，而不是當作收藏品放在硬碟里，一年看不了幾次。

舉一個例子：

@yolfilm 叔在《龍貓》好看在哪兒？它的成功有什麼非電影因素？這個回答中，說龍貓是恐怖片，但是只提供了單方面的想法，沒有拿出強有力的證據。所以我花了三個下午的時間，進行了一番考據。

比如，有人說小梅失蹤以後影子就不見了。於是我特地又重新看了一遍電影，發現的確是不見了。但是我注意了一下，後面不止小梅的影子消失了，就連婆婆和小男孩的影子也消失了。不過1小時22分，小梅坐在樹上時，竟然又出現了影子。當然，也有人說那是樹的花紋。

再比如，電影中說，小梅的媽媽住在七國山醫院，但是我沒有谷歌到七國山醫院，八國山倒是有一個，而且跟故事裡說得一模一樣。只不過這是一個精神病醫院。

最後，我在網上找到了所謂的「故事原型」。首先，龍貓的故事背景發生在日本琦玉縣的所澤。而所澤這個地方，曾經發生過一起姐妹被虐殺的案件，被稱為狹山事件，時間是昭和60年代。龍貓正是以這個狹山事件為藍本。

除此之外，yol叔還提到了宮崎駿先生的童年經歷，說這點在他的作品中屢次被表現。所以我準備去研究一下，是不是真的如此。如果研究宮崎駿，勢必要牽涉到久石讓、高畑勛，以及吉卜力工作室的主創團隊，甚至是整個世界的動畫電影史。

這是多麼龐大的一個知識領域，簡直充滿了讓人探索的慾望。

我通過一個回答，重溫了一遍電影，知道了日本有一個八國山精神病院，了解到狹山事件。另外還找到了一個自己感興趣領域，值得花時間去研究。這才是最重要的。至於yol叔說了什麼，這有什麼保存的意義呢？

我不是yol叔的粉，但是我覺得，假如你崇拜yol叔，你就要弄明白yol叔為什麼這麼說，而不是跟著他一起說。

別人寫什麼不重要，重要的是別人為什麼這麼寫。

我的偽碼農男朋友做的小禮物：

他把我2年來贊同過的300多個回答導成了一本500多頁的pdf，讓我能夠用kindle重溫這些回答:)

我一般是做成EPUB格式，方便隨時翻看，當然，不能光是喜歡的答案才有資格進入這個「選集」。

抱歉我實在是想不出什麼標題了，或許不加標題，更好。

如此。=============
知乎到現在還沒有一個穩定的經濟來源，我十分害怕哪天知乎突然「掛掉了」，那損失的，就不只是幾篇文章、幾個問題那麼簡單了。

平常的知識管理主要是Evernote/印象筆記，加上主要使用Chrome瀏覽器，所以經常用Evernote/印象筆記的網頁剪輯整理到Evernote/印象筆記中去，其中的搜索、同步等功能覺得還算好用。具體如何操作，參見怎樣將知乎收藏夾里的答案快速轉入到 Evernote 中？

知乎的設計者和工程師，怎麼沒有做一個帶導出功能、分類功能、標籤功能的收藏夾呢，
現在的收藏，只能收藏某個回答，不能收藏問題的所有回答，更不能收藏用戶（跟關注不同，是分門別類自己加標籤的收藏，這樣可以在邀請時候一塊選上）。建議把這些都加上，最後是能直接導入到Evernote，為知，雲筆記什麼的，呵呵，這樣就方便多了，呼籲一下哦。

也許你會說，可以設關注啊。但關注的話題一般情況下都淹沒在一大堆內容里，對知乎網站、對設置關注者的好友也許更有用，但對設置關注者本人用處不大（因為得到的無非是針對話題討論高潮過後，大量湧入的隻言片語回答、後期醬油評論；當然不排除有）。
---------------------------------------------------------------------------------------------------
（一年後再次看了，建議還是建議，知乎木有行動）
有時候，「一個好問題甚至勝過一個好答案」。一個問題的提出隨著時代的發展，回答也會不一樣。
因此，再次建議知乎能重視這個問題，整理問題本身也很重要哇（也不是多難弄的一件事啊？）。畢竟這也是用戶體驗的一部分啊，恁就不怕將來有個網站就靠這點把知乎給比下去？

瀏覽器收藏夾+wayback machine作為備份，即使作者刪除了答案在wayback machine上依然有。

Wayback Machine 自從1996年以來，就在給整個互聯網做備份，現在一共累計了1500億網頁。使用方法很簡單：在網頁頂部那個網址框輸入網址，點擊「Go WayBack」按鈕，然後選擇想要查看的日期（不是每天都有備份），就可看到某個找回消失或被修改過的網頁。想看某個網站在過去是什麼樣子嗎？來穿越一下吧！

看到右下角的save page了么？建議每個人把自己看到的知乎好答案都順手保存一下，這樣即使作者刪了，或者將來真的有一天知乎掛了，這些網頁也依然能夠瀏覽。
我一般是用chrome書籤順手把不錯的答案都收藏到wayback machine的。
新建一個chrome書籤，複製到地址欄：
javascript:location.href="http://web.archive.org/save/"+location.href
要保存的時候直接點一下就可以了。
比如，這個問題的存檔：
http://web.archive.org/web/20150612194419/http://www.zhihu.com/question/21417409

用Evernote和思維導圖軟體。

1.Evernote主要用來收集，想也知道大部分人不喜歡留著一堆英文鏈接吧。
2.進行思維導圖化，這是一個重新對思維內容進行編碼的過程，成為自己的東西。
3.Evernote目錄分類匯總，同類問題論據觀點放在一起分析，你會有新想法的。
4.建立思維導圖總綱，你會發現自己的知識網路發散到什麼地步了。
5.最後你會有興趣自己完成思維樹圖全貌的，這時候已經不想被動地接收知識了。你會從新回到第一步，一個新的輪迴開始了。

我是把好的答案複製粘貼到文檔，用自己喜歡的信紙，然後生成pdf，製作成一本知乎小集，在ipad上看，用ibook或者多看閱讀器或者其它閱讀器看的話，翻頁很有書籍的感覺。例如：http://pan.baidu.com/s/1pJjri0F

收藏 evernote
---
ps：悅讀（印象筆記·悅讀），利用這個插件來剪藏到evernote。潔癖、整理癖的福音。

鹽系列的合卷~~~

昨天剛做的~~~
Microsoft OneDrive

直接上圖吧：

然後優雅地看書，做筆記：

我覺得有的東西還是要保存著，常看常新。

自己寫了個抓取自己收藏夾里答案的爬蟲，支持郵箱登陸。放了個編譯後的windows版本，可以直接在windows上運行。
GitHub - schaepher/ZhihuFavoritesSaver: 用來提取知乎答案

只需登陸一次，之後不用再選擇登陸（在本地保存了cookie）。

保存的時候，程序會根據收藏夾名稱創建文件夾，把答案放到文件夾裡面。打開查看內容：

我是配合為知筆記用的。將這些html導入到為知筆記里，然後使用為知筆記的導出pdf功能，把它們一起導出到一個pdf文件裡面。

1、可以用keep這個google的筆記軟體，真的太好用了，從知乎分享直接抓取標題和正文，而且不產生流量
2、pocket也很好，但是會費流量，如果不怕流量或者網路不夠用，可以盡情使用，會同步內容和圖片，不會丟失
這兩個都是手機軟體哦，用起來很方便。

半年前初來知乎，三個月前收藏過這個問題，這個夏天開始執行。
知乎讓我成為更好的人~所以我也應該認真寫答案，好好回饋知乎的小夥伴╮(╯▽╰)╭
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.前言
→ **給那些跟當時的我一樣，看到這條題目就蠢蠢欲動的人
-不要以為把你的收藏夾全部列印出來你就會看！！想想你家裡買過卻沒看完的書，
你為什麼買了這些書？因為購買產生滿足感讓你的內心偽裝成你好像已經吃透了這本書，
然而衝動過後.........學習在陰天擱淺，舊書還在等待救援.....

2.我的經驗
-以下是處理順序
→ 2.1 篩選+分類
→ 2.2開始學習
2.2.1 evernote ("連結"/截圖/複製 )
2.2.2 手寫

3.刪掉，清空收藏夾！

2.1.篩選+分類
簡單而言，如果只有一個收藏夾，裡面東西亂糟糟的話，第一步是新增幾個分類，把答案歸類。
大概有：關於人生、小技能、抖機靈搞笑的、專業相關等等等等,
在這個過程中，你就可以把東西過一遍，多餘的刪掉；這樣你心裡對內容的量就有個底。
所謂多餘，自己定義，至於我的定義是：
1.我不再感興趣，
2.我重複收藏相似答案（你也可以選擇把兩個答案歸納）

2.2. 開始學習=做筆記
小寄語：強調，必須做筆記，不做筆記等於買了一本書卻不再看，怎麼樣也要在腦袋過一遍，不要讓知識擱淺！！放著那麼多收藏答案，看著都心塞，不學白不學啊！
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
到這一步對於將要消化的內容應該已經了解個大概了，現在將要決定使用什麼方式做筆記了。
電子筆記或者手寫。這就視乎內容重要程度了。
****視乎個人習慣了，如果你是evernote中毒用戶那就勇敢的奔向大象的懷抱吧~~
下面是我一些不專業建議。

1.對你最重要的東西 = 手寫
2.次要（想著將來有一天也許用得到/一些有趣的答案）=電子筆記
3.非一次性，有很多"後續工作"(例如.你收藏了如何申請XXX項目出國)= 電子筆記

2.2.1.evernote ("連結"/截圖/複製)
知乎上面應該很多大神都在用印象筆記吧？我也是因為知乎而掉進這個坑的~
如果對這個感興趣的小夥伴們可以試試。→evernote/印象筆記。
這是免費軟體，有pc也有app，同步很方便~

***僅此提供小女子個人幾種方法，請按圖索驥，自己根據使用習慣+內容分類決定合適的方式。

A.第一種方法：連結
做一個示範，這是我的總目錄，這是我印象筆記其中一個檔案，叫做技能~
裡面放一些好玩的東西~有空的時候可以自娛自樂的小技能~

/關於攝影我幾乎是還沒有開始做筆記的（不要打我...），因為它後續工作很多，
需要很多基本概念支撐。比如光圈什麼什麼的，行外人無法一次看懂。
這些答案已經近似於說明書了，所以需要我整理的空間不多。
這不算是我生活必備技能，所以我在想到的時候才會翻閱。
每次翻閱一個就做筆記，然後刪掉，所以到最後應該是一個不剩。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
可以看到有一個名字叫 PHOTOGARY(不要噴，我突然發現正字是photography.....)
就是關於攝影的一些東西筆記。裡面全是知乎的連結。

分割線以上是視頻網站，分割線以下全是知乎的連結。
(mac用戶：這個畫面的快捷鍵是 command+k 不用謝)

B.第二種方法：截圖
這是針對一些有趣的答案，賣萌/抖機靈的，或者勵志的，本質上內容沒有實質意義，
是一些釋放心靈的東西。
因為很喜歡手機刷知乎，每次都會選擇一些有意思的文字去截圖，剛剛說過這個軟體
可以同步手機和電腦，所以手機看的時候很方便，也有高亮的效果。

C.第三種方法：複製
這個複製是有限度複製，不是全部複製。
1.全部複製
2.看一遍，看的同時請刪掉贅言。
至於如何刪除，且看閣下歸納能力。

舉個例子，這個是我很喜歡的一個答案（羞~）
因為尊重作者，我也會留下作者的名字和原問題的鏈接。
因為這個答案太完美，我覺得幾乎無法刪除任何一個字，我不忍心，
那就把我認為的重點highlight。

2.2.2 手寫
手寫筆記是記憶最深卻最費時的，所以請確定內容足夠重要~
按照自己的舒服的方式去寫吧！
拋磚引玉，看看能不能給大家一些啟發？
→我把A4紙對摺，變成一頁兩面A5，方便閱讀；
→全部寫完才訂在一起~
→先分類。同類歸納。此分類為「時間管理」
→寫下日期、作者、歸納後的內容。每一條問題都自帶分割線。

→使用A4對摺是因為可以這樣看，偽裝成一本小書。

→同時我看了關於做手帳、時間管理的一本書，我認為可以放在一起。
→所以就放在一起了~

→一些歸納後的內容
關於做筆記，其實每個人都有自己的一套，要說一個重點的話，我認為是：刪除
如果一個東西，刪除後句子通順，句意無損，那麼就不值得留下了；
只留下「必要的存在」。這個只能意會了，具體很難說。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
就這樣，都是一些常人使用的方式吧，沒啥特別。
不知道哪個古人說過一句話，我沒記住，反正意思是看了沒記住等於沒學過。
如果你是一個嘴饞的人，請把知識吃下肚，趁熱。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
！！！請定時清理收藏夾！！！如果我看到這條答案躺在你收藏夾我會來揍你的！！！

ctrl-A/ctrl-C
轉到WORD(A4豎排紙張)
ctrl-V

然後運行下面的宏,速度稍慢,耐心等待
------------------------分隔線------------------------
自己用，修改了很多版。放一個最新的
------------------------分隔線------------------------
Sub 格式化()
ctn = MsgBox("文檔將被格式化。過程是不可逆的，你確定嗎?", vbYesNo)

If ctn = vbYes Then
Application.ScreenUpdating = False "運行畫面控制不顯示

userform1.Label1.Caption = "處理頁面"
userform1.Show 0
DoEvents

Selection.WholeStory
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.5)
.FooterDistance = CentimetersToPoints(1.75)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
.LayoutMode = wdLayoutModeLineGrid
End With

"Selection.WholeStory
"Selection.Find.ClearFormatting
"Selection.Find.Replacement.ClearFormatting
"With Selection.Find
" .Text = "^13[0-9]贊同反對?{1,60}作者保留權利"
" .Replacement.Text = "^13"
" .Forward = True
" .Wrap = wdFindContinue
" .Format = False
" .MatchCase = False
" .MatchWholeWord = False
" .MatchByte = False
" .MatchAllWordForms = False
" .MatchSoundsLike = False
" .MatchWildcards = True
"End With
"Selection.Find.Execute Replace:=wdReplaceAll

userform1.Label1.Caption = "設置文檔通用格式"
userform1.Show 0
DoEvents
Selection.WholeStory
"Selection.Style = ActiveDocument.Styles("正文")
With Selection.ParagraphFormat
.SpaceBefore = 12
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 16
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
If ActiveDocument.InlineShapes.Count = 0 Then
.CharacterUnitFirstLineIndent = 2
Else
.CharacterUnitFirstLineIndent = 0
End If
End With
Selection.Font.Name = "楷體"
Selection.Font.Size = 14

If ActiveDocument.Paragraphs(1).Range.Font.ColorIndex &<&> wdRed And ActiveDocument.Paragraphs(1).Range.Font.Size &<&> 20 Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[_,-,—,+,=]{10,}"
.Replacement.Text = "^p******************************^p"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If

ActiveDocument.UndoClear
ww = 16.85 "實際上是圖片的寬
hh = 16.85 "實際是圖片的高

mywidth = ww * 28.345
myheight = hh * 28.345

userform1.Show 0
Count = 0
sumtx = ActiveDocument.InlineShapes.Count
For Each ishape In ActiveDocument.InlineShapes "調整圖片尺寸

Count = Count + 1
userform1.Label1.Caption = "處理圖形中!!"
userform1.TextBox1.Text = Count " of " sumtx " 正在處理"
DoEvents

w = ishape.Width
h = ishape.Height

"Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If (w &> 38.265 Or h &> 38.265) Then
ishape.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
ishape.Select
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
ishape.Select

If (w &> mywidth Or h &> myheight) Then
If w &> h Then
ishape.Width = mywidth
ishape.Height = mywidth / w * h
Else
ishape.Height = myheight
ishape.Width = myheight / h * w
End If
Else
If (w &< mywidth * 0.33 And h &< myheight * 0.33) Then
ishape.Width = w * 2
ishape.Height = h * 2
End If
End If
Else

ishape.Select
Selection.Delete
ActiveDocument.UndoClear

End If
Next ishape

userform1.Show 0
fcount = ActiveDocument.Fields.Count
Count = 0
For i = fcount To 1 Step -1
Count = Count + 1
userform1.Label1.Caption = "處理超鏈接中!!"
userform1.TextBox1.Text = Count " of " fcount " 正在處理"
DoEvents
HL = ActiveDocument.Fields(i).Code.Text
xx = Split(HL, "//")
If UBound(xx) &< 2 Then
ActiveDocument.Fields(i).Unlink
End If
Next

userform1.Label1.Caption = "消除不必要的文字"
userform1.Show 0
DoEvents

Selection.WholeStory "
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "0贊同反對，不會顯示你的姓名^13*^13"
.Replacement.Text = "^^13------------------------------------------------------------^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.HomeKey Unit:=wdStory "回到文檔開頭
Selection.Move
ActiveDocument.UndoClear "設置運行環境
"If ActiveWindow.View.SplitSpecial = wdPaneNone Then
" ActiveWindow.ActivePane.View.Type = wdNormalView
"Else
" ActiveWindow.View.Type = wdNormalView
"End If

userform1.Label1.Caption = "清理多餘的手動換行符"
userform1.Show 0
DoEvents
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

userform1.Label1.Caption = "處理重複記號"
userform1.Show 0
DoEvents

userform1.Label1.Caption = "處理英文空白符"
userform1.Show 0
DoEvents
Selection.WholeStory "處理英文單詞之間的空白符
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([!a-zA-Z])(^32)([!a-z，A-Za-zA-Z])"
.Replacement.Text = "13"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

userform1.Label1.Caption = "處理圖片html標識"
userform1.Show 0
DoEvents
Selection.WholeStory "清理圖片html標識
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "&<(img)*&>"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

userform1.Label1.Caption = "清理隱藏文字"
userform1.Show 0
DoEvents
Selection.WholeStory "清理隱藏文字
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Ctrl+Shift+H"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

userform1.Label1.Caption = "清理非空白顯示符"
userform1.Show 0
DoEvents
Selection.WholeStory "清理非顯示空白符
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^s"
.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

userform1.Label1.Caption = "製作分割線"
userform1.Show 0
DoEvents
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "發佈於*作者保留權利^13"
.Replacement.Text = "^13==========================================================^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "修改^13舉報*個回答^13"
.Replacement.Text = "^13==========================================================^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "寫補充說明^13舉報*個回答^13"
.Replacement.Text = "^13==========================================================^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "編輯於*作者保留權利^13"
.Replacement.Text = "^13==========================================================^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory "
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorRed
With Selection.Find
.Text = "^13[0-9,K]{1,4}贊同反對，不會顯示你的姓名^13"
.Replacement.Text = "^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
"With Selection.Find.Replacement.Font
" .Color = -671039489
"End With
With Selection.Find
.Text = "^13[!=]"
.Replacement.Text = "^"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory "
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^13[0-9]{1,4} 人贊同"
.Replacement.Text = "^^13------------------------------------------------------------^13"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory "標識小節內分隔線
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "------------------------------------------------------------^13------------------------------------------------------------^13"
.Replacement.Text = "------------------------------------------------------------^13"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

"Selection.WholeStory "標識小節內分隔線
"Selection.Find.ClearFormatting
"Selection.Find.Replacement.ClearFormatting
"With Selection.Find
" .Text = "[—,~,-,_,－,-,*]{3,}"
" .Replacement.Text = "^p***^p"
" .Forward = True
" .Wrap = wdFindContinue
" .Format = False
" .MatchCase = False
" .MatchWholeWord = False
" .MatchByte = False
" .MatchAllWordForms = False
" .MatchSoundsLike = False
" .MatchWildcards = True
"End With
"Selection.Find.Execute Replace:=wdReplaceAll

userform1.Label1.Caption = "清理段落標記"
userform1.Show 0
DoEvents
Selection.WholeStory "修改段落標記
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^13"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory "清理多餘的段落標誌
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[^32{1,}, {1,},　{1}, {1}, {1,}]^13"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

For i = 1 To 5
DoEvents
Selection.WholeStory "清理多餘的段落標記
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next

Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 20
.Bold = True
.Color = wdColorRed
End With
With Selection.Find.Replacement.ParagraphFormat
.SpaceBefore = 2.5
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 24
.LineUnitBefore = 0
.LineUnitAfter = 1
.WordWrap = True
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitFirstLineIndent = 0
End With
With Selection.Find
.Text = "^m*^13*^13"
.Replacement.Text = "^"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

"For ax = 1 To ThisDocument.Hyperlinks.Count
"If ThisDocument.Hyperlinks(ax).Range.Text = "等人贊同" Then ThisDocument.Hyperlinks(ax).Delete
"Next

"================================================================================================================================
"Selection.Range.AutoFormat
"Selection.Document.Kind = wdDocumentNotSpecified "正文標準化
"Selection.Style = ActiveDocument.Styles("正文")

userform1.Label1.Caption = "格式化正文"
userform1.Show 0
DoEvents
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Underline = wdUnderlineNone
.Color = wdColorRed
.Bold = True
.Size = 8
End With
With Selection.Find.Replacement.ParagraphFormat
.SpaceBefore = 12
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 8
.Alignment = wdAlignParagraphDistribute
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitFirstLineIndent = 0
End With
With Selection.Find
.Text = "={10,}^13"
.Replacement.Text = "^13^"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Underline = wdUnderlineNone
.Color = wdColorGreen
.Bold = False
.Size = 8
End With
With Selection.Find.Replacement.ParagraphFormat
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 8
.Alignment = wdAlignParagraphDistribute
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitFirstLineIndent = 0
End With
With Selection.Find
.Text = "------------------------------------------------------------^13"
.Replacement.Text = "^"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Underline = wdUnderlineNone
.Color = wdColorBlue
.Bold = False
.Size = 8
End With
With Selection.Find.Replacement.ParagraphFormat
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 8
.Alignment = wdAlignParagraphDistribute
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitFirstLineIndent = 0
End With
With Selection.Find
.Text = "******************************^13"
.Replacement.Text = "^13^"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdPrintView
Else
ActiveWindow.View.Type = wdPrintView
End If

Application.ScreenUpdating = True
Selection.HomeKey Unit:=wdStory "回到文檔開頭
Selection.TypeBackspace
ActiveDocument.Paragraphs(1).Range.Select
Selection.Font.Size = 20
Selection.Font.Bold = True
Selection.Font.ColorIndex = wdRed
Selection.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 "wdLineSpaceDouble/ wdLineSpace1pt5
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 0
Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 0

Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorRed
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "修改^p"
.Replacement.Text = "^p"
.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.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p收起^p"
.Replacement.Text = "^p"
.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

userform1.Label1.Caption = "排版圖片"
userform1.Show 0
DoEvents
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.ParagraphFormat
.SpaceBefore = 5
.SpaceBeforeAuto = False
.SpaceAfter = 5
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitFirstLineIndent = 0
.Alignment = wdAlignParagraphCenter
End With
With Selection.Find
.Text = "^g"
.Replacement.Text = "^"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

userform1.hide
userform1.TextBox1.Text = ""

ActiveDocument.UndoClear
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
MsgBox ("文檔格式化完畢！")
Else
MsgBox ("用戶選擇退出！")
End If
End Sub

回歸本源好的問題和回答用筆摘抄下來然後分類整理

訂閱的方法在這裡：知乎收藏夾可以進行RSS訂閱嗎？

補充：

鮮果已經掛了，還是直接用知乎的收藏夾吧。

有道雲筆記，尤其是它的網頁內容一鍵保存功能，用起來十分的方便快捷。