Creați o sursă de date în Word. Surse de date care pot fi utilizate pentru îmbinarea corespondenței. Previzualizați și finalizați îmbinarea

Acum trebuie să creați o sursă de date de îmbinare (adresele și numele destinatarilor de e-mail).

1. În secțiune Selectarea destinatarilor fereastră Fuziune panoul de activități, selectați Crearea unei liste(Fig. 8.6).

Orez. 8.6. Fereastră Selectarea destinatarilor masterat Fuziune

2. Faceți clic pe comandă CreaÎn capitolul Crearea unei liste. Se va deschide o casetă de dialog, prezentată în Fig. 8.7.

Sursa de date de îmbinare este o bază de date formată din înregistrări, pe baza cărora va fi generată o copie specifică a scrisorii folosind documentul principal. Toate înregistrările au aceleași câmpuri de date.

Unele dintre cele mai comune câmpuri sunt pre-enumerate în fereastra de creare a sursei de date. Puteți elimina câmpurile inutile din baza de date și puteți adăuga câmpurile dvs.

Orez. 8.7. Crearea unei surse de date

Alte articole de secțiune Selectarea destinatarilor vă permit să selectați o bază de date existentă, creată anterior în Word sau într-o aplicație precum Access, sau o agendă de adrese ca sursă de date.

Notă Prezența câmpurilor suplimentare în sursa de date nu afectează în niciun fel rezultatul îmbinării, dar încetinește programul.

3. Faceți clic pe butonul Setări. Se va deschide o casetă de dialog, prezentată în Fig. 8.8.

4. Evidențiați un articol Recurs.

5. Faceți clic pe butonul Ștergeștergeți câmpul evidențiat.

Orez. 8.8. Configurarea câmpurilor sursă de date

Orez. 8.9. Fereastra de dialog Îmbinați destinatarii

6. Repetând pașii 4 și 5, eliminați toate câmpurile, cu excepția Nume. Nume de familie, Organizare, Adresa 1Și Index.

7. Faceți clic pe butonul Bine.

8. Faceți clic pe butonul Închide ferestre de dialog.

9. În caseta de dialog pentru salvarea documentului care se deschide, introduceți numele Invitați și faceți clic pe butonul Salvați. Imaginea prezentată în Fig. 8.9 caseta de dialog Îmbinați destinatarii, care în prezent nu are intrări.

10. Cu siguranță va trebui să introduceți informații într-o sursă de date la un moment dat. Faceți clic pe butonul Schimbare... sa o fac acum. Se va deschide un formular de introducere a datelor. Să adăugăm câteva intrări. Ulterior, îmbinarea va genera exact atâtea copii ale documentului principal câte înregistrări există în sursa de date.

11. Completați câmpurile formularului.

12. Pentru a adăuga o altă intrare, faceți clic pe butonul Creați o intrare.

13. Mai introduceți câteva intrări, transferându-le informațiile prezentate în tabel. 8.1.

TABELUL 8.1. Îmbinați sursa de date

14. Faceți clic pe butonul Închide pentru a salva baza de date și apoi pe butonul Bine fereastră Destinatari.

Notă Pentru a modifica informațiile despre sursa de date, faceți clic în bara de instrumente Fuziune pe buton Destinatari, apoi în fereastra de dialog care se deschide - pe butonul Schimbare. Se va deschide formularul sursei de date. Pentru a naviga prin înregistrările sursă, utilizați butoanele Primul, Înapoi, Redirecţiona, Ultimulîn partea de jos a formularului.

Orez. 8.10. Bara de instrumente Fuziune

Aplicație Word poate prelua date pentru fuziune din diverse surse. Ca parte a suitei Microsoft Office, Word acceptă cu ușurință date din Outlook, Excel și Access. Pot fi utilizate alte surse, inclusiv pagini web, fișiere text OpenDocument și fișierele de date delimitate salvate ca text simplu. Dacă nu aveți deja o sursă de date, puteți crea una în Word.

Important: Accesul la sursele de date denumite într-o locație HTTP nu este acceptat. Înainte de a utiliza un fișier ca sursă de date pentru o îmbinare, salvați-l pe hard disk-ul local.

Îmbinați sursele de date

Mai jos sunt câteva surse de date pe care le puteți utiliza pentru îmbinarea corespondenței în Word.

Alte fișiere de bază de date

Puteți utiliza și alte surse de date pentru îmbinare. Pentru a accesa aceste surse, executați expertul pentru conexiune de date.

După ce ați configurat sursa de date, puteți crea etichete, plicuri, scrisori și e-mailuri folosind combinarea corespondenței.

Informații suplimentare

Mai aveți întrebări despre îmbinarea în Word?

Ajutați-ne să îmbunătățim Word

Aveți idei pentru îmbunătățirea îmbinării corespondenței sau a altor funcții Word? Distribuiți-le pe pagină

7 Prelegerea nr. 8

Fuzionarea documentelor.

Îmbinarea corespondenței este utilizată atunci când trebuie să creați un set de documente, cum ar fi etichete de adresă sau litere pe antet, care sunt trimise unui număr mare de clienți. Fiecare literă sau autocolant conține atât informații generale, cât și individuale. De exemplu, scrisoarea ar trebui să se adreseze clientului după numele de familie. Informațiile individuale pentru fiecare literă sau autocolant provin dintr-o sursă de date.

Procesul de îmbinare constă din mai mulți pași generali.

Configurarea documentului principal. Documentul principal conține text și elemente grafice care sunt comune tuturor versiunilor documentului principal, cum ar fi o adresă de retur sau un salut pe antet.

Conectarea unui document la o sursă de date. Sursa de date este un fișier care conține informații care trebuie introduse în document, cum ar fi numele și adresele destinatarilor scrisorii.

Rafinați lista de destinatari sau articole. aplicație Microsoft Office Word creează o copie a documentului principal pentru fiecare articol de fișier de date sau înregistrare.

Adăugarea de substituenți de text (câmpuri de îmbinare) la un document Când îmbinați, câmpurile de îmbinare sunt populate cu date din fișierul de date.

Previzualizarea și finalizarea unei îmbinări Puteți previzualiza fiecare copie înainte de a imprima întregul set de copii ale unui document.

Comenzile Tab sunt folosite pentru a îmbina cu e-mailul Buletine informative.

De asemenea, puteți îmbina folosind panoul de activități Fuziune, care vă permite să efectuați întregul proces pas cu pas. Pentru a utiliza panoul de activități, într-un grup Începeți îmbinarea pe filă Buletine informative selectați elementul Începeți îmbinarea, și apoi punct Asistent de îmbinare pas cu pas.

Configurarea documentului principal

Lansați aplicația Word.

În mod implicit, se deschide un document gol. Lasă-l să rămână deschis. Dacă îl închideți, comenzile pe care trebuie să le efectuați la pasul următor nu vor mai fi disponibile.

Pe fila Poștă in grup Fuziune alege echipa Începeți îmbinarea.

Faceți clic pe tipul de document pe care doriți să îl creați.

De exemplu, puteți crea următoarele tipuri de documente.

Set de plicuri Adresele de retur de pe toate plicurile sunt aceleași, dar adresa destinatarului este unică în fiecare caz. Selectați un articol Plicuri iar pe filă Opțiuni de plic căsuță de dialog Opțiuni de plic Vă rugăm să indicați preferințele dvs. privind dimensiunea plicului și formatarea textului.

Set de autocolante cu adrese Fiecare autocolant conține un nume și o adresă unice. Selectați un articol autocolanteși în caseta de dialog Opțiuni de autocolante indicați tipul de autocolant de care aveți nevoie.

Set de documente pe antet sau mesaje E-mail Conținutul de bază al tuturor scrisorilor sau mesajelor este același, dar fiecare dintre ele conține informații destinate unui anumit destinatar, de exemplu, numele, adresa sau alte informații. Pentru a crea aceste tipuri de documente, selectați scrisori sau e-mailuri.

Director sau folder Fiecare articol afișează același tip de informații, cum ar fi un nume sau o descriere, dar este unic pentru fiecare articol. Clic catalog pentru a crea acest tip de document.

Reluarea fuziunii

Dacă trebuie să întrerupeți munca de îmbinare, puteți salva documentul principal și puteți relua îmbinarea mai târziu. Microsoft Office Word salvează sursa de date și datele de câmp. Dacă ați folosit panoul de activități Fuziune, Word se va întoarce la punctul în care doriți să reluați îmbinarea.

Când sunteți gata să reluați îmbinarea, deschideți documentul.

Word va cere confirmarea deschiderii documentului, care va rula comanda SQL.

Deoarece acest document este conectat la o sursă de date, faceți clic da. Textul documentului apare împreună cu toate câmpurile introduse.

Conectarea unui document la o sursă de date

Pentru a efectua o îmbinare a datelor într-un document principal, trebuie să conectați documentul la o sursă de date sau un fișier de date.

Selectarea unui fișier de date

Pe fila Poștă in grup Fuziune alege echipa Selectați destinatarii.

Urmați acești pași:

Deschide un document aplicații Microsoft Cuvânt. Acest document trebuie să conțină un singur tabel. Primul rând al tabelului ar trebui să conțină titlurile, iar rândurile rămase ar trebui să conțină intrările care ar trebui incluse în documentul compus. De asemenea, puteți utiliza o sursă de date antet ca sursă de date (Sursă de date antet. Un document care conține un rând de antet (sau o înregistrare) care este utilizat pentru a îmbina sursa de date specificată cu documentul de îmbinare principal.).

Rafinarea listei de destinatari sau articole

Dacă vă conectați la un anumit fișier de date, este posibil să nu doriți să transferați datele tuturor înregistrărilor fișierelor de date în documentul principal.

Pentru a limita lista de destinatari sau a utiliza un subset de elemente ale fișierului de date, urmați acești pași:

Pe fila Poștă in grup Fuziune alege echipa Editați lista.

În caseta de dialog Destinații de fuziune

Selectarea înregistrărilor individuale Această metodă este cea mai utilă dacă lista este scurtă. Bifați casetele de selectare de lângă acei destinatari care ar trebui să fie incluși în listă și debifați casetele de selectare de lângă acei destinatari care ar trebui să fie excluși din listă.

Dacă știți că doriți să includeți doar câteva înregistrări în documentul principal, puteți debifa caseta de selectare din bara de titlu și apoi selectați numai înregistrările dorite. De asemenea, dacă doriți să includeți cea mai mare parte a listei în documentul dvs., bifați caseta de selectare din bara de titlu, apoi debifați intrările pe care nu doriți să le includeți.

Sortarea intrărilor Faceți clic pe antetul coloanei articolului după care doriți să sortați. Lista este sortată alfabetic în ordine crescătoare (de la A la Z).

Filtrarea intrărilor Această caracteristică este utilă dacă lista conține intrări pe care nu doriți să le vedeți sau să le includeți în documentul principal.

Adăugați substituenți de text (câmpuri de îmbinare) la un document

După ce conectați documentul principal la fișierul de date, puteți introduce textul documentului și adăugați substituenți de text pentru a indica unde ar trebui să apară datele unice în fiecare copie a documentului.

Substituenții de text, cum ar fi o adresă sau un salut, se numesc câmpuri de îmbinare. Câmpurile din Word corespund titlurilor de coloană evidențiate din fișierul de date.

Coloanele fișierului de date reprezintă categorii de date. Câmpurile adăugate documentului principal sunt substituenți de text pentru aceste categorii.

Liniile de fișiere de date reprezintă înregistrări de date. Când efectuați o îmbinare prin corespondență, Word creează o copie a documentului principal pentru fiecare înregistrare.

Când plasați un câmp în documentul principal, se presupune că o anumită categorie de date, cum ar fi un nume de familie sau o adresă, ar trebui să apară în locația sa.

Notă. Când inserați un câmp de îmbinare în documentul principal, numele câmpului este întotdeauna inclus între paranteze unghiulare duble (""). În documentele compuse, aceste paranteze nu sunt folosite pentru accentuare. Acestea vă permit doar să distingeți câmpurile din documentul principal de textul normal.

Ce se întâmplă în timpul unei fuziuni

La îmbinare, datele din primul rând al fișierului de date înlocuiesc câmpurile din documentul principal, formând astfel primul document compus. Datele din al doilea rând al fișierului de date înlocuiesc câmpurile pentru a forma un al doilea document compus și așa mai departe.

Exemple de lucru cu câmpuri

Puteți adăuga orice titlu de coloană din fișierul de date în documentul principal ca un câmp. Acest lucru vă oferă o oarecare flexibilitate atunci când creați antet, etichete, e-mailuri și alte documente compuse.

Puteți combina câmpuri și le puteți separa folosind semne de punctuație. De exemplu, pentru a genera o adresă exactă, trebuie să introduceți următoarele câmpuri în documentul principal:

„Prenumele Nume”

"Casa si strada"

„Oraș”, „Regiune”, „Cod poștal”

Pentru cazuri de utilizare obișnuite, cum ar fi blocurile de adrese sau liniile de salut, Word oferă câmpuri complexe — o combinație de câmpuri multiple. Exemplele sunt enumerate mai jos.

Câmpul Blocare adrese este o combinație de mai multe câmpuri, inclusiv prenume, prenume, casă și stradă, oraș și cod poștal.

Câmpul Linie de salut poate include unul sau mai multe câmpuri de nume, în funcție de cuvintele de salut utilizate.

Conținutul fiecărui câmp complex poate fi personalizat corespunzător. De exemplu, puteți alege un nume formal pentru adresă (dl Andrey Alfirovich Jr.) și puteți utiliza „Pentru” în loc de „Dragă” în adresa dvs.

Maparea câmpurilor de îmbinare la un fișier de date

Pentru a vă asigura că Word va găsi o coloană în fișierul de date care corespunde fiecărei adrese sau element de întâmpinare, trebuie să mapați câmpurile de îmbinare a corespondenței din Word cu coloanele din fișierul de date.

Pentru a potrivi câmpurile, selectați Selectarea câmpului in grup Compuneți un document și introduceți câmpuri pe filă Buletine informative.

Se va deschide o casetă de dialog Selectarea câmpului.

Adresa și elementele de salut apar în stânga. Titlurile coloanelor din fișierul de date apar în partea dreaptă.

Word caută coloana potrivită pentru fiecare element. Ilustrația arată că Word a găsit automat o potrivire pentru coloană Nume de familie câmpul fișierului de date Nume de familie. Dar nu a fost în stare să contrasteze celelalte elemente între ele. Mai exact din acest dosar Date Word nu a găsit o potrivire pentru teren Nume.

În lista din dreapta, puteți evidenția coloana fișierului de date corespunzătoare elementului din stânga. Acum ilustrația arată că coloana Nume se potrivește cu terenul Nume. Nu e nimic în neregulă cu câmpurile Recurs, Identificator unicȘi Nume de familie nu s-a găsit nicio potrivire. Un document principal nu trebuie să utilizeze fiecare câmp. Dacă adăugați un câmp pentru care nu există date în fișierul de date, acesta va apărea în documentul principal ca substituent de text gol - de obicei un șir gol sau un câmp ascuns.

Introducerea conținutului și adăugarea câmpurilor

În documentul principal, faceți clic unde doriți să introduceți câmpul.

Folosește grupul Compuneți un document și introduceți câmpuri pe filă Buletine informative.

Adăugați oricare dintre următoarele elemente.

Bloc de adrese cu nume, adresa postala si alte informatii

Selectați un articol Bloc de adrese.

În caseta de dialog Inserarea unui bloc de adrese selectați elementele de adresă și formatele de afișare dorite, apoi faceți clic Bine.

Selectarea câmpului, atunci Word nu a putut găsi informațiile necesare pentru blocul de adrese. Faceți clic pe săgeata de lângă (nu se potrivesc)

Linia de bun venit

Selectați un articol Linia de bun venit.

Selectați un format de linie de salut care include salutul, numele și semnul de punctuație care urmează după nume.

Selectați textul de salut pentru cazurile în care numele destinatarului nu este disponibil, de exemplu, când sursa de date nu conține numele sau prenumele destinatarului, ci doar numele companiei.

Faceți clic pe butonul Bine.

Dacă apare o casetă de dialog Selectarea câmpului, atunci Word nu a putut găsi informațiile necesare pentru linia de salut. Faceți clic pe săgeata de lângă (nu se potrivesc), apoi evidențiați câmpul corespunzător din sursa de date pe care doriți să o îmbinați.

Câmpuri individuale

Informațiile pot fi inserate din câmpuri individuale, cum ar fi numele de familie, numărul de telefon sau suma contribuției donatorului. Pentru a adăuga rapid un câmp dintr-un fișier de date în documentul principal, faceți clic pe săgeata de lângă listă Inserarea unui câmp de date, apoi selectați un nume de câmp.

A folosi cantitate mare opțiuni atunci când inserați câmpuri individuale într-un document, urmați acești pași:

Pe fila Poștă in grup Înregistrarea și adăugarea câmpurilor alege echipa Inserați câmpul de îmbinare.

În caseta de dialog Inserarea unui câmp de date Efectuați una dintre următoarele acțiuni.

Pentru a selecta câmpuri de adresă care se vor potrivi automat cu câmpurile sursei de date, chiar dacă câmpurile sursei de date au nume diferite, selectați Câmpuri de adresă.

Pentru a evidenția câmpurile care folosesc întotdeauna date direct dintr-o coloană de fișier de date, selectați Câmpurile bazei de date.

Pe listă Câmpuri Faceți clic pe câmpul necesar.

Faceți clic pe butonul Introduce, și apoi Închide.

Dacă apare o casetă de dialog Selectarea câmpului, atunci Word nu a putut găsi unele dintre informațiile de care avea nevoie pentru a insera câmpul. Faceți clic pe săgeata de lângă (nu se potrivesc), apoi evidențiați câmpul corespunzător din sursa de date pe care doriți să o îmbinați.

• Câmpuri personalizate din lista de contacte Outlook

Singura modalitate de a include câmpuri personalizate ale listei de contacte în documentul principal este să porniți o îmbinare de corespondență din Outlook. Mai întâi trebuie să configurați afișarea listei de contacte folosind exact acele câmpuri care ar trebui utilizate în timpul îmbinării. După aceasta puteți începe să fuzionați. Odată ce toate setările necesare au fost făcute, Word se va deschide automat și puteți finaliza îmbinarea corespondenței.

Formatarea rezultatelor îmbinării

Pentru a formata datele conținute într-un document, selectați câmpul de îmbinare a corespondenței și formatați-l în același mod în care formatați orice alt text. Selecția trebuie să includă ghilimele duble ( « » ) înconjurând câmpul.

Previzualizați și finalizați îmbinarea

Odată ce toate câmpurile au fost adăugate în documentul principal, puteți previzualiza rezultatele îmbinării. Înainte de finalizarea efectivă a îmbinării, puteți examina documentele îmbinate și puteți face modificările corespunzătoare, dacă este necesar.

Pentru a vizualiza, faceți una dintre următoarele într-un grup Vezi rezultate file Buletine informative :

Clic Vezi rezultate.

Răsfoiți fiecare document compus pagină cu pagină folosind butoanele Următoarea intrareȘi Postarea anterioară in grup Vezi rezultate.

Vizualizați un anumit document folosind comanda Găsiți destinatarul.

Finalizarea fuziunii

Mai multe documente pot fi tipărite sau editate individual. Acest lucru se poate face pentru toate documentele sau pentru un subset de documente.

Selectați dacă doriți să editați întregul set de documente, doar copia afișată în prezent sau un subset de documente identificate printr-un număr de înregistrare specificat. Word salvează copiile pe care doriți să le editați ca un singur fișier, separate prin întreruperi de pagină.

Salvarea documentului principal

Rețineți că documentele compuse sunt salvate separat de documentul principal. Este util să păstrați documentul principal separat, deoarece poate fi util atunci când efectuați îmbinări ulterioare.

Acum ne vom uita la un exemplu de implementare a modului în care puteți performa Fuziunea datelor Word cu date Microsoft SQL Server, în care acest proces vor fi automatizate prin mijloace Acces VBA 2003.

Probabil că mulți oameni știu deja cum să îmbine documentele Word, de exemplu, cu o sursă date Excel sau cu același server SQL, dar nu toată lumea știe cum să automatizeze acest proces sau să-l implementeze într-un program.

Într-o zi m-am confruntat cu sarcina de a automatiza îmbinarea unui anumit șablon Word cu date aflate pe un server SQL, iar toate acestea trebuiau implementate într-un program dezvoltat în Access 2003 ( Proiectul ADP). Și astăzi voi arăta un exemplu de rezolvare a acestei probleme.

Datele inițiale

Și mai întâi, să ne uităm la datele inițiale, adică. ce avem.

Deci, ca client, așa cum am spus deja, vom avea un proiect ADP Access 2003. Sursa de date pentru exemplu va fi SQL Server 2012 Express. Microsoft Office 2013 este instalat pe computerul dvs. ( și Access 2003).

Să creăm un tabel de testare pe server și să-l umplem cu date ( valabil în baza de date Test). Pentru a face acest lucru, puteți rula următoarele Declarație SQL.

CREATE TABLE dbo.TestTable(ID INT IDENTITY(1,1) NOT NULL, ProductName VARCHAR(50) NOT NULL, Price MONEY NULL, CONSTRAINT PRIMARY KEY CLUSTERED (ID ASC)) GO INSERT INTO dbo.TestTable(ProductName, Price) VALUES ("Computer", 500) GO INSERT INTO dbo.TestTable(ProductName, Price) VALUES ("Monitor", 400) GO INSERT INTO dbo.TestTable(ProductName, Price) VALUES ("Phone", 200) GO INSERT INTO dbo. TestTable(ProductName, Price) VALUES ("Tablet", 300) GO INSERT INTO dbo.TestTable(ProductName, Price) VALUES ("Printer", 250) GO SELECT * FROM TestTable

Creați un fișier de conexiune la sursa de date MS SQL Server

Acum să creăm un fișier de conexiune (ODC) la sursa noastră de date. Acest fișier va acționa ca un fel de „ șablon de fișier de conexiune„, deoarece mai târziu putem și vom redefini atât baza de date, cât și ea însăși interogare SQL.

Pentru a crea un fișier de conexiune la SQL Server să deschidem Word și într-un mod standard hai sa cream acest fișier, adică folosind funcționalitatea " Buletine informative». ( Apropo, am discutat deja un exemplu de creare a unei conexiuni la un server SQL din Excel în material - Excel - Conectarea și primirea datelor de la serverul SQL ).

Apoi, în fereastra de selectare a unei surse de date, faceți clic pe butonul „ Crea».

Apoi introduceți adresa serverului și faceți clic pe „ Mai departe».

Apoi selectăm baza de date și tabelul pentru a vă conecta, permiteți-mi să vă reamintesc din nou, acesta este doar un șablon, vom suprascrie toți acești parametri, faceți clic pe „ Mai departe».

Și, în sfârșit, introducem un nume clar pentru fișierul de conexiune și, de asemenea, îl putem salva imediat în directorul de care avem nevoie făcând clic pe „ Revizuire", în mod implicit este salvat în « C:\Utilizatori\Nume utilizator\Documente\Sursele mele de date." Faceți clic pe " Gata».

Gata, fișierul a fost creat, putem închide Word fără a salva.

Crearea unui șablon de îmbinare a cuvintelor

Acum să pregătim șablonul Word, de exemplu. acesta este documentul în care vom înlocui datele din baza de date date SQL Server.

Toată pregătirea se rezumă la faptul că trebuie să inserăm câmpuri de îmbinare acolo unde avem nevoie de ele. Acest lucru se face după cum urmează. Fila " Insert -> Express Blocks -> Field».

Caut un teren MERGEFIELDși introduceți numele câmpului care va corespunde câmpului din sursa de date ( în cazul meu este ProductName și Price). Faceți clic pe " Bine».

Deoarece am acest șablon de test, practic nu va fi text în el și voi afișa doar două câmpuri, cel mai probabil veți avea mult text și multe câmpuri de îmbinare.

Cod VBA Access 2003 pentru a fuziona documentul Word cu sursa de date MS SQL Server

Tot ce rămâne este să scrieți codul VBA care va efectua îmbinarea. De exemplu, să adăugăm un buton StartMerge și un câmp Preț în formular pentru a filtra datele. Apoi în editor Visual Basic să scriem o procedură de îmbinare, să spunem cu numele MergeWord, iar în handlerul de evenimente al butonului StartMerge ( apăsarea butonului) introduceți codul pentru apelarea acestei proceduri. Întregul cod va arăta astfel ( am comentat-o). Permiteți-mi să clarific imediat că am șablonul Word și fișierul ODC în directorul D:\Test\.

„Procedură pentru rularea unei îmbinări Private Sub MergeWord(TemplateWord As String, QuerySQL As String) „Primul parametru - Calea către șablonul Word „Al doilea parametru - șirul de interogare la baza de date La eroare GoTo Err1 Dim ConnectString As String, PathOdc As String Dim WordApp As Object Dim WordDoc ca obiect „Șablon de fișier ODC pentru conexiunea de date PathOdc = „D:\Test\TestSourceData.odc” Dacă TemplateWord<>"" Apoi "Creează document Word Set WordDoc = CreateObject("Word.document") Set WordDoc = GetObject(TemplateWord) Set WordApp = WordDoc.Parent "Creați o conexiune la sursa de date (MS SQL Server) "Preluăm câteva date din conexiunea ADP curentă a proiectului ConnectString="Provider=SQLOLEDB .1; " & _ "Securitate integrată=SSPI;" & _ "Persist Security Info=True; " & _ "Initial Catalog=" & CurrentProject.Connection.Properties("Initial Catalog") & "; " & _ "Data Source=" & CurrentProject.Connection.Properties ("Sursa de date") ") & "; " & _ "Utilizați procedura pentru Pregătire=1;" & _ „Traducere automată=Adevărat;” & _ „Dimensiunea pachetului=4096;” & _ „Utilizați criptarea pentru date=False;” „Setați sursa de date WordDoc.MailMerge.OpenDataSource NAME:=PathOdc, _ Connection:=ConnectString, _ SQLStatement:=QuerySQL „Face Word vizibil WordApp.Visible = True WordApp.Activate „Începeți fuzionarea cu WordDoc.MailMerge .Destinație NewDocument.Destinație. SuppressBlankLines = True .Execute Pause:=False Se încheie cu „Închideți șablonul fără a salva WordDoc.close (wddonotsavechanges) Set WordDoc = Nimic Set WordApp = Nimic altceva MsgBox „Niciun șablon de îmbinat”, vbCritical, „Eroare” End If Ex1: Exit Sub Err1: MsgBox Err.Description WordDoc.close (wddonotsavechanges) WordApp.Quit Set WordDoc = Nimic Set WordApp = Nimic Reluare Ex1 End Sub Private Sub StartMerge_Click() Dim Filter As String Filter = "" "Condiție Dacă Nz(Me.Price, " ")<>"" Then Filter = "WHERE Price >= " & Me.Price End If "Apelați procedura de îmbinare Apelați MergeWord("D:\Test\Template.docx", "SELECT * FROM ""TestTable"" " & Filter & " " ) End Sub

Salvăm și verificăm lucrarea.

După ce faceți clic pe butonul (StartMerge), va începe Word, în care toate datele au fost deja completate și vor fi atâtea documente câte rânduri sunt în sursă.

După cum puteți vedea, totul funcționează. Asta e tot pentru mine, sper ca materialul a fost de folos. Pa!