Word Variable de bloc with non définie

[risch_cyril]

Bonjour,

J'ai un code placé dans normal qui me dit variable de bloc with non définie à l'execution et voici le code quelqu'un aurait t-il une solution svp ?

Sub rapport_provisoire_entete2()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RAPPORT N°: (<*>)"
        .Replacement.Text = "RAPPORT N°: PROVISOIRE"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
    
End Sub

 

[Staple1600]

Bonsoir

Cela me rappelle quelque chose...🙄
(Tu as changé de pseudo ?)

Word - Erreur d'exécution

Bonjour à tous j'ai une erreur lors de l'exécution de ce code quelqu'un sais til pourquoi ? Voir code et capture ci contre Sub rapport_provisoire_entete() Dim Prgrf As Paragraph Dim reg As New VBScript_RegExp_55.RegExp, Match As VBScript_RegExp_55.Match Dim Matches As...

www.excel-downloads.com

Dois-je t'appeler Marine ou Cyril ?

 

[Staple1600]

Re

Test OK sur Word 2013 (code à peine modifié issu de l'enregistreur de macros)

Sub Test_OK()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([0-9]{3})"
        .Replacement.Text = "PROVISOIRE"
        .Forward = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Ici dans mon exemple, les numéros de rapport sont des nombres de 3 chiffres.

 

[TooFatBoy]

Bonjour,

Du coup ça pourrait peut-être devenir :

Sub Test_OK()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "([0-9]{3})"
        .Replacement.Text = "PROVISOIRE"
        .Forward = True
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

 

[Staple1600]

Bonsoir Obiwan

Oui, c'est vrai, il faut toujours éviter les Select
Mais je ne suis qu'un petit padawan 😉

Mais padawan ou pas, je me méfie des demandeurs à double-pseudo
(surtout quand ils font pas de feedback aux propositions faites dans leur discussions)

 

[TooFatBoy]

Je n'étais pas sûr à 100 % qu'on puisse "simplifier" de la sorte.
Merci pour ta confirmation. 👍

 

[Staple1600]

Re

Je n'ai pas fait le test.
Je suis enfermé dans ma boite virtuelle.
😉

NB: Je suis passé dans le fil puisque c'est un fil que je suis, vu que j'y ai pondu un code.