Discussion :

[gamerome]

Bonjour,
Je recherche une macro word qui me permettrait d'insérer des fichiers word les uns après les autres.
Je suis totalement débutant dans ce domaine et je galère beaucoup
Il faudrait que cette macro insére des fichiers sans avoir à les mentionner.
Elle insérerait le fichier 1.doc puis 2.doc etc..
Pourriez vous m'aider?
Merci

[gamerome]

Non ce sont des fichiers qui existent.
Il connais l'ordre d'insertion :
1.doc puis 2.doc, etc jusqu'a ce que n.doc soit introuvable.

[gamerome]

J'ai trouvé le morceau de code qui permet d'insérer un fichier mais je ne sais pas comment faire dans mon script, une boucle qui insére ces fichiers...
J'ai vraiment besoin qu'on m'aide.

[gamerome]

Voila le bout de code qui me permet de faire un saut de page :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
sub MaMainsaut
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Kind"
args1(0).Value = 3
args1(1).Name = "TemplateName"
args1(1).Value = ""
args1(2).Name = "PageNumber"
args1(2).Value = 0
 
dispatcher.executeDispatch(document, ".uno:InsertBreak", "", 0, args1())
 
 
end sub

puis celui qui me permet d'insérer un fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
sub MaMain
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Name"
args1(0).Value = "file:///C:/wamp/www/stage/src/tmp/a/implantation.rtf"
args1(1).Name = "Filter"
args1(1).Value = "Rich Text Format"
 
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args1())
 
 
end sub

J'ai pu trouver ceci en faisant un enregistrement de macro.

Mais comment mixer les deux pour résoudre mon probleme?
(Je ne connais pas le VB)

[gamerome]

dsl pour le up mais j'ai besoin d'aide.

[SilkyRoad]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Je recherche une macro word qui me permettrait 
d'insérer des fichiers word les uns après les autres.

la macro que tu affiches dans ton message du 23/06 est plutot issue d'Open Office ...


peux tu repréciser ce que tu souhaites exactement


bonne journée
michel

[gamerome]

Eh bien voila :
J'ai développez une application qui permet à une entreprise de générer des rapports.
L'application génére des fichiers RTF qui correspondent aux "chapitres" des rapports.
Mais mon patron aimerait qu'il n'y ait qu'un fichier de généré. Il trouve embetant le fait d'ouvrir le 1er fichier rtf puis de faire Insertion -> Fichier pour tous les autres fichiers qui ont été généré.
J'ai donc pensé à une macro qui executerait cette tache automatiquement.
Il y aurait dans un répertoire les fichiers 1.rtf, 2.rtf, 3.rtf, etc
La macro, elle, insérerait alors ces fichiers les uns apres les autres (avec un saut de page entre). Le fichier 1.rtf puis 2.rtf jusqu'à ce que le fichier n.rtf soit introuvable.

Je travail effectivement sous Open Office mais je pensais que ca ne changerait rien. Je vais donc travailler sous MSWord.
Je recherche donc une macro Word qui me permet d'automatiser ceci.

[ouskel'n'or]

Il faudrait que cette macro insére des fichiers sans avoir à les mentionner.

Je pense que tu veux dire : sans que l'utilisateur ait à mensionner le nom du fichier... Si c'est ça, tu crées un tableau des noms de fichiers à ouvrir et tu mets ça dans une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Documents.open filename:=Chemin & NomDuFichier(i)