close
筆譯英文感謝...
小弟不知道有無其他更快速且伶俐的舉措
.Font.NameAscii = "Times New Roman"
在右側的視窗貼上程式碼後按F5即能將新細明體設成14字型大小，Times New Roman設成12字型巨細/斜體。
.Font.NameAscii = "Times New Roman"
(1) 編輯->代替
一句或一段
Selection.Find.Execute Replace:=wdReplaceAll
再次感謝您囉,
先圈選該斷手動調整好的
本身寫一個VB的程式，拔取英文與數字，改變格局翻譯
先將整頁打好
可是大大您的程式碼仿佛有一個處所怪怪的,
接著選剩下的部份
在打字時便能自動辨識,
或是有方法寫個.bat檔在整份文件打好後點兩下即可是最好,
.Font.NameFarEast = "新細明體"
使用上方功能列中 : 對象->巨集->Visual Basic編纂器
End With
僅供給一個笨笨的....
.Text = ""
只要寫過一次，今後都可以用。
.Wrap = wdFindContinue
太感激了...
好比說部分中文字用新細明體 14,
不外沒關係我試探一下好了,
.Replacement.Font.Size = 14
End Sub
接著選剩下的部份
如許才算有學到器械嘛翻譯社
至少不用劃分選出中、英文來設定吧？
(2) 在「尋覓目標」處輸入：[A-Za-z0-9]
.ClearFormatting
.Font.NameFarEast = "新細明體"
.Font.NameAscii = "Times New Roman"
在右側的視窗貼上程式碼後按F5即能將新細明體設成14字型大小，Times New Roman設成12字型巨細/斜體。
.Font.NameAscii = "Times New Roman"
(1) 編輯->代替
一句或一段
天成翻譯公司有想到一個方式...不外需要寫VB程式的能力才行...並且我沒有測試過...
.ClearFormatting
在輸入完文件後，按Alt+F11鍵，然後在左邊的專案上按"右鍵/插入模組"。
感謝...
.ClearFormatting
在輸入完文件後，按Alt+F11鍵，然後在左邊的專案上按"右鍵/插入模組"。
感謝...
Selection.Find.Execute Replace:=wdReplaceAll
再次感謝您囉,
先圈選該斷手動調整好的
本身寫一個VB的程式，拔取英文與數字，改變格局翻譯
先將整頁打好
可是大大您的程式碼仿佛有一個處所怪怪的,
接著選剩下的部份
可否請各人幫個小忙翻譯社
.Replacement.ClearFormatting
假如想自行學習的話，選取功能列裡的說明，裡面就有語法的诠釋囉
這樣就會將剩下未手動調劑的部分複製格局成但願設定的格局
如同還有方式
再整篇打完後全選
我再本身行試探進修,
這個方式天成翻譯公司沒試過(不會寫VB啦...
)
.Replacement.Font.Italic = True
End With
感謝...
因為如許一套用下去會全變成 Times New Roman 12斜體,.Replacement.ClearFormatting
假如想自行學習的話，選取功能列裡的說明，裡面就有語法的诠釋囉
這樣就會將剩下未手動調劑的部分複製格局成但願設定的格局
如同還有方式
再整篇打完後全選
我再本身行試探進修,
這個方式天成翻譯公司沒試過(不會寫VB啦...
).Replacement.Font.Italic = True
End With
感謝...
在打字時便能自動辨識,
或是有方法寫個.bat檔在整份文件打好後點兩下即可是最好,
chaorockson wrote:
程式碼以下：
且在設定好後會套用整篇文件是以沒法附和需求,
請問word高手是否能在一開始便指定好中英文字型的不同,
可否請大大供給語法範本翻譯社 我再自己行試探進修, 謝謝...
但一次只能設定一種字型,
我試了一下不行耶...
.MatchCase = False
一句或一段
.Text = ""這個方式我沒試過(不會寫VB啦...)
以上小弟拙見 :p
.Replacement.Text = ""
客戶要求在統一篇文件中必須要中英文的字型及大小不一樣,
每次整篇寫完後必須逐一手動調劑英文和數字部門很廢時翻譯社
可否請大大供應語法範本翻譯社
將格局設定好
.Font.NameFarEast = "新細明體"
使用上方功能列中 : 對象->巨集->Visual Basic編纂器
End With
僅供給一個笨笨的....
.Text = ""
只要寫過一次，今後都可以用。
翻譯公司供給設法喔,
End With
將格式設定好
.Replacement.Font.Size = 14
.Replacement.Font.Size = 12End With
將格式設定好
.Replacement.Font.Size = 14
.Wrap = wdFindContinue
太感激了...
好比說部分中文字用新細明體 14,
不外沒關係我試探一下好了,
.Replacement.Font.Size = 14
End Sub
接著選剩下的部份
如許才算有學到器械嘛翻譯社
至少不用劃分選出中、英文來設定吧？
(2) 在「尋覓目標」處輸入：[A-Za-z0-9]
.ClearFormatting
.Font.NameFarEast = "新細明體"
1. 先將中英文通通釀成「新細明體14」
2. 用庖代功能將英數變成「Times New Roman 斜體 12」，方式如下
2. 用庖代功能將英數變成「Times New Roman 斜體 12」，方式如下
不是設定各類樣式後，一段一段的加以指定便可？
.Wrap = wdFindContinue
.Wrap = wdFindContinue
葉尼克 wrote:
.Replacement.Font.Size = 12
.Replacement.Text = ""
.MatchCase = False
仿佛還有方式
小弟不知道有無其他更快速且聰明的辦法
(3) 按「更多」，勾選搜尋選項「利用萬用字元」
只要寫過一次，今後都可以用。
然後利用Word當中的"複製格式"(像掃把誰人)
.ClearFormatting
再整篇打完後全選
在輸入後中英文會釀成都是斜體耶翻譯社
在輸入完文件後，按Alt+F11鍵，然後在左側的專案上按"右鍵/插入模組"翻譯
引用自: https://www.mobile01.com/topicdetail.php?f=300&t=99098有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
文章標籤全站熱搜
留言列表
留言列表發表留言
