Pętla IIa

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

File Edit    View Insert

la -1    & % e d

Format Debug Run Tools Ądd-Ins Window Help

I *°    ►    ■ M %£ [S?    ® ^Ln ^ ^Co11

ject - Project

XJ

! (General)

Alek

m

a

B-

-

Normal

+    Microsoft Word    Objects

B & Modules

NewMacros ^ Project (BBB)

Project (Makra_vl.lb) -    Microsoft Word    Objects

@] ThisDocurnent +    References

erties - Project

Project Project Alphabetic | Categori2ed

jpy^ffiflProiect

f5ub Alek O

Alek Makro

Makro zapisane 2007-04-13 przez Monika

Do

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

Selection.MoveRight Unit:=wdI>Jord Selection.TypeText ("</b>")

Selection.MoveLeft Unit:=wdWord End If

Selection.MoveRight Unit:=wdWord Loop Until Selection.Text = Chr(13)

End Sub