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

看板Office作者 (..??)時間6年前 (2018/02/13 17:22), 編輯推噓0(007)
留言7則, 1人參與, 6年前最新討論串1/1
軟體: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

02/13 18:49, 6年前 , 1F
問題2如在固定行的話, selection.goto 參數what以
02/13 18:49, 1F

02/13 18:50, 6年前 , 2F
wdgotoline,which以 wdgotofirst,第二行的話count以2
02/13 18:50, 2F

02/13 18:51, 6年前 , 3F
取該行文字selection.endkey參數unit以wdline,extend以
02/13 18:51, 3F

02/13 18:52, 6年前 , 4F
wdextend。以mid來取該範圍selection.range.text,位置開
02/13 18:52, 4F

02/13 18:53, 6年前 , 5F
始為7(title=)後1位,長度省略。最後以replace取代斷行符
02/13 18:53, 5F

02/13 18:53, 6年前 , 6F
號chr(13)
02/13 18:53, 6F

02/13 18:54, 6年前 , 7F
問題1應需檔案才會比較清楚分割的位置是什麼原因
02/13 18:54, 7F
文章代碼(AID): #1QWgvGMp (Office)