作者okok801 (一星如月)
看板Office
标题[文件] 如何抓WORD档首行到一个档案
时间Wed Feb 14 22:32:57 2018
软体:WORD
版本:2016
如何批次抓同一资料夹下WORD档的首行文字到一个TXT档
因为档名无意义,若是可以改档名就更好了
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 219.70.5.141
※ 文章网址: https://webptt.com/cn.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