WD98: Fehler bereits vorhandener benutzerdefinierte Dokumenteigenschaft erstellen

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 182184 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Dieser Artikel wurde archiviert. Er wird im vorliegenden Zustand bereitgestellt und nicht mehr aktualisiert.
Alles erweitern | Alles schließen

Problembeschreibung

Wenn Sie Visual Basic für Applikationen, verwenden um ein Dokument Neues benutzerdefiniertes Eigenschaft zu erstellen, können Sie die folgende Fehlermeldung:
Laufzeitfehler '-2147467259(80004005):
Automatisierungsfehler

Ursache

Diese Fehlermeldung wird angezeigt, wenn die benutzerdefinierte Dokumenteigenschaft, die Sie gerade erstellen, bereits vorhanden ist.

Abhilfe

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent, einschließlich, aber nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit und/oder Eignung für einen bestimmten Zweck. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Spezialisten von Microsoft Support Services können bei Erläuterung die Funktionalität einer bestimmten Prozedur helfen, Sie werden ändert jedoch nicht Beispielen bieten Funktionen hinzugefügt oder Verfahren, um Ihren speziellen Anforderungen erstellen.
Wenn Sie Programmiererfahrung, beschränkt haben, sollten Sie ein Microsoft Certified Partner oder die Microsoft Advisory Services wenden. Weitere Informationen finden Sie auf diese Websites von Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Microsoft-Sicherheitsempfehlung Services - http://support.microsoft.com/gp/advisoryservice

Weitere Informationen zu den Supportoptionen, die verfügbar sind und wie Sie Microsoft kontaktieren besuchen Sie in der folgenden Website: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSUm diesen Fehler zu vermeiden, überprüfen Sie die benutzerdefinierte Dateien Eigenschaft Auflistung, ob die Dokumenteigenschaft bereits vorhanden ist. Im folgende Beispiel Visual Basic für Applikationen-Makros zeigen, wie dies erreicht werden kann.

Das erste Makro ruft die SetProp-Subroutine auf. Dabei handelt es sich um ein separates Makro, sodass Sie die einzelne Befehlszeile in ein längeres Makro einfügen können.
   Sub SetCustomPropertyName()
      ' **************************************************
      ' This SubRoutine passes the Custom Property Name,
      ' Value and Property Type to the SetProp subroutine.
      ' **************************************************
      ' Set the custom property "MyCustomPropertyName" equal
      ' to "MyCustomValue". The msoPropertyTypeString constant
      ' specifies the type of property, and must be included.
      SetProp "MyCustomPropertyName", "MyCustomValue", _
      msoPropertyTypeString
   End Sub
				


Weitere Informationen über die Type-Eigenschaft aus Visual Basic für Applikationen-Editor klicken Sie auf der Office-Assistenten, geben Sie die Type-Eigenschaft , klicken Sie auf Suchen und klicken Sie anzeigen "Typ" Property(Microsoft Office Reference).
   Sub SetProp(CDPName As String, CDPValue As Variant, Optional _
   CDPType As Long)
      ' ***********************************************
      ' The SetProp routine checks to see if the Custom
      ' Document Property pre-exists. If it exits, then
      ' it adds the new value. If it does not exist,
      ' it creates the new property and adds the new value.
      ' ***********************************************
      ' Make sure the optional argument CDPType is set.
      ' If it is missing, make it a string value.
      Dim oCDP, oProp, msg
      If IsMissing(CDPType) Then
         CDPType = msoPropertyTypeString
      End If
      Set oCDP = ActiveDocument.CustomDocumentProperties
      ' Compare each custom document property to the
      ' property you want to create to see if it exists.
      For Each oProp In oCDP
         ' If the Custom Property exists...
         If oProp.Name = CDPName Then
            With oProp
               ' ...the custom property Type you are setting
               ' must match the pre-existing custom property.
               If .Type <> CDPType Then
                  msg = "The custom property types do not match."
                  msg = msg + " Custom property not set."
                  MsgBox msg
                  ' End the routine.
                  Exit Sub
               End If
               .LinkToContent = False
               ' Set the new value.
               .Value = CDPValue
            End With
            ' A match was found, so exit the routine.
            Exit Sub
         End If
      Next oProp
      ' No match was found. Create a new property and value.
      oCDP.Add Name:=CDPName, Value:=CDPValue, Type:=CDPType, _
      LinkToContent:=False
   End Sub
				
Weitere Informationen zum Festlegen von benutzerdefinierten Eigenschaften klicken Sie auf der Office-Assistenten während in Visual Basic-Editor, geben Sie die CustomDocumentProperties-Eigenschaft , klicken Sie auf Suchen und klicken Sie dann hier, um "CustomDocumentProperties-Eigenschaft" anzuzeigen

Hinweis: Wenn der Assistent ausgeblendet ist, klicken Sie Office-Assistenten auf der Symbolleiste Standard. Falls er nicht beantworten die Abfrage ist, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
179216OFF98: Verwendung des Microsoft Office Installer-Programms

Weitere Informationen

Weitere Informationen finden Sie in der folgenden Artikel der Microsoft Knowledge Base:
181058OFF98: Beispielcode aus Knowledge Base-Artikeln Ausführen von

Informationsquellen

Weitere Informationen dazu, wie Sie Hilfestellung in Bezug auf Visual Basic für Applikationen erhalten können, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
163435VBA: Programmieren von Ressourcen für Visual Basic für Applikationen

Eigenschaften

Artikel-ID: 182184 - Geändert am: Donnerstag, 6. Februar 2014 - Version: 2.2
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Word 98 für Macintosh
Keywords: 
kbnosurvey kbarchive kbmt kbmacroexample kbprb KB182184 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 182184
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Ihr Feedback an uns

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com