之前分享過一篇用内容控件給空白方框打勾的文章，見下面鍊接
Word插入空白方框打勾，并用VBA控制勾選
現在要使用文本框的方式實現給空白方框打勾。
1、先在Word中插入文本框，這選擇形狀的文本框
2、然後在文本框裡輸入“√”，這是一個符号，輸入法即可以輸入。見下圖
上面的步驟可以用代碼來代替
Sub 利用文本框打勾() With ActiveDocument Set Mytbox = .Shapes _ .AddTextbox(Orientation:=msoTextOrientationHorizontal, _ Left:=100, Top:=100, Width:=300, Height:=200) Mytbox.TextFrame.TextRange = "√" End With End Sub
Left:=100, Top:=100, Width:=300, Height:=200
這句代碼是初始化文本框的大小，更改數字即可。
當然可以無視此代碼，手工更改。
3、因為使用Shape形狀的文本框，所以很容易就可以使用Shapes集合來引用文本框，并操作打勾。代碼如下：
Sub 操作文本框打勾() With ActiveDocument .Shapes(1).TextFrame.TextRange = "√" End With End Sub
上述代碼給第一個形狀添加 "√"的文字。
注意，假如文檔中很多形狀，則需要确定第一個是否是文本框，見下面gif
4、最後将文本框設為嵌入式圖片，不會輕易浮動，改變位置。、
代碼如下：
Sub 操作文本框打勾() With ActiveDocument .Shapes(1).TextFrame.TextRange = "" .Shapes(1).TextFrame.TextRange = "√" .Shapes(1).ConvertToInlineShape '設為嵌入式圖片 End With End Sub
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
