軟體:WORD
版本:2016
如何批次抓同一資料夾下WORD檔的首行文字到一個TXT檔
因為檔名無意義，若是可以改檔名就更好了

想到的是巨集，迴圈，dir取檔名，documents.open開檔close關檔。首行，selection.homekey，unit以wdstoryendkey選至最後，unit以wdline，extend以wdextend字串以selection.range.text取得，replace取代斷行符號chr(13)為空字串""。寫入文字檔，以open filename for output as filenumber或以scripting.filesystemobject，createtextfile更名以name oldpathname as newpathname

有點難度

如果該批Word檔首行文字已設定樣式，可依照下列作法：1. 新增Word文件，插入物件→文字檔，將全部Word檔合併2. 假定首行文字樣式為「標題一」，任意設定一個顏色修改之後更新全部樣式；接著把文字全部選取3. 開啟Excel新增文件，把複製的全文貼入新增的xls檔使用篩選→依色彩篩選，選擇先前設定的樣式色彩最後把篩選結果貼入txt檔即可

第一行好像沒有特別的樣式設定