Pętla1

&

Microsoft Visual Basic - Normal [break] - [NewMacros (Codę)]

File Edit    View Insert

ti ^ S    © d

Format Debug Run Tools Ądd-Ins Window Help

O

§ l?l Ln 1, Col 1

Project - Normal

(General)

Alek

Cd

B-

-

- &

i b

- &

ś-

Normal

j Microsoft Word Objects Modules

NewMacros Project (BBB)

■^3 Microsoft Word Objects ThisDocument CD References Project (Makra_vl.lb) ■^3 Microsoft Word Objects ThisDocument CD References

Properties - NewMacros

X

Suto Alek O

I

¹ Alek Makro

' Makro zapisane 2007-04-13 przez Monika

I

For x = 1 To 10

If Select ion. ForrnattedText. Bold = -1 Then Selection.TypeText ("<to>")

Selection.MoveRight Unit:=wdWord Selection.TypeText ("</to>")

Selection.MoveLeft Unit:=wdWord End If

Selection.MoveRight Unit:=wdWord Next x End Suto

NewMacros Module Alphabetic Categorized

(Narne)

NewMacros