Funcția CreateTable (NumRows, NumColumns: integer;
var index: întreg): boolean;
var sel_: varianta;
începe
CreateTable: = true;
încerca
sel _: = W.selection;
W.ActiveDocument.Tables.Add (Raza: = sel_.Range, NumRows: = NumRows,
NumColumns: = NumColumns);
index: = W.ActiveDocument. Tables.Count;
cu excepția
CreateTable: = false;
se încheie;
End;
În primul rând operatorul specifică poziția de a evidenția sau cursorul, un al doilea operator creează un tabel, și returnează al treilea număr de tabele într-un document sau numărul de ordine al tabelului nou creat, care vor fi utilizate de alte funcții pentru a accesa acest tabel.
Funcția noastră va crea un tabel de dimensiune arbitrară, dar trebuie să setați anumite dimensiuni ale rândurilor și coloanelor pentru o reprezentare corectă a datelor. Pentru a seta dimensiunea mesei sau rând (coloana) pentru a obține acces la o astfel de masă proprietăți ca coloane și rânduri colecții (o listă de rânduri și coloane) prin care pot avea acces la un anumit rând sau o coloană (u) la celule și parametrii celulei (rând, coloană). Pentru aceasta, utilizați obiectul ActiveDocument.Tables.Item (table), unde tabelul este numărul tabelului din document. Să creăm o funcție care va stabili lățimea și înălțimea tuturor celulelor din tabel.
Funcția SetSizeTable (tabel: integer; RowsHeight,
Coloane Lățime: real): boolean;
începe
SetSizeTable: = true;
încerca
W.ActiveDocument.Tables.Item (Tabel) .Columns.Width: = ColoaneWidth;
W.ActiveDocument.Tables.Item (tabel). Rows.Height: = RowsHeight;
cu excepția
SetSizeTable: = false;
se încheie;
End;
În mod similar, putem specifica înălțimea oricărui rând sau (și) lățimea oricărei coloane din care să alegem. Pentru a accesa dimensiunile celulelor, folosim și colecțiile Rows, Columns din obiectul Table. Pentru a profita de aceste caracteristici din aplicația noastră, creați următoarele funcții.
Funcția SetHeightRowTable (Tabel, rând: întreg;
RowHeight: real): boolean;
începe
SetHeightRowTable: = adevărat;
încerca
W.ActiveDocument.Tables.Item (tabel) .Rows.item (Row) .Height: = RowHeight;
cu excepția
SetHeightRowTable: = false;
se încheie;
End;
Funcția SetWidthColumnTable (tabel, coloană: integer;
Coloană Lățime: real): boolean;
începe
SetWidthColumnTable: = true;
încerca
W.ActiveDocument.Tables.Item (Tabel). Coloane.
Articol (Coloana). Lățime: = ColumnWidth;
cu excepția
SetWidthColumnTable: = false;
se încheie;
End;
Poate că nu numai că trebuie să setăm dimensiunile mesei, dar și să determinăm (să citim) dimensiunile celulelor din tabel. Pentru a face acest lucru, utilizați aceeași colecție de obiecte și proprietăți ale mesei, ca în funcția SetSizeTable, dar operatorii de pe piața internă puține schimbări în așa fel încât variabilele de returnare RowsHeight și ColumnsWidth sunt valori ale rândurilor și coloanelor în dimensiunile de masă înregistrate.
Funcția GetSizeTable (Tabel: integer; var RowsHeight,
Coloane Lățime: real): boolean;
începe
GetSizeTable: = adevărat;
încerca
Coloane Lățime: = W.ActiveDocument. Tables.Item (Tabel) .Columns.Width;
RowsHeight: = W.ActiveDocument. Tables.Item (Tabel).
cu excepția
GetSizeTable: = false;
se încheie;
End;
De asemenea, puteți lua în considerare dimensiunea unui rând sau a unei coloane din care să alegeți, folosiți colecțiile Rows, Columns din obiectul Table (Tables.Item (Table)).
Următorul pas în formarea documentului tabelar este de a scrie informațiile text în celula de tabelă selectată. O modalitate de a face acest lucru este accesarea casetei Text a celulei, dar în acest caz textul este scris nu direct, ci în obiectul Range al celulei de tabelă. Funcția SetTextToTable efectuează această înregistrare.
Funcția SetTextToTable (Tabel: integer; Rând, Coloană: întreg;
text: șir): boolean;
începe
SetTextToTable: = true;
încerca
W.ActiveDocument.Tables.Item (Tabel) .Columns.Item (Coloana).
Cells.Item (Row) .Range.Text: = text;
cu excepția
SetTextToTable: = false;
se încheie;
End;
Ultima acțiune pe care trebuie să o luați pe masă pentru a crea un document de tabel simplu este o uniune de celule. Pentru aceasta, folosim metoda Merge a obiectului Cell. Prima declarație a funcției de combinare celulară returnează un indicator la obiect - celula finală (Cel). Al doilea operator combină ROW1 celulei inițiale, tabelul de celule finite coloana1 ale căror coordonate sunt deja specificate și ROW2, COLUMN2.
Funcția SetMergeCellsTable (Tabel: integer; Row1,
Coloana 1, rândul 2, coloana 2: întreg): boolean;
var Cel: varianta;
începe
SetMergeCellsTable: = true;
încerca
Cel: = W.ActiveDocument.Tables.I tem (tabel) .Cell (rândul 2, coloana2);
W.ActiveDocument.Tables.Item (tabel). Celula (Row1, Column1) .Merge (Cel);
cu excepția
SetMergeCellsTable: = false;
se încheie;
End;
Trecem la etapa finală - crearea documentului.
Pentru a face acest lucru, toate funcțiile definite în această parte a articolului sunt combinate cu funcțiile create anterior și transferate către biblioteca nou creată de proceduri și funcții. De exemplu, se va depune MyWord.pas în secțiunea de interfață, care va fi descrisă în antetele tuturor funcțiilor noastre, iar în secțiunea de implementare - funcțiile ei înșiși (în continuare se va utiliza această bibliotecă). Nu uitați să introduceți linii utilizând ComObj după; var W: variantă;
Creați un nou proiect, în modulul de program de care vom face o legătură cu biblioteca noastră, utilizează MyWord; În formular, plasăm butonul și introducem următorul cod de program în procedura de procesare a acestuia.
Articole similare
Trimiteți-le prietenilor: