WORDVBA．將WORD中的文字﹝自動...－shellyjamiotm

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