Pętla IIb

File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help

*

*o O*

► II

f* *<§    (?) Ln 2, Col 1

Project - Normal

DJjy Cd

- Normal

+ Microsoft Word Objects Ś CD Forrns Ś & Modules

NewMacros ^ Project (BBB)

Project (Makra_vl.4)

M TemplateProject (EEFONTS)

(General)

Suto Makro1()

I

¹ Makro1 Makro

¹ Makro zapisane 2007-04-13 przez Karolina

I

Do

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

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

Selection.HoveLeft Unit:=wdWord End If

Selection.HoveRight Unit:=wdWord Loop Until Selection.Text =

End Suto

Properties - NewMacros

NewMacros Module