英文口譯證照３．調劑WORD上方尺規至所需寬度，按Ｆ１０執行主動斷行，
但因〔符號．英文〕的關係，每列紛歧建都同長度對齊。。-> 翻譯社|,-> 翻譯公司|的-> 翻譯
Do
一、WORD文字固然主動以〔多行顯示〕，但實際上是統一行，
R1 = Selection.Information(wdFirstCharacterLineNumber)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dim P1 翻譯公司 P2, R1, R2 翻譯公司 N&
＜類型檔＞下載：
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1
（每行尾端皆主動到場 ENTER 斷行符號）
If P1 = P2 And R1 = R2 Then Exit Do
若按Ｆ１０無回響反映，可使用〔對象．巨集〕拔取〔巨集１〕，
＜利用方式＞
Selection.GoTo What:=wdGoToLine 翻譯公司 Which:=wdGoToNext 翻譯公司 Count:=1
利用〔編纂．全選〕肅清原有文字內容。
２．從其他檔案或網頁中貼入要處置懲罰的文字（限純文字內容），
If Selection.Text = Chr(13) Then
Loop
WORD VBA．將 WORD 中 翻譯文字﹝主動換行〕變為〔斷行〕
Selection.EndOf Unit:=wdStory, Extend:=wdMove
檔案名稱：20150725v01(WORD主動斷行).rar
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1
End If
１．開啟所附WORD檔（須先設定為可啟用巨集），
Selection.TypeParagraph
４．處置懲罰完成後，貼至EXCEL時，皆以一行一列寄存，
R2 = Selection.Information(wdFirstCharacterLineNumber)
End Sub
＜程式碼＞
下載連結：http://www.funp.net/920379
Sub 巨集1()
MsgBox "※主動斷行已完成，共點竄 " & N & " 行！ "
2、透過本WORD類型檔巨集處置後，即可強迫〔斷行〕。
Selection.EndOf Unit:=wdLine, Extend:=wdMove
再按〔履行〕便可。
N = N + 1
或可先使用所附類型檔的文字為測試 翻譯社
Else
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
貼入EXCEL時，是寄存於單一貯存格，必需設為主動換列 翻譯社
P2 = Selection.Information(wdActiveEndPageNumber)
以下文章來自: http://blog.xuite.net/smile1000mile/blog/328125618-%E5%B0%87+WORD+%E4%B8%AD%E7%9A%84%E6%96%87%E5%AD%有關翻譯的問題歡迎諮詢天成翻譯社
留言列表
