Jeannette2509
Gebruiker
- Lid geworden
- 11 nov 2019
- Berichten
- 39
Ik wil graag meerdere word documenten samenvoegen met behulp van VBA.
Dit is wat ik tot nu toe heb
Ik zou graag:
- een dialoogvenster zoals ‘Bestand Open’ en er een specifieke map kan worden aangewezen (niet openen) en bevestigen met ‘ok‘.
dit ipv vaste pad strPath = "D:\TESTOMGEVING"
- een formuliertje willen maken dat wordt gevuld met een lijst uit deze array met vinkjes etc.
Hoop dat iemand mij kan helpen. Alvast bedankt
Dit is wat ik tot nu toe heb
Code:
Sub VoegDocumentenSamen()
Dim strPath, strTargetDocument, strDocName(200) As String
Dim intDocCounter As Integer
strPath = "D:\TESTOMGEVING\"
strTargetDocument = "Samengevoegd[" & Date & "].docx"
intDocCounter = 1
strDocName(intDocCounter) = Dir(strPath & "*.docx", vbNormal) 'Eerste *.docx
Do While strDocName(intDocCounter) <> ""
If strDocName(intDocCounter) <> "." And strDocName(intDocCounter) <> ".." Then
intDocCounter = intDocCounter + 1
End If
strDocName(intDocCounter) = Dir
Loop
intDocCounter = intDocCounter - 1 'want de laatste is leeg
'Nu heb ik een array met alle Worddocumenten in de dir strPath
Documents.Add
For n = 1 To intDocCounter
Documents.Open (strPath & strDocName(n))
Selection.WholeStory
Selection.Copy
ActiveDocument.Close savechanges:=False
Selection.Paste
Next n
ActiveDocument.SaveAs FileName:=strPath & strTargetDocument
End Sub
Ik zou graag:
- een dialoogvenster zoals ‘Bestand Open’ en er een specifieke map kan worden aangewezen (niet openen) en bevestigen met ‘ok‘.
dit ipv vaste pad strPath = "D:\TESTOMGEVING"
- een formuliertje willen maken dat wordt gevuld met een lijst uit deze array met vinkjes etc.
Hoop dat iemand mij kan helpen. Alvast bedankt