[VBA-W]Inserer du word dans mon doc word

**dev81** · 03/05/2007, 16h33

J'ai pu avoir ce code pour pouvoir insérer un doc word dans mon word, Le problème c'est que cela me prend que la premiere page de mon doc word?

Code :

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

1
2
ThisDocument.InlineShapes.AddOLEObject ClassType:="Word.Document.8", _
        FileName:=Chemin, Range:=Selection.Range

Comment résoudre le problème?

**ouskel'n'or** · 03/05/2007, 16h51

Que veux-tu insérer ? Le Doc en tant qu'objet ou le texte contenu dans le doc ?

**dev81** · 03/05/2007, 16h54

Le texte contenu dans le word mais en tant qu'inlineshape pour ne pas mettre en l'air la mise en page de mon doc word.

Sinon tu m'avais donné ca mais ca modifier toute la numérotation de mes paragraphes:

Code :

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

Selection.InsertFile FileName:=Chemin, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False

**ouskel'n'or** · 03/05/2007, 17h25

As-tu essayé en remplaçant le type par le nom du fichier

Code :

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

1
2
ThisDocument.InlineShapes.AddOLEObject FileName:=CheminComplet, _
Range:=Selection.Range

Envoyé par L'aide

ClassType Argument de type Variant facultatif. Nom de l'application utilisée pour activer l'objet OLE spécifié.
FileName Argument de type Variant facultatif. Fichier à partir duquel créer l'objet. Si vous ne spécifiez pas cet argument, c'est le dossier en cours qui est utilisé. Précisez soit l'argument ClassType, soit l'argument FileName de l'objet, mais pas les deux.

Tu dis. (Je n'ai encore rien testé)

**dev81** · 03/05/2007, 17h27

Non toujours que la premiere page qui s'affiche,jamais tout le document word

**ouskel'n'or** · 03/05/2007, 17h32

Avec le premier code que je t'ai passé, tu as essayé F9 ?
En fait j'ai besoin d'une explication : Ton doc, tu l'insères quelque part dans le texte. Que souhaites-tu ? Que les N° de chapitres s'adaptent ou qu'ils conservent tous leurs N° d'origine (texte "résident" d'un côté et texte collé de l'autre) ?

**dev81** · 03/05/2007, 17h36

rien avec F9, et c'est ca que je veux que chacun garde ca numérotation d'origine texte résident d'un coté et texte collé de l'autre.

Je veux placer mon donc word tel quel dans le doc word résident.

**ouskel'n'or** · 03/05/2007, 17h44

Et si tu insères ton fichier dans un objet "Document Word" lui-même inséré dans ton doc récepteur : Brut de décoffrage, y'a peut-être des choses à modifier (?)

Code :

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

1
2
3
4
5
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", FileName _
        :="", LinkToFile:=False, DisplayAsIcon:=False
    ActiveWindow.ActivePane.LargeScroll Down:=1
    Selection.InsertFile FileName:=Chemin, Range:="", _
    ConfirmConversions:=False, Link:=False, Attachment:=False

(Toujours pas testé)
A+

**dev81** · 04/05/2007, 08h37

Non c'est pas ce que je veux, sinon je peux passer par le format pdf.
On peut insérer un pdf dans un doc word?Et comment?

**ouskel'n'or** · 04/05/2007, 10h05

J'ai un peu testé ce que donne l'une ou l'autre façon d'insérer des fichiers.
Le code que tu as utilisé permet de lire le fichier inséré. Je parle de celui-ci :

Code :

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

1
2
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", _
FileName:=NomFich

Le problème est que la première page est affichée, mais pour le lire, il est nécessaire de faire deux clic sur le doc.
Idem pour le pdf, deux clics ouvre Adobe Acrobat Reader (V 7).

Code :

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

1
2
    Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.7", _
        FileName:="C:\Program Files\Microsoft Works\wksgsg03.pdf"

Le code que je t'ai donné en premier paraît faire la même chose. Je parle de

Code :

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

1
2
ThisDocument.InlineShapes.AddOLEObject FileName:=CheminComplet, _
Range:=Selection.Range

La seule solution pour que le texte apparaisse en entier es le simple copier/coller
J'ai regardé les différents paramètres d''insertion de sauts de section avec l'un des types de paramètres disponibles, malheureusement, ça ne fonctionne pas, les sauts de sections s'adaptent au doc principal.
Je te passe ce que j'ai fait, ça t'évitera de le refaire. Les paramètres testés :

wdSectionBreakNextPage 'ne convient pas

wdSectionBreakContinuous 'ne convient pas

wdSectionBreakEvenPage 'ne convient pas

wdSectionBreakOddPage 'ne convient pas

wdTextWrappingBreak 'ne convient pas

Le code pour insérer le saut de section

Code :

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

    Selection.InsertBreak Type:= ???????

Le code pour un copier/coller

Code :

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

1
2
3
4
5
    Documents.Open FileName:="Fichier à insérer.doc"
    Selection.WholeStory
    Selection.Copy
    Windows(1).Activate 'Le doc principal
    Selection.PasteAndFormat (wdPasteDefault)

Si j'ai fait tout ça c'est que j'ai eu ce problème (c'est vieux) et la seule solution que j'avais trouvée avait été la copie d'écran page par page et le collage en tant qu'images. J'avais simplement pris la précaution de changer la police ou la couleur du texte.
Et là, je suis sec d'idée.
A+ et bonne chance. Mais si tu trouves une solution, n'hésite pas à la mettre ici

**dev81** · 04/05/2007, 10h25

Petit problème avec ton copier/coller.
Ca m'ouvre le doc word et c'est tout!
Pas de copier coller dans mon doc principal.

**ouskel'n'or** · 04/05/2007, 10h28

Cela doit provenir du fait qu'il faut du temps au doc pour s'ouvrir. Ajoute un DoEvents entre les deux premières lignes.
Tu dis

**dev81** · 04/05/2007, 10h31

Rien qui se copie, je vois pas ce qui se passe.

**ouskel'n'or** · 04/05/2007, 10h42

Tu as fait comme ça ?

Code :

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

1
2
3
4
5
6
    Documents.Open FileName:="d:\Doc\flear.doc"
    DoEvents
    Selection.WholeStory
    Selection.Copy
    Windows(1).Activate
    Selection.PasteAndFormat (wdPasteDefault)

Mon doc fait 258 pages et l'insertion se fait sans pb

NB - Le doc copié est déjà ouvert (!) Est-ce la raison ?
Tu dis

Edit
Testé en fermant le doc : Tout ok. C'est pas ça.

**dev81** · 04/05/2007, 10h48

voici ma fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub InsertWordVersWord(Chemin As String)
'Cette procédure recoit le chemin et renvoie le contenu d'un doc word dans le RA
 
    Documents.Open FileName:=Chemin
    DoEvents
    Selection.WholeStory
    Selection.Copy
    Windows(1).Activate
    Selection.PasteAndFormat (wdPasteDefault)
 
End Sub