共用方式為

將內容控制項從一種類型變更為另一種類型

  • 發行項

您可以在 Word 2007 和更新版本的檔中建立的內容控制項極具彈性。 大部分狀況下，您可以輕易將內容控制項從某個類型切換成另一個類型。 例如，如果您有日期內容控制項，可以將它變更成文字內容控制項，如果您有文字內容控制項，可以將它變更成 RTF 內容控制項。 若要這樣做，您可以使用 Type 屬性，並將它設定為 WdContentControlType 常 數。

注意事項

根據內容控制項的內容，您可能無法變更內容控制項類型。 例如，如果 RTF 內容控制項包含格式化文字，可能無法將控制項變更成純文字內容控制項。 在此情況下，Word 會引發執行階段錯誤。

此範例中所使用的物件包括：

下列範例會插入包含目前日期的新日期內容控制項，然後將它變更成文字內容控制項。

Sub ChangeTypeOfControl() 
 Dim objCC As ContentControl 
 Dim strDate As Date 
 
 strDate = Date 
 Set objCC = Selection.ContentControls.Add(wdContentControlDate) 
 objCC.Range.Text = strDate 
 
 objCC.Type = wdContentControlText 
End Sub

下列範例會插入下拉式清單內容控制項，然後將它變更為 RTF 內容控制項。

Sub ChangeContentControlType() 
 Dim objCC As ContentControl 
 
 Set objCC = ActiveDocument.ContentControls.Add(Type:=wdContentControlDropdownList) 
 objCC.SetPlaceholderText Text:="My Favorite Animal" 
 
 'List entries 
 objCC.DropdownListEntries.Add "Cat" 
 objCC.DropdownListEntries.Add "Dog" 
 objCC.DropdownListEntries.Add "Horse" 
 objCC.DropdownListEntries.Add "Monkey" 
 objCC.DropdownListEntries.Add "Snake" 
 objCC.DropdownListEntries.Add "Other" 
 
 Stop 
 
 ' Switch to view the new content control in the active document. 
 ' Notice that the content control is a drop-down list. 
 
 objCC.Type = wdContentControlRichText 
 
 ' After running the above code, the content control is no longer 
 ' a drop-down; it is a text content control. Only the placeholder 
 ' text remains; Word removes the items in the list. 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。