使用ActiveDocument.Tables(1).Cell(Row:=1, Column:=1) 獲得單元格，我現在只知道使用cell的range屬性獲得cell的整個range，但是我想只改變這個cell里面某個字符的字體，請問可以實作嗎？
uj5u.com熱心網友回復：
稍微彎彎繞一點，cell里的range不能選取部分，但是cell.range.document.range就可以了參考代碼
Dim TabCell As cell
Set TabCell = ActiveDocument.Tables(1).cell(Row:=1, Column:=1)
With TabCell.Range.Document.Range(Start:=2, End:=5) '設定你要選擇的起止字符
.Font.Size = 20
End With
效果：
uj5u.com熱心網友回復：
樓主你好，請試試下面的代碼，就知道怎么挨個控制字符了。其中主要是那個Item(1)，指定幾，就是第幾個字符。
ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Characters.Item(1).Font.Size = 50
uj5u.com熱心網友回復：
我來圍觀一下。
uj5u.com熱心網友回復：
在Word2003中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。uj5u.com熱心網友回復：
請進行實際操作以后再確定是否對樓主有幫助。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
它除了跟復讀機一樣的回復，還能做什么……
“復讀機”是不會思考的。
uj5u.com熱心網友回復：
樓主要的是直接操作cell物件，你給出鍵盤操作的宏根本不是他要的。
uj5u.com熱心網友回復：
我為什么一定要直接給出答案？為什么我不能指出找到和答案相關知識點的辦法？
uj5u.com熱心網友回復：
別忘了，僅用鍵盤操作，也可以將游標定位到指定表格的指定單元格，并選定該單元格中指定范圍內文字。uj5u.com熱心網友回復：
你就不想想：從“你的答案”轉換到“樓主需要的答案”，需要翻過多高的坎、跨過多寬的河啊…………
uj5u.com熱心網友回復：
我承認：錄制宏，可以解決不少的問題；也能從中“學到”不少的東西。但并不是啥問題都可以用“錄制宏”的方法解決的。
uj5u.com熱心網友回復：
那是他的事。
uj5u.com熱心網友回復：
錢不是萬能的，但沒有錢是萬萬不能的。
同樣，
宏不是萬能的，但沒有宏是萬萬不能的。
uj5u.com熱心網友回復：
那么你的所有回復只需要一句：打開windows，上MSDN，剩下的事情靠悟性
uj5u.com熱心網友回復：
本來也和這樣差不多少。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
師傅引進門，修行靠個人。uj5u.com熱心網友回復：
你的格式化回答搞得人家都還不知道們在哪呢
uj5u.com熱心網友回復：
老師講的云里霧里，才能顯示出老師高深莫測。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/46850.html
標籤：VBA