作者okok801 (一星如月)
看板Office
標題[文件] 如何抓WORD檔首行到一個檔案
時間Wed Feb 14 22:32:57 2018
軟體:WORD
版本:2016
如何批次抓同一資料夾下WORD檔的首行文字到一個TXT檔
因為檔名無意義，若是可以改檔名就更好了
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 219.70.5.141
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1518618780.A.B98.html
1F：→ soyoso: 想到的是巨集，迴圈，dir取檔名，documents.open開檔 02/15 00:13
2F：→ soyoso: close關檔。首行，selection.homekey，unit以wdstory 02/15 00:13
3F：→ soyoso: endkey選至最後，unit以wdline，extend以wdextend 02/15 00:14
4F：→ soyoso: 字串以selection.range.text取得，replace取代斷行符號 02/15 00:15
5F：→ soyoso: chr(13)為空字串""。 02/15 00:15
6F：→ soyoso: 寫入文字檔，以open filename for output as filenumber 02/15 00:15
7F：→ soyoso: 或以scripting.filesystemobject，createtextfile 02/15 00:16
8F：→ soyoso: 更名以name oldpathname as newpathname 02/15 00:16
9F：→ okok801: 有點難度 02/15 00:35
10F：→ Henselt: 如果該批Word檔首行文字已設定樣式，可依照下列作法： 02/16 16:01
11F：→ Henselt: 1. 新增Word文件，插入物件→文字檔，將全部Word檔合併 02/16 16:02
12F：→ Henselt: 2. 假定首行文字樣式為「標題一」，任意設定一個顏色 02/16 16:04
13F：→ Henselt: 修改之後更新全部樣式；接著把文字全部選取 02/16 16:04
14F：→ Henselt: 3. 開啟Excel新增文件，把複製的全文貼入新增的xls檔 02/16 16:05
15F：→ Henselt: 使用篩選→依色彩篩選，選擇先前設定的樣式色彩 02/16 16:07
16F：→ Henselt: 最後把篩選結果貼入txt檔即可 02/16 16:08
17F：→ okok801: 第一行好像沒有特別的樣式設定 02/20 23:27