marionia0ah1@outlook.com

奧凡博文翻譯檔案名稱：20150725v01(WORD主動斷行).rar
３．調劑WORD上方尺規至所需寬度，按Ｆ１０執行主動斷行，
　R2 = Selection.Information(wdFirstCharacterLineNumber)
　Else
＜類型檔＞下載：
　　若按Ｆ１０無回響反映，可使用〔東西．巨集〕拔取〔巨集１〕，
一、WORD文字固然自動以〔多行顯示〕，但其實是統一行，
　P2 = Selection.Information(wdActiveEndPageNumber)
　If P1 = P2 And R1 = R2 Then Exit Do
＜程式碼＞
２．從其他檔案或網頁中貼入要處理的文字（限純文字內容），
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
　
Do
　
　　貼入EXCEL時，是存放於單一貯存格，必須設為主動換列翻譯
Loop
　
　　或可先哄騙所附範例檔的文字為測試。
R1 = Selection.Information(wdFirstCharacterLineNumber)
　　Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext翻譯社 Count:=1
Sub 巨集1()
　　利用〔編輯．全選〕排除原有文字內容。
P1 = Selection.Information(wdActiveEndPageNumber)
　　Selection.TypeParagraph
Selection.EndOf Unit:=wdStory, Extend:=wdMove
　　（每一行尾端皆主動加入 ENTER 斷行符號）
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1
　End If
　　

WORD VBA．將 WORD 中的文字﹝主動換行〕變為〔斷行〕
　　但因〔符號．英文〕的關係，每列紛歧建都同長度對齊。
＜利用方法＞
　
二、透過本WORD類型檔巨集處置後，即可強迫〔斷行〕翻譯
　
MsgBox "※主動斷行已完成，共修改 " & N & " 行！　"
Selection.GoTo What:=wdGoToLine翻譯社 Which:=wdGoToFirst, Count:=1
　If Selection.Text = Chr(13) Then
４．處置懲罰完成後，貼至EXCEL時，皆以一行一列寄存，
End Sub　
　　N = N + 1
Dim P1翻譯社 P2, R1翻譯社 R2, N&
１．開啟所附WORD檔（須先設定為可啟用巨集），
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

　Selection.EndOf Unit:=wdLine, Extend:=wdMove
　　再按〔履行〕便可。
下載保持：http://www.funp.net/920379


文章來自: http://blog.xuite.net/smile1000mile/blog/328125618-%E5%B0%87+WORD+%E4%B8%AD%E7%9A%84%E6%96%87%E5%AD%有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931