Hvad med en Excel makro?
Gør således:
1) Åben Excel
2) set excel op så den viser fanen udvikler (developer). brug hjælp og søg på udvikler eller developer, hvis du ikke ved hvordan.
3) under fanen udvikler trykker du på indsæt og vælger Active-X objectet "kommandoknap".
4) tegn knappen så den fylder celle C5 til E6. når dette er gjort åbner visual basic editoren.
5) Til venstre ses et felt der hedder caption - Her skriver du Print
6) indsæt følgende kode i vinduet til højre:
Private Sub CommandButton1_Click()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim objSelection As Selection
Dim i As Long
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
i = 2
Cells.Columns(2).Clear
Do While Cells(i, "A") <> ""
Set wrdDoc = wrdApp.Documents.Open(CStr(Cells(2, "C")))
replace wrdDoc, "%%NAVN%%", Cells(i, "A")
wrdDoc.Close (False)
i = i + 1
Loop
wrdApp.Quit (False)
End Sub
Sub replace(ByRef doc As Word.Document, ByVal txt As String, ByVal replacetxt As String)
With doc.Content.Find
.Text = txt
.Replacement.Text = replacetxt
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute replace:=wdReplaceAll
End With
End Sub
7) skriv %%NAVN%% i celle A1
8) skriv Skabelon i celle C1.
9) i celle C2 skriver sti + navn på dit word dokument (evt et test dokument der indeholder %%NAVN%% der hvor du vil have noget tekst sat ind.)
10) i kolonne A under %%NAVN%% ydfylfder du lige så mange rækker du vil med tekst der skal ind i stedetfor %%NAVN%% i dokumentet.
Når dette er gjort har du en makro der kan udskrive lige så mange dokumenter som du sætter af linier i kolonne A.
Håber det kan bruges
Peder