VBA Word Regexp

VBA Word Regexp - VB/VBA/VBS - Programmation

Marsh Posté le 09-08-2016 à 19:10:44    

Bonjour,
 
J'ai un document dans Word qui contient plusieurs motifs numérotés de 10 en 10 comme décrit ci-dessous.
Cependant, il arrive assez fréquemment que le même pattern soit utilisé plusieurs fois.
 

Code :
  1. MyPattern-00010
  2. MyPattern-00020
  3. MyPattern-00030
  4. MyPattern-00030 <= Doublon
  5. ....
  6. MyPattern-01030


 
J'ai crée une macro en me servant du code http://stackoverflow.com/questions [...] -word-2010 que j'ai modifié afin de chercher le pattern "MyPattern-[0-9]{5}" que je souhaite renuméroter correctement.
 
J'arrive à modifier tout les patterns mais je n'arrive pas à les renuméroter correctement de 10 en 10. Quelqu'un sait-il comment mémoriser le dernier pattern 'XXXXX' sur 5 digits et l'incrémenter de 10 en 10.
 
Merci pour votre aide.
 
PS: Mon document word contient 100 à 200 motifs numérotés (au cas où la réponse serait de le faire à la main ;) )
 

Code :
  1. '================================================================================
  2. ' This macro allows renumbering pattern
  3. '================================================================================
  4. Sub Renumber()
  6.     ' Variables' Declaration
  7.     Dim MyPattern As String
  8.     Dim MyStartNbr   As String
  9.     Dim MyStartNbr    As Integer
  10.    
  11.     'Init.
  12.     MyStartNbr = 0
  13.    
  14.     ' Ask the user for the pattern to look for
  15.     MyPattern = InputBox(Prompt:="Pattern to look for", Title:="Renumbering of pattern" )
  16.     MyStartNbr = InputBox(Prompt:="Start number to use", Title:="Renumbering of pattern" )
  18.     ' Convert String to Int
  19.     MyStartNbr = CInt(MyStartNbr)
  20.    
  21.     ' Settings
  22.     With Selection.Find
  23.         .Replacement.Text = MyPattern & Format(MyStartNbr, "00000" )
  24.         .Forward = True
  25.         .Wrap = wdFindStop
  26.         .MatchWholeWord = False
  27.         .MatchWildcards = True
  28.         .MatchSoundsLike = False
  29.         .MatchAllWordForms = False
  30.     End With
  31.    
  32.     With Selection.Find
  33.         .Text = MyPattern & "[0-9]{5}"
  34.         .Execute Replace:=wdReplaceOne, Forward:=True, Wrap:=wdFindContinue
  35.     End With
  36.        
  37.     ' Compute the number to use
  38.     MyStartNbr = MyStartNbr + 10
  39.    
  40. End Sub


Message édité par sined40 le 10-08-2016 à 09:15:25
Reply

Marsh Posté le 09-08-2016 à 19:10:44   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed