Home - qdidactic.com
Didactica si proiecte didacticeBani si dezvoltarea cariereiStiinta  si proiecte tehniceIstorie si biografiiSanatate si medicinaDezvoltare personala
referate stiintaSa fii al doilea inseamna sa fii primul care pierde - Ayrton Senna





Aeronautica Comunicatii Drept Informatica Nutritie Sociologie
Tehnica mecanica

Baze de date


Qdidactic » stiinta & tehnica » informatica » baze de date
Comunicarea cu Word



Comunicarea cu Word


Comunicarea cu Word

MODELUL OBJECT WORD

Extrase din modelul Object Word.( Collections si Object).

OBIECTE SI COLECTII WORD


Documents


Colectia tuturor claselor (obiecte Document) deschise.


Dictionaries

Colectia tuturor dictionarelor personale active (obiectele Dictionary).


E-Mail



Options

Obiect ce contine caracteristicile globale pe care Microsoft Word le foloseste cand utilizatorul creaza sau modifica mesaje electornice si raspunsurile la acestea.


File

Converters

Colectia tuturor conversiilor de fisiere (obiecte FileConvert) disponobile pentru deschiderea si inregistrarea fisierelor.


FontNames

Obiect ce contine lista numelor tuturor fonturilor disponibile.


Languages

Colectia limbilor (obiecte Languages) utilizate in Word pentru verificarile lingvistice si pentru redactare.


ListGalleries

Colectia obiectelor ListGallery


MailMessage

Obiect reprezentand mesajul electronic activ daca Word este editorul e-mailului.


Options

Reprezinta optiunile aplicatiei si documentului Word. Majoritatea proprietatilor obiectului Options corespund elementelor casutei de dialog (meniul Tools). 


Selections

Reprezinta selectarea in curs a unei ferestre.


System

Contine informatii despre calculatorul


Templates

Colectia tuturor modelelor (obiecte Template) disponibile la un moment dat.



COLECTIA DOCUMENTS


Metode:


Colectia Documents este compusa din toate obiectele Document deschise in Word:


Add

Creaza un nou Document si alatura colectia Documents.

Exemplu Documents.Add Template:=”Normal”


Close


Inchide toate documentele Word deschise

Exemplu Documents.Close


Open

Deschide documetul specificat si il alatura colectiei Documents.

Exemplu Documents.Open

FileName:=”C:ClientiBalanta.doc”


Save


Salveaza toate documnetele deschise.

Exemplu Documents.Save


OBIECTELE DOCUMENT

Un obiect Document permite cearea unei referinte la un document Word. Active Document desemneaza documentul activ.

Metode:

Activate

Activeaza un document deja deschis.

Exemplu Documents(„ Cumparatori.doc”).Activate


Close

Inchide un document Word.

Exemplu: Documents(„ Cumparatori.doc”).Close

Sau  ActiveDocument.close


PrintPreview


Afiseaza un document in Print Preview inaintea printarii.

Exemplu: ActiveDocument.PrintPreview


Range


Returneaza un obiect Range.

Exemplu: ActiveDocument.Range(0, 50).Bold =True


Save


Salveaza un document.

Exemplu: ActiveDocument.Save


SaveAs


Salveaza un document sub un nou nume si/sau intr-un nou format.

Exemplu ActiveDocument.SaveAs FileName:=strDocName


Obiecte si colectii:


Characters

Colectii de caractere dint-un document.


MailMerge


Fuziune  in Word.


PageSetup

Descrierea setarii in pagina

Exemplu ActiveDocument.PageSetup.RightMargin =

InchesToPoint(1)


Paragraphs


Colectia paragrafelor unui document.


SmartTags


Colectia butoanelor active (obiecte SmartTag) al unui document sau a unei plaje de text in cadrul unui document.


Words


Colectia de cuvinte a unui document.

Exemplu ActiveDocument.Words.Count


Exemplu:


Ingrosarea caracterelor unui document

Private Sub Word_Bold()

Dim appWord As New Word.Application

With appWord

.Documents.Open”C:Clientigabi.doc”

.ActiveDocument.Select

.Selection.Font.Bold = True

.ActiveDocument.Close wdSaveChange

.Quit

End With

End Sub


Lansarea unui MailMerge.

Private Sub Relatii()

Dim appWord As Word.Application

Dim docWord As Word.Document

`lansarea in Word

Set AppWord = New Word.Application

appWord.Visible = True

`deschiderea unei scrisori tip

Set docWord = appWord.documents.Open („C:clientigabi.doc”)

`pregatirea unei scrisori tip pentru toti clientii

With docWord.MailMerge

.Destination = wdSendNewDocument

.SuppressBlankLines = True

With .DataSource

.FirstRecord = wdDefaultFirstRecord

.LastRecord = wdDefaultLastRecord

End With

`lansarea unei scrisori tip

.Execute

End With

End Sub







Contact |- ia legatura cu noi -| contact
Adauga document |- pune-ti documente online -| adauga-document
Termeni & conditii de utilizare |- politica de cookies si de confidentialitate -| termeni
Copyright © |- 2024 - Toate drepturile rezervate -| copyright