Discussion :

[manu7762323]

Bonjour,

Voilà j'ai beaucoup de documents Word avec en première page un tableau, en seconde page la table des matières, et le document en lui-même commence en page 3 par un titre.

Ce que je voudrais faire, c'est une macro permettant de remplacer le contenu de la page 1 et 2 par un texte comportant 2 lignes, séparé du 1er titre par un saut de ligne.

Merci d'avance pour vos réponses.

[manu7762323]

J'ai déjà écrit ça :

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
25
26
Sub Signets()
'
' signets Macro
' Développée par frhumbee le 05/02/08
'
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Debut"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    ActiveWindow.ActivePane.SmallScroll Down:=130
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
    Selection.Find.ClearFormatting
    
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Fin"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    ActiveWindow.ActivePane.SmallScroll Down:=-56
    
    ActiveDocument.Range(ActiveDocument.Bookmarks("Debut").Range.Start, ActiveDocument.Bookmarks("Fin").Range.End).Select
    
    Selection.TypeText Text:="---+!! TITRE DU DOCUMENT 'saut de ligne' INDEX 'saut de ligne' "
      
End Sub

J'insère un signet au début du document et un signet avant le 1er titre de la page 3. Puis je sélectionne le contenu entre ces 2 signets, et je remplace la sélection par mon texte.
C'est là que j'ai un problème, car le texte de remplacement doit avoir cette allure dans word après exécution :
---------
TITRE DU DOCUMENT

INDEX

1er titre
---------

et je ne sais pas comment insérer des saut de ligne dans la ligne de code.
J'ai essayé quelques codes que j'ai lu sur les forums mais cela insère le code dans la ligne dans word mais ne l'interprète pas...

Merci pour l'aide

[Sepia]

Salut,

En VBA, pour insérer un changement de paragraphe (pas de ligne), le code est:

Code :

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

    Selection.TypeParagraph

A+