PTT數位生活區 / Office

[文件] 如何抓WORD檔首行到一個檔案

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