[WORD] insérer un saut de page dans document fils

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [WORD] insérer un saut de page dans document fils

schlopa67

Bonjour

dsl pour le titre, j'ai eu du mal à en trouver un explicite

Voilà le topo : je dois créer un script VBA qui permette de créer un nouveau document Word, puis de sélectionner une liste d'images, et de coller ces images dans ce document Word mais avec 1 image = 1 page

Voilà mon script :

Code :

Sub InsIMG()
Dim FichDest As String 'contiendra le chemin du fichier de destination
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox "Destination du fichier de sortie ? (Cliquer 'ok')"
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.AllowMultiSelect = False
.Title = "Sélectionnez le fichier de destination"
.InitialFileName = "DestinationFinale.doc"
.FilterIndex = 3
If .Show = -1 Then
FichDest = .SelectedItems(1) 'chemin fichier variable "FichDest"
End If
End With
Set WordApp = CreateObject("Word.Application" ) '-- ouvre une session Word
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Add '-- crée un nouveau document
WordDoc.SaveAs FichDest '-- enregistre le nouveau doc
WordDoc.Close
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' bon j'ai fermé le doc pour le rouvrir, juste pour être sur
Set WordApp = CreateObject("Word.Application" )
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(FichDest)
MsgBox "Sélectionner les images à insérer"
Dim SelecImg As String 'contiendra les fichiers images à insérer dans le doc
Dim fd2 As FileDialog
Set fd2 = Application.FileDialog(msoFileDialogFilePicker)
With fd2
.Title = "Sélectionnez les fichiers"
.AllowMultiSelect = True
.InitialView = msoFileDialogViewDetails
With .Filters
.Clear
.Add "Fichiers Images", "*.tiff; *.jpg; *.jpeg; *.bmp; *.png; *.gif", 1
.Add "Tous les fichiers", "*.*", 2
End With
.FilterIndex = 1
If .Show = -1 Then
' SelecImg = .SelectedItems(1) 'chemin fichier variable "FichDest"
For Each vrtSelectedItem In .SelectedItems
MsgBox "Selected item's path: " & vrtSelectedItem
WordDoc.InlineShapes.AddPicture FileName:=vrtSelectedItem, linkToFile:=False, saveWithDocument:=True
With WordDoc.InlineShapes(1) 'ActiveDocument.Shapes.Countadapter l'index si d'autres images existantes dans le document WordDoc.InlineShapes.Count
.Height = 900 'changement dimension image insérée : hauteur 850
.Width = 700 'largeur 600
.ConvertToShape
End With
With WordDoc.Shapes(1)
.Top = -65 'position verticale de l'image dans le document -70 = suppresion des marges...
.Left = -70 'position horizontale de l'image dans le document
.ZOrder msoBringInFrontOfText 'image au premier plan devant le texte
End With
Selection.InsertBreak Type:=wdPageBreak
Selection.TypeText Text:="je viens de faire un saut de page"
Next
End If
End With
' WordDoc.Close 'fermer le document Word
' WordApp.Quit 'fermer l'application Word
End Sub

Le problème c'est qu'il me met le saut de page dans le document à partir duquel j'ai lancé la macro. En gros, je souhaite trouver un moyen de lui dire "maintenant tu prends en compte le curseur dans le document qui a été crée, et plus le curseur du document inital.

Je ne sais pas si j'ai été clair...

Quelqu'un aurait-il une idée de génie ?

merci d'avance et bonne journée

---------------
feedback

Publicité

FlorentG

Ton :

Code :

Selection.InsertBreak Type:=wdPageBreak
Selection.TypeText Text:="je viens de faire un saut de page"

Le Selection sans . devant, ou sans être appliqué à un objet, forcément ça va être dans le document qui lance la macro.

Faudrait plutôt l'appeller sur WordDoc (ou sur la variable qui a une propriété Selection)

schlopa67

hum, je m'excuse, mais la POO ne fait pas (encore) partie de mes compétences et je code en VBA que depuis hier...

en gros, j'ai pas compris ce que tu essayes de me dire avec le "."

EDIT : j'avais essayé "WordDoc.Selection.InsertBreak Type:=wdPageBreak Type:=wdPageBreak" mais il me sort une erreur "Propriété ou Méthode non Gérée par cet objet" d'où mon interrogation

Message édité par schlopa67 le 15-01-2009 à 15:50:12

---------------
feedback

FlorentG

Faut trouver qui a la propriété Selection Je regarde

FlorentG

Apparement ce serai WordDoc.ActiveWindow.Selection ?

schlopa67

Ah mince effectivement ça marche

Je peux te demander un dernier service ? où est-ce que tu as regardé pour trouver ça ?

---------------
feedback

FlorentG

J'ai Word 2003, j'ai ouvert l'aide, puis Table des Matières, Référence Visual Basic Microsoft Word, Propriétés, S, Selection.

Et là en haut, y'a un "S'applique à", puis de fil en aiguille tu constates que ça s'applique sur un objet Window, qu'on peut récupérer sur un objet Word.Application (ton WordDoc), via ActiveWindow

schlopa67

J'utilise Word 2007, et je n'ai pas la mm arborescence que toi

Mais il faut dire que je n'ai pas regardé au bon endroit (j'étais dans les objets et les méthodes, mais pas propriétés)

Merci beaucoup, je pense pouvoir finir seul !

---------------
feedback

FlorentG

Bon courage, et bonjour à Sélestat

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[WORD] insérer un saut de page dans document fils

Sujets relatifs
Page de chargement	Target vers la page principale
Page de maintenance	Insérer un code dans une page php
Créer une page de dispatch en php en fonction de l'url saisie	Zoom sur image par dessus document
ouvrir une page à distance en HTTP GET, y envoyer des HTTP POST, cUrl,	inserer un personnage dans openGL
pb de liens/ affichage page php
Plus de sujets relatifs à : [WORD] insérer un saut de page dans document fils

Page générée en 0.086 secondes