% File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help
o
]§* W Ę* Ln 9, Col 1
CommandButtonl
Private Suto ComrnandButtonl_Click () Do
Selection.MoveRight Unit: =wdI>Jord x = x + 1
Loop Until Selection.Text = TextBoxl = x
End Suto
Project - Normal
o
+ Microsoft Word Objects $ <S Forms
El UserForml Ś & Modules
NewMacros
- Project (BBB)
- <23 Microsoft Word Objects
Ś] ThisDocument (Ś Cl References
- Project (Makra_vl.2)
- <29 Microsoft Word Objects
Ś] ThisDocument Ś CD Forms Śi CD References + M TemplateProject (EEFON
U