Du kan hvis du har et nyere word printe dem som pdf og samle dine pdf filer.
Ellers kan du også copy paste det hele inde i word. også bare benytte words indsæt sideskift funktion. finders under indsæt menuen og skifter til ny side. Du vil derefter kunne indtaste tekst uden det på næste side flytter sig
Dim isnt As Integer, i As Integer isnt = CountFiler("C:\tt") i = 1
'This code requires a referece to the Word object model 'and windows scripting runtime
Dim Appword As New Word.Application Dim fso As Object, fldr As Object, f As Object
Set Appword = CreateObject("Word.Application") Appword.Documents.Add
Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.GetFolder("C:\tt") For Each f In fldr.Files Appword.Selection.InsertFile Filename:="C:\tt\" & f.Name
If i = isnt Then Exit For
Appword.Selection.InsertBreak wdPageBreak 'Appword.ActiveDocument.Range.InsertBreak i = i + 1
Next f
Appword.Visible = True
End Function
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.