URGENT rechercher-remplacer en-tête

Question

bonjour j'ai une macro vba sur un fichier .DOC pour rechercher remplacer la variable qui va etre saisie par le user, ça marche coté remplacement mais pas dans l'en-tête de la page, il ne peut pas remplacer sur l'en-tête svp veuillez m'aider avec le code précis, car je ne suis pas un pro dans la matiére merci Sub auto() Dim vRecherche As String Dim vRemplace As String vRecherche = "" vRemplace = InputBox("Saisir la valeur a remplacer") Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = vRecherche .Replacement.Text = vRemplace .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

cs_wape · Answer

Essaye ceci :

Sub auto()
    
    Dim vRecherche As String
    Dim vRemplace As String
    
    vRecherche = "<var>"
    vRemplace = InputBox("Saisir la valeur a remplacer")
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = vRecherche
        .Replacement.Text = vRemplace
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    'Remplacement dans l'en-t&#234;te
    Application.ScreenUpdating = False
    With ActiveWindow.ActivePane.View
       .Type = wdPrintView
       .SeekView = wdSeekCurrentPageHeader
       Selection.Find.Execute Replace:=wdReplaceAll
       .SeekView = wdSeekMainDocument
       .Type = wdNormalView
    End With
    Application.ScreenUpdating = True

End Sub

@+

wape

URGENT rechercher-remplacer en-tête

1 réponse

Discussions similaires