Hallo Bluejay,
vielen Dank für das zur Verfügung gestellte Makro.
Leider läuft es bei mir nicht richtig.
Ich kann feststellen, dass es die Stilbibliothek anpasst und den Rahmen und das Schriftfeld löscht.
Soweit so gut.
Nun mein Problem:
Es kopiert mir nicht das neue Schriftfeld, Rahmen und skizzierte Symbole auf die Zeichnung. Ich nehme an das hat nichts mit dem Pfad zu tun, denn die Msg-Box bringt nach kopieren des Quellpfades jetzt auch keine Fehlermeldung wie zuvor von wegen kann Vorlagendatei nicht finden. Also sollte Quellpfad auch in Ordnung sein.
Ich nehme an es liegt an den Bereichen im Makro, in denen ich etwas anderes falsch eingebe.
'Resourcen der Template defenieren und Kopieren(Step#5)
Dim oSketchedSymbolDef As SketchedSymbolDefinition
Dim QuellDoc As DrawingDocument
Set QuellDoc = ThisApplication.Documents.Open("Hier Pfad der Vorlagedatei eingeben")
Hier denke ich, dass alles in Ordnung ist?!
Dim QuellRahmen As BorderDefinition
Set QuellRahmen = QuellDoc.BorderDefinitions.Item("Name Einfügen")
Dim ZielRahmen As BorderDefinition
Set ZielRahmen = QuellRahmen.CopyTo(ZielDoc, True)
Hier soll man den Namen des Quellrahmens eingeben, nur welchen?
Ich habe in meiner Vorlage ja Rahmen für DIN A4, DIN A3 etc. ???
Dim QuellSchriftfeld As TitleBlockDefinition
Set QuellSchriftfeld = QuellDoc.TitleBlockDefinitions.Item("NameEinfügen")
Dim ZielSchriftfeld As TitleBlockDefinition
Set ZielSchriftfeld = QuellSchriftfeld.CopyTo(ZielDoc, True)
Hier soll man den Namen des Schriftfeldes angeben, ok kein Problem, der hat sich nie geändert und es ist auch nur ein Schriftfeld vorhanden. Doch es funzt leider trotzdem nicht???
'fügt neue skizzierte Symbole aus Template in die Zeichnungsresourcen des activen Blattes ein(Step#6)
zahl1 = QuellDoc.SketchedSymbolDefinitions.Count
For i = 1 To zahl1
Set oSketchedSymbolDef = QuellDoc.SketchedSymbolDefinitions.Item(i).CopyTo(ZielDoc, True)
Next
QuellDoc.Close
Das müsste bei richtiger Pfadeingabe doch immer funzen oder???
Was muss ich berücksichtigen??
Bitte um kleine Hilfestellung bzw. Anleitung
MfG Ehli
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP