Nitro PDF
Prvo napraviš jedan PDF od više Word dokumenata, pa onda vratiš taj jedan u .doc Baš me zanima kakovg Frankeštajna od Word dokumenta bi dobio.
Ili iskoristi ono što je već integrisano u Office
http://www.mydigitallife.info/2007/12/0 ... word-2007/http://allthingsmarked.com/2007/07/11/h ... o-one-doc/Možeš i macro pronaći, npr kao ovaj
So, hopefully you know how to setup a Word macro. Just add this macro for merging Word documents to your list of macros, then open a Word doc in the folder that has all your other Word docs, and run the macro. The macro loops through all the Word docs in the directory and combines them together. Voila! You're done.
Citiraj:
Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = "C:\Book\Chapters\" 'change to suit
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & "*.doc") ' can change to .docx
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End Sub
Citiraj:
Make sure you changed the C:\Book\Chapters\ reference to your specific path on your PC.
Also, you need the backslash at the end.
Now, you can open any Word doc and run the MergeDocs macro. The Macro will create a new Word document and merge the contents of all of the Word documents in the specified folder into that new Word document. Then, save that Word document and you should be good to go. Good luck!
_________________
Rad je od čovjeka napravio roba, neradu smo odani sve do groba.
Prijavite se
Registruj se
FAQ
Pretraga
