Hallo Ihrs
Kennt Ihr eine Herangehensweise, wie man Textfelder von Stempeln zuverlässig ausliest?
Leider komme ich selbst nur an die Textinhalte der !Stempelvorlage!,
welche nicht benötigt wird,
sondern die Textinhalte selbst des Stempels auf der Seite.
Hier ein Teil des Quellcodes:
Sub CatMain()
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.workbooks.Add
A_Index = 0
Set DrawingDocument1 = CATIA.ActiveDocument
Set DrawingSheets1 = DrawingDocument1.Sheets
BlattName = DrawingSheets1.ActiveSheet.Name
Set DrawingSheet1 = DrawingSheets1.Item(BlattName)
Set DrawingViews1 = DrawingSheet1.Views
For Blaetter_Zaehlen = 1 To DrawingViews1.Count
ReDim Array_A_Index(500, 3)
A_Index = 0
If DrawingViews1.Item(Blaetter_Zaehlen).Name <> "Main View" And Mid(DrawingViews1.Item(Blaetter_Zaehlen).Name, 1, 10) <> "Background" Then
Set DrawingView1 = DrawingViews1.Item(Blaetter_Zaehlen) 'this is the parent view of the section view
'Set Sel = DrawingDocument1.Selection
Set DrawingComponents1 = DrawingView1.Components
ReDim MyArray(DrawingComponents1.Count, 9, 2)
For I = 1 To DrawingComponents1.Count
DrawingView1.LockStatus = False 'View auf entsperren
Set Thing = DrawingComponents1.Item(I).CompRef
MyArray(I, 0, 0) = Thing.Name
For K = 1 To Thing.Texts.Count
Erg = Thing.Texts.Count
tempvar = Thing.Name
For Z = 1 To Thing.Texts.Count
tempvar = tempvar & vbLf & Thing.Texts.Item(Z).Text
Next Z
MsgBox tempvar & vbLf & Thing.Texts.Item(K).Text
Call Select_Case
Next 'K
Next 'I
[Diese Nachricht wurde von gunngir am 11. Jul. 2014 editiert.]
[Diese Nachricht wurde von gunngir am 11. Jul. 2014 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP