daniels5bp3@outlook.com

移民公證文件翻譯Loop
　P2 = Selection.Information(wdActiveEndPageNumber)
　R2 = Selection.Information(wdFirstCharacterLineNumber)
MsgBox "※自動斷行已完成，共點竄 " & N & " 行！　"
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1
　End If
　
R1 = Selection.Information(wdFirstCharacterLineNumber)
End Sub　
　　N = N + 1
Dim P1翻譯社 P2翻譯社 R1翻譯社 R2, N&
Selection.EndOf Unit:=wdStory, Extend:=wdMove
Sub 巨集1()
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
　　Selection.TypeParagraph
　
　　但因〔符號．英文〕的關係，每列不一定都同長度對齊。
＜程式碼＞
＜規範檔＞下載：
　Else
　　若按Ｆ１０無反應，可利用〔工具．巨集〕選取〔巨集１〕，
３．調劑WORD上方尺規至所需寬度，按Ｆ１０履行主動斷行，
　　再按〔履行〕便可。
檔案名稱：20150725v01(WORD主動斷行).rar
　　Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1
　　使用〔編輯．全選〕清除原有文字內容。
１．開啟所附WORD檔（須先設定為可啟用巨集），
２．從其他檔案或網頁中貼入要處理的文字（限純文字內容），
下載連結：http://www.funp.net/920379
　If Selection.Text = Chr(13) Then
P1 = Selection.Information(wdActiveEndPageNumber)
４．處理完成後，貼至EXCEL時，皆以一行一列存放，
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1
　　或可先利用所附範例檔的文字為測試。
＜使用方法＞
　　
Do
　
　If P1 = P2 And R1 = R2 Then Exit Do
二、透過本WORD範例檔巨集處理後，即可強制〔斷行〕翻譯
　
　　（每一行尾端皆自動加入 ENTER 斷行符號）
　　貼入EXCEL時，是寄存於單一儲存格，必須設為自動換列翻譯
　Selection.EndOf Unit:=wdLine翻譯社 Extend:=wdMove
一、WORD文字雖然自動以〔多行顯示〕，但實際上是統一行，
　

WORD VBA．將 WORD 中的文字﹝自動換行〕變為〔斷行〕
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－