Pętla IIb

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

1 Makro1 Makro

1 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


Wyszukiwarka

Podobne podstrony:
StartStopJednorękiBandytaPorg File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help 1*1
Jednoręki?ndyta asie - File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help @ ii - y &
JednorekiBandytaLiczenieLosowańProg ^ File Edit View Insert Format Debug Run Tools Ądd-Ins Window He
test 6 serrorm % File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help o Project - Norm
PropertiesObrazka File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help <o c-*► li Pro
reset File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help -sl - U
Start % File Edit View Insert Format Debug Run Tools Ądd-Ins Window Help o► II ]§* W Ę* Ln 9, Col
JednorekiBandytaLiczenieLosowań icroso File Edit View Insert Format Debug Run Tools Ądd-Ins Window H

więcej podobnych podstron