How to add loop in to this code got from above thread

[vjxzy]

Language="VBSCRIPT"

Sub CATMain()
Dim DrwDocument As Document
Dim drwsheets As DrawingSheets
Dim drwsheet As DrawingSheet
Dim drwviews As DrawingViews
Dim drwview As DrawingView
Dim DrwTexts As DrawingTexts
Dim DrwText as DrawingText
Set DrwDocument = CATIA.ActiveDocument
Set drwsheets = DrwDocument.Sheets
set drwsheet = drwsheets.item(1)
set drwviews = drwsheets.item(1).views
set drwview = drwviews.item(2)
'msgbox drwviews.item(2).name ////BackgroundView item ID=2 - to find appropriate View
Set DrwTexts = drwview.Texts
Set DrwText = DrwTexts.GetItem("Text.1")
DrwText.text = "ASDF"
End Sub

 

[vjxzy]

requirement
1. there will be multiple sheets in my Drawing I need the macro to move to the next sheet and update the same in all sheets

 

[vjxzy]

I got the code from this thread
thread560-330652

 

[tesak]

Hi vjxzy,
you can loop through sheets collection this way:

For Each drwsheet In DrwDocument.Sheets
     Set drwview = drwsheet.Views.Item(2)
     ...
Next

Tesak

https://scripts4all.eu/play-tetris-in-catia-v5-drawing-vba/

- Play Tetris in CATIA V5 drawing

 

[vjxzy]

I can't get it right where should I insert the code

 

[tesak]

Put it below this line:

Set DrwDocument = CATIA.ActiveDocument

and then copy the content below the line into the loop (but you have to update it slightly)

For Each drwsheet In DrwDocument.Sheets
     Set drwview = drwsheet.Views.Item(2)

     'msgbox drwviews.item(2).name ////BackgroundView item ID=2 - to find appropriate View
     Set DrwTexts = drwview.Texts
     Set DrwText = DrwTexts.GetItem("Text.1") 
     DrwText.text = "ASDF"
Next

Tesak

https://scripts4all.eu/play-tetris-in-catia-v5-drawing-vba/

- Play Tetris in CATIA V5 drawing

 

[vjxzy]

sorry, tesak I'm new to catia VB at this time I can not get the code right I'm having a problem while understanding the code.thanks for helping ill get back to this in some time.
need to learn basics first do you have any idea where can I start? please share if u have any learning material

 

[MarkAF]

Learning VBA for Microsoft Excel is a great starting point. Many many resources are available, the type of language is the same, and the concepts are the same. As a bonus, you can start to learn to interact between Catia and Excel for some functions.