編按：

文本框,想必大家都不陌生，它是承載文字的工具。有了它，我們可以對文字進行自由的排版和合理的布局，快速傳遞信息。但是，在設(shè)置多個文本框中的字體格式時，不知道各位有沒有發(fā)現(xiàn)，它無法像選擇普通文本那樣直接按【Ctrl+A】鍵全選文本框。而是需要按住【Ctrl】鍵不放，逐一選擇文本框，然后進行設(shè)置，這樣做就非常耗時費力。那么，有快捷操作方法嗎？今天小編教大家2招，一起來看一看吧！

你還記得自己第一次加班是因為什么事情嗎？ 

反正我印象中第一次加班是因為修改Word文檔中所有文本框中的字體格式！ 

那是一個星期五下午，臨近下班，老板突然發(fā)給我一個文檔，讓我把文檔中所有文本框中的字體改一下。

打開文檔一看，好家伙！數(shù)不清的文本框……

只能硬著頭皮一個一個地改，真的是苦不堪言！

經(jīng)過這件事后，我下定決心，一定要找到更快捷的處理方法。

后來，經(jīng)過一段時間的摸索，我總結(jié)了2個快速處理技巧。為避免各位也遇到相同問題而導(dǎo)致加班，今天我就將方法分享出來，希望各位都能“到點下班”！

方法一：選擇格式相似的文本

如果文檔中所有文本框中的字體格式都相同，可先選中任意一個文本框，然后點擊【開始】-【編輯】-【選擇】-【選擇所有格式相似的文本】。

此時，我們可以看到所有文本框中的文本都被同時選中了。然后在【開始】-【字體】組中設(shè)置字體為“宋體”即可。

方法二：使用VBA

打開VBA編輯器（可直接按【Alt+F11】組合鍵），新建模塊，然后將下面的代碼復(fù)制粘貼到窗口中。

Sub 將所有文本框中的文字字體設(shè)置為宋體()

   Dim oShp As Shape

   For Each oShp In ActiveDocument.Shapes

     oShp.TextFrame.TextRange.Font.Name = “宋體”

   Next oShp

End Sub

然后保存宏，再點擊【運行】-【運行子過程/用戶窗體】，運行宏。

最后，關(guān)閉VBA窗口，此時，即可看到文檔中所有文本框中的文字字體就變?yōu)樗误w了。

小tips：點擊【視圖】-【宏】-【查看宏】-【運行】，也可運行宏喲！

好了，今天的內(nèi)容就到這里，比較簡單卻非常實用的小技巧，你都掌握了嗎？

Word學(xué)習(xí)交流請加QQ群：816626786

掃下方二維碼關(guān)注公眾號，可隨時隨地學(xué)習(xí)Word：

相關(guān)推薦：