Hallo Jörg,
im Prinzip läuft das ähnlich Beispiel
Hier wird der Title CompassMitBez3 eingefügt
'Austausch des Schriftfeldes
Dim oNewDocument As DrawingDocument
Set oNewDocument = ThisApplication.ActiveDocument
If oNewDocument.ActiveSheet.TitleBlock.Definition.name = "CompassMitBez3" Then
'MsgBox oNewDocument.ActiveSheet.TitleBlock.Definition.name
Else
'ThisApplication.SilentOperation = True ' versteckt arbeiten
Dim oSourceDocument As DrawingDocument
Set oSourceDocument = ThisApplication.Documents.Open("K:\STANDARD\Inventor2009\Templates.de\Inventor\DIN.idw")
' Get the new source title block definition.
Dim oSourceTitleBlockDef As TitleBlockDefinition
Set oSourceTitleBlockDef = oSourceDocument.ActiveSheet.TitleBlock.Definition
' Get the new title block definition.
Dim oNewTitleBlockDef As TitleBlockDefinition
Set oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)
oSourceDocument.Close
'ThisApplication.SilentOperation = False ' versteckt arbeiten
' Iterate through the sheets.
Dim oSheet As Sheet
For Each oSheet In oNewDocument.Sheets
oSheet.Activate
oSheet.TitleBlock.Delete
Call oSheet.AddTitleBlock(oNewTitleBlockDef)
Next
End If
Für eine Batchbearbeitung mit Deinen Anforderungen könnte ich Dir bei Bedarf (einfach PM senden) ein Angebot erstellen.
------------------
Gruß
SEHER
www.inventor-tools.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP