Word 4

Hn

±5?

VBA Ol.docm - Microsoft Word

Układ strony Odwołania Korespondencja

WidDk

Narzędzia główne Wstawianie 13 Zarejestruj makro

Aa Aa 3    PrwktowanU

Yisual Makra Basic    J± Bezpieczeństwo makr

Kod

Hf WfaHIWrfiś* GrUtłUl r orman ty_

Struktura

Recenzja

Schemat

M?ne> tzial< r

Deweloper Dodatki

II Q

Chroń    Szablon

a

Ql

Panel

-S-J Pakiety rozszerzeń dokument * dokumentu dokumentu

XML    Ochrona    Szablony

—

$

I • 10

u.

i • 13

M

—

—

Microsoft Yisual Basic - VBA_01

iii

File Edit Yiew Insert Format Debug Run Tools Add-lns Window .Help

A    fó    ► u -J ^ %I JT ^fTt V* # Ln 44, Col 1

Wpisz pytanie do Pomocy

Project - Project		E
| mm u.		▼
Ę! Normal
	:! ^ Project (VBA_01) [=] •łffj) Microsoft Word Objects ThisDocument B &i Forms El UserForml Ę1 ■& Modules •ćĘ, Modulel Ś-■ f~l References
!± ^ TemplateProject (FineReader6)

VBA_0l - UserForml (UserFormJ

UserForml

Properties - UserForml

8

Label2

Ijsj

Labell

CommandButtonl

ooin

C—t LSJ ^ - ~
Ip VBA_01 - UserForml (ćode)	! O li Ej
UserForm ▼ Layout	▼

Dirc z As Integer

Private Sub Coirirvand3uoconl_Click () 2 = 2 + 1 If 2 = 1 Then

li

UserForml UserForm Alphabebc I Categonzed

UserForml_

□ &H8000000F&

BackColor

BorderColor

BorderStyle

Caption

&H80000012&

0 - fmBorderStyieNone

UserForml

		DrawBuffer	32000
		Enabled	True
		Font	Tahoma
		ForeColor	■ &H80000012&
			1^*5 Q

VBA_0l - Modulel (Codel

El I! 2S

Ccrrmanci3uttonl. Captron = "Polrtechnrka CommandBuctonl.FontSize = 14 ' Ccir.ir.an di. Fcnt = "Azraiⁿ ' Conrmandl. FcntsBola = True CommandBubboril .BackColor = Q3Coicr(10) Texc3oxl.Vis2ble = True Label2.Vis2ble = True Label2.Font = "Arral"

Label2.FontSrze = 14

Label2.Captron = "Wprsz Inne"

Texc3oxi.FontSize = 14

Texc3cxi . SelecrronMargrn = False

Czestoc:

if¹