Freigeben über

Ändern eines Inhaltssteuerelements von einem Typ in einen anderen

  • Artikel

Die Inhaltssteuerelemente, die Sie in Dokumenten in Word 2007 und höher erstellen können, sind äußerst flexibel. In den meisten Fällen können Sie ein Inhaltssteuerelement problemlos in einen anderen Typ ändern. Ein Datums-Inhaltssteuerelement kann z. B. in ein Text-Inhaltssteuerelement geändert werden, und ein Text-Inhaltssteuerelement kann in ein Rich-Text-Inhaltssteuerelement geändert werden. Dazu verwenden Sie die Type-Eigenschaft und legen sie auf eine WdContentControlType-Konstante fest.

Hinweis

Je nach Inhalts des Inhaltssteuerelements ist das Ändern des Typs des Inhaltssteuerelements nicht möglich. So können Sie z. B. ein Rich-Text-Inhaltssteuerelement, das formatierten Text enthält, nicht in ein Nur-Text-Inhaltssteuerelement ändern. In diesem Fall würde ein Laufzeitfehler ausgelöst.

In diesem Beispiel werden die folgenden Objekte verwendet:

Im folgenden Beispiel wird ein neues Datums-Inhaltssteuerelement eingefügt, das das aktuelle Datum enthält. Dann wird das Inhaltssteuerelement in ein Text-Inhaltssteuerelement geändert.

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

Im folgenden Beispiel wird ein Dropdownlisten-Inhaltssteuerelement eingefügt und dann in ein Rich-Text-Inhaltssteuerelement geändert.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.