[WORD] insérer saut de page dans un autre documentRésolu

Question

Bonjour à tous et bonne année !

Ceci est mon premier post sur le forum, j'espère ne pas m'être trompé de catégorie.

Je suis entrain de coder un script me permettant de sélectionner plusieurs images, et de les insérer dans un nouveau document Word avec comme contrainte une page = une image

Le problème c'est que je n'arrive pas à faire un saut de page dans le nouveau document. Les sauts de page se font encore dans le document à partir duquel j'ai lancé le code.

Voilà un bout de code : je crée un nouveau document Word, et j'aimerai simplement y écrire un texte et faire un saut de page :

--------------------------------------------------------------------------------------------

Sub Test()

    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    '-- nouveau document
    WordDoc.SaveAs FichDest        '-- enregistre le nouveau doc
    
    
    WordDoc.Activate
    Selection.InsertBreak Type:=wdPageBreak
    Selection.TypeText Text:="je tente de faire un saut de page"
      
    
    WordApp.Visible = True

End Sub

(Il n'y a pas de balise "CODE" sur votre forum ?)
--------------------------------------------------------------------------------------------

Le problème : le saut de page et le texte s'affiche encore dans l'ancien document.

Vous avez une idée miracle ? j'ai déjà essayé pas mal de chose et ça ne donne rien !

Je précise juste que c'est mon deuxième jour sous VBA (d'ailleurs je n'ai jamais coder en objet avant) alors soyez un peu indulgent sur vos remarques et n'hésitez pas à me donner un maximum d'explications (ou un lien) 

Merci d'avance pour votre coup de main et bonne journée

schlopa · Accepted Answer

Hello

Je viens de trouver 

A la place de :

"Selection.InsertBreak Type:=wdPageBreak"
>  "WordDoc.ActiveWindow.Selection.InsertBreak Type:wdPageBreak"

Voilà

cs_loulou69 · Answer

Bonjour
essayer 

Selection.Collapse
Avant 
Selection.InsertBreak ...

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

2 réponses

Votre réponse

Discussions similaires