Instrukcja warunkowa

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

File Edit	View Insert Format	Debug	Run	lools	Ądd-Ins Window	Help
tl * y	X % il #4 ó <	►	■	M !	y ś? w c?	) Ln 16, Col 1

Project - Normal

X

(General)

□ CU

Suto Alek()

Alek

B-

-

B-

-

B-

-

Normal

fi Microsoft Word Objects & Modules

NewMacros Project (BBB)

03 Microsoft Word Objects ThisDocument . References

Project (Makra_vl.lb)

03 Microsoft Word Objects ThisDocument . References

Properties - NewMacros

NewMacros Module Alphabetic I Categorized

(Narne)

NewMacros

Alek Makro

Makro zapisane 2007-04-13 przez Monika

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

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

Selection.MoveLeft Unit:=wdUord End If

Selection.MoveRight Unit:=wdUord

End Suto