如何批量調整文本框中的文字字體為“宋體”?
?
作者:小蝦來源:部落窩教育發(fā)布時間:2021-07-21 09:52:06點擊:6170
編按:
文本框,想必大家都不陌生,它是承載文字的工具。有了它,我們可以對文字進行自由的排版和合理的布局,快速傳遞信息。但是,在設置多個文本框中的字體格式時,不知道各位有沒有發(fā)現,它無法像選擇普通文本那樣直接按【Ctrl+A】鍵全選文本框。而是需要按住【Ctrl】鍵不放,逐一選擇文本框,然后進行設置,這樣做就非常耗時費力。那么,有快捷操作方法嗎?今天小編教大家2招,一起來看一看吧!
你還記得自己第一次加班是因為什么事情嗎?
反正我印象中第一次加班是因為修改Word文檔中所有文本框中的字體格式!
那是一個星期五下午,臨近下班,老板突然發(fā)給我一個文檔,讓我把文檔中所有文本框中的字體改一下。
打開文檔一看,好家伙!數不清的文本框……
只能硬著頭皮一個一個地改,真的是苦不堪言!
經過這件事后,我下定決心,一定要找到更快捷的處理方法。
后來,經過一段時間的摸索,我總結了2個快速處理技巧。為避免各位也遇到相同問題而導致加班,今天我就將方法分享出來,希望各位都能“到點下班”!
方法一:選擇格式相似的文本
如果文檔中所有文本框中的字體格式都相同,可先選中任意一個文本框,然后點擊【開始】-【編輯】-【選擇】-【選擇所有格式相似的文本】。
此時,我們可以看到所有文本框中的文本都被同時選中了。然后在【開始】-【字體】組中設置字體為“宋體”即可。
方法二:使用VBA
打開VBA編輯器(可直接按【Alt+F11】組合鍵),新建模塊,然后將下面的代碼復制粘貼到窗口中。
Sub 將所有文本框中的文字字體設置為宋體()
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
oShp.TextFrame.TextRange.Font.Name = “宋體”
Next oShp
End Sub
然后保存宏,再點擊【運行】-【運行子過程/用戶窗體】,運行宏。
最后,關閉VBA窗口,此時,即可看到文檔中所有文本框中的文字字體就變?yōu)樗误w了。
小tips:點擊【視圖】-【宏】-【查看宏】-【運行】,也可運行宏喲!
好了,今天的內容就到這里,比較簡單卻非常實用的小技巧,你都掌握了嗎?
Word學習交流請加QQ群:816626786
做Word大神,快速提升工作效率,部落窩教育《Word極速貫通班》直播課全心為你!掃下方二維碼關注公眾號,可隨時隨地學習Word:
相關推薦:
Word快速錄入技巧匯總:數字大小寫、轉繁體字、打生僻字、分數、上下標輸入
為什么你的Word文檔排版凌亂?因為你不會用這3招呀!
版權申明:
本文作者小蝦;同時部落窩教育享有專有使用權。若需轉載請聯系部落窩教育。