[問題]分割word，並以指定內容字串另存檔名

[newiwgp (..??)]

軟體: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://www.ptt.cc/bbs/Office/M.1518513744.A.5B3.html
→ soyoso: 問題2如在固定行的話， selection.goto 參數what以
→ soyoso: wdgotoline，which以 wdgotofirst，第二行的話count以2
→ soyoso: 取該行文字selection.endkey參數unit以wdline，extend以
→ soyoso: wdextend。以mid來取該範圍selection.range.text，位置開
→ soyoso: 始為7(title=)後1位，長度省略。最後以replace取代斷行符
→ soyoso: 號chr(13)
→ soyoso: 問題1應需檔案才會比較清楚分割的位置是什麼原因