tft每日頭條

 > 生活

 > word中的vba語言怎麼設置邊框

word中的vba語言怎麼設置邊框

生活 更新时间:2024-07-17 19:29:41

之前分享過一篇用内容控件給空白方框打勾的文章,見下面鍊接

Word插入空白方框打勾,并用VBA控制勾選

現在要使用文本框的方式實現給空白方框打勾。

1、先在Word中插入文本框,這選擇形狀的文本框

word中的vba語言怎麼設置邊框(Word使用文本框給空白方框打勾)1

2、然後在文本框裡輸入“√”,這是一個符号,輸入法即可以輸入。見下圖

word中的vba語言怎麼設置邊框(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

word中的vba語言怎麼設置邊框(Word使用文本框給空白方框打勾)3

4、最後将文本框設為嵌入式圖片,不會輕易浮動,改變位置。、

word中的vba語言怎麼設置邊框(Word使用文本框給空白方框打勾)4

代碼如下:

Sub 操作文本框打勾() With ActiveDocument .Shapes(1).TextFrame.TextRange = "" .Shapes(1).TextFrame.TextRange = "√" .Shapes(1).ConvertToInlineShape '設為嵌入式圖片 End With End Sub

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved