作者newiwgp (..??)
看板Office
标题[问题]分割word，并以指定内容字串另存档名
时间Tue Feb 13 17:22:21 2018
软体:Word 2016
版本:2016
需求是将合并列印後的档案，依指定字串分割後另存成对应字串的doc and txt
http://fyyang.blogspot.tw/2014/04/tools-word-vba.html
我有参考以上的网站，但使用上有遇到问题
1.此VBA是以word分节符号的位置，当成分割档案的判定
但我使用在需要的word file时，会发生分割位置在奇怪的指定位置，而不是在分节点
请问是否word原始档有什麽部份需要设定?
2.没办法抓到命名的字串，因我分合并内容是大量的文字档，而非表格
此部份请教是否有对应的语法?
合并後的档案内容格式如下:
=========
... (内容）
TITLE=A001 (A001为另存後希望的档名，在固定的行数，TITLE=後的文字长度不定)
....(内容）
....(内容）
....(内容）
=========
----分节页面----
=========
... (内容）
TITLE=A0000002 (A0000002为另存後希望的档名，ITLE=後的文字长度不定)
....(内容）
....(内容）
....(内容）
=========
分节页面
後续重复
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 50.225.62.90
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1518513744.A.5B3.html
1F：→ soyoso: 问题2如在固定行的话， selection.goto 参数what以 02/13 18:49
2F：→ soyoso: wdgotoline，which以 wdgotofirst，第二行的话count以2 02/13 18:50
3F：→ soyoso: 取该行文字selection.endkey参数unit以wdline，extend以 02/13 18:51
4F：→ soyoso: wdextend。以mid来取该范围selection.range.text，位置开 02/13 18:52
5F：→ soyoso: 始为7(title=)後1位，长度省略。最後以replace取代断行符 02/13 18:53
6F：→ soyoso: 号chr(13) 02/13 18:53
7F：→ soyoso: 问题1应需档案才会比较清楚分割的位置是什麽原因 02/13 18:54