Neurochirurgie minim invazivă
"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv. Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice. www.neurohope.ro |
Macro Mail Merge
Last Updated: Mar 03 2021 16:39, Started by
Bratonee
, Mar 03 2021 16:39
·
0
#1
Posted 03 March 2021 - 16:39
Salut, incerc sa fac un macro in word care sa imi salveze ca si fisiere individuale in format word documentele pe care le generez folosing mail merge. Datele din mail merge le ia dintr-un excel facut de mine.
In momentul de fata am preluat codul asta gasit pe net: Option Explicit Const FOLDER_SAVED As String = "xx" Const SOURCE_FILE_PATH As String = "xx" Sub TestRun() Dim MainDoc As Document, TargetDoc As Document Dim dbPath As String Dim recordNumber As Long, totalRecord As Long Set MainDoc = ActiveDocument With MainDoc.MailMerge .OpenDataSource Name:=SOURCE_FILE_PATH, SQLStatement:="SELECT * FROM [Sheet1$]" totalRecord = .DataSource.RecordCount For recordNumber = 1 To totalRecord With .DataSource .ActiveRecord = recordNumber .FirstRecord = recordNumber .LastRecord = recordNumber End With .Destination = wdSendToNewDocument .Execute False Set TargetDoc = ActiveDocument TargetDoc.SaveAs2 FOLDER_SAVED & xx" & .DataSource.DataFields("xx").Value & " (xx)" & ".docx", wdFormatDocumentDefault TargetDoc.Close False Set TargetDoc = Nothing Next recordNumber End With Set MainDoc = Nothing End Sub Totul pare sa mearga ok, singura problema pe care o am este ca fisierele initiale au Header/Footer iar dupa ce rulez macro-ul, fisierele noi generate sunt fara Header/Footer. Aveti idee va rog cum le pot integra si pe acestea ? Multumesc, Edited by Bratonee, 03 March 2021 - 16:39. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users