软件: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档即可

第一行好像没有特别的样式设定