Word) (CheckBox 物件
表示單一核取方塊表單欄位。
使用 FormFields (Index) ,其中 Index 是索引編號或與核取方塊相關聯的書簽名稱,可傳回單一 FormField 物件。 使用 CheckBox 屬性搭配 FormField 物件可傳回 CheckBox 物件。 下列範例會選取使用中文件內名為 "Check1" 的核取方塊表單欄位。
ActiveDocument.FormFields("Check1").CheckBox.Value = True
索引編號代表 FormFields 中之表單欄位的位置 集合。 下列範例會檢查第一個表單欄位的類型;如果它是核取方塊,就會選取此核取方塊。
If ActiveDocument.FormFields(1).Type = wdFieldFormCheckBox Then
ActiveDocument.FormFields(1).CheckBox.Value = True
End If
下列範例會先判斷 ffield 物件是否有效,然後再將此核取方塊的大小變更為 14 點。
Set ffield = ActiveDocument.FormFields(1).CheckBox
If ffield.Valid = True Then
ffield.AutoSize = False
ffield.Size = 14
Else
MsgBox "First field is not a check box"
End If
使用 Add 方法搭配 FormFields 物件來新增核取方塊表單欄位。 下列範例會在使用中文件的開頭加入一個核取方塊、將名稱設定為 "Color",然後選取此核取方塊。
With ActiveDocument.FormFields.Add(Range:=ActiveDocument.Range _
(Start:=0,End:=0), Type:=wdFieldFormCheckBox)
.Name = "Color"
.CheckBox.Value = True
End With
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。