Compiler plusieurs doc Word

[Prof]

Voilà une question qu'on m'a posé, je n'ai pas la réponse, alors avant de chercher sur le net je vous demande :


Peut-on facilement fusionner 50 documents word de une page pour en faire UN seul document de 50 pages ?



Je compte sur vous

[akhen]

moi je sais mais en les mettant en PDF

Après dans word, Ctrl+C / CTRL+V avec des sauts de section entre les pages


(Avec Quark Xpres ça va mieux : glisser et déposer les pages !!!

[palerider]

Salut,

J'ai trouvé ça :

tu ouvres word cree un nouveau fichier (vide)
alt F11 menu insertion module tu colle la suite change le repertoire
et fait F5


sub a
Dim i As Integer
With Application.FileSearch
.LookIn = "c:\tonrepertoire" <--------- la a changer
.FileName = "*.doc"
.Execute
For i = 1 To .FoundFiles.Count
Documents.Open FileName:=.FoundFiles(i)

Selection.WholeStory
Selection.Copy

Documents(2).Activate
Selection.Paste
Documents(1).Activate
ActiveDocument.Close False

Next i


End With
End Sub

-----------------------------------------------------------------------------------------
A tester

J'ai testé ça sous office 2007 ça fonctionne, par contre celui du dessus non, il faut changer le nom du répertoire où se trouvent tes fichiers et éventuellement l'extension si tu es en docx

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

-------------------------------------------------------------------------------------------------

[palerider]

Alors ça le fait où pas ?

[palerider]

Franchement ça fait plaisir de poster sur certains on s'extasie ...

[Prof]

Désolé pal, pas pu encore tester car je veux le faire direct sur le pc du copain avec lui, comme dit dans le premier message ce n'est pas pour moi. Promis je tiens au jus et dans tous les cas merci

[palerider]

Pas de pb, comme je ne voyait pas de réponse...

[Prof]

Bon pal, tu m'as fait culpabiliser de te faire attendre,

J'ai tenté à la maison avec Word 2010 :




Je ne sais pas quelle version a mon pote mais je crois que c'est la même^^

Vais voir si je trouve le problème

[palerider]

T"as pas lu tout le post lol, il y avait ça en dessous :

J'ai testé ça sous office 2007 ça fonctionne, par contre celui du dessus non, il faut changer le nom du répertoire où se trouvent tes fichiers et éventuellement l'extension si tu es en docx

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

-------------------------------------------------------------------------------------------------

[Bobby2dallas]

sympa cette commande pal ! mais en ai pas l'utilité !