Word Variable de bloc with non définie

risch_cyril · 19 Mars 2022

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 ?

VB:

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 · 19 Mars 2022

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 · 19 Mars 2022

Re

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

Code:

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 · 29 Mars 2022

Bonjour,

Du coup ça pourrait peut-être devenir :

VB:

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 · 29 Mars 2022

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 · 29 Mars 2022

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

Staple1600 · 29 Mars 2022

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.

Word Variable de bloc with non définie

risch_cyril

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Word - Erreur d'exécution

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires