→ soyoso: 想到的是巨集，迴圈，dir取檔名，documents.open開檔 02/15 00:13
→ soyoso: close關檔。首行，selection.homekey，unit以wdstory 02/15 00:13
→ soyoso: endkey選至最後，unit以wdline，extend以wdextend 02/15 00:14
→ soyoso: 字串以selection.range.text取得，replace取代斷行符號 02/15 00:15
→ soyoso: chr(13)為空字串""。 02/15 00:15
→ soyoso: 寫入文字檔，以open filename for output as filenumber 02/15 00:15
→ soyoso: 或以scripting.filesystemobject，createtextfile 02/15 00:16
→ soyoso: 更名以name oldpathname as newpathname 02/15 00:16
→ okok801: 有點難度 02/15 00:35
→ Henselt: 如果該批Word檔首行文字已設定樣式，可依照下列作法： 02/16 16:01
→ Henselt: 1. 新增Word文件，插入物件→文字檔，將全部Word檔合併 02/16 16:02
→ Henselt: 2. 假定首行文字樣式為「標題一」，任意設定一個顏色 02/16 16:04
→ Henselt: 修改之後更新全部樣式；接著把文字全部選取 02/16 16:04
→ Henselt: 3. 開啟Excel新增文件，把複製的全文貼入新增的xls檔 02/16 16:05
→ Henselt: 使用篩選→依色彩篩選，選擇先前設定的樣式色彩 02/16 16:07
→ Henselt: 最後把篩選結果貼入txt檔即可 02/16 16:08
→ okok801: 第一行好像沒有特別的樣式設定 02/20 23:27