Discussion :

[Robin56]

Bonjour,

Tout d'abord, je vais peut être posé une question stupide mais moi les macros, je n'y ai jamais touché.

Je dispose dans un document plutôt conséquent de codes de champs sur des titres. Ces codes de champs permettent de gérer un incrément automatique particulier avec le code suivant :

SEQ UC \# 000 \* MERGEFORMAT \* MERGEFORMAT

Ce qui me donne un affichage comme celui là : Texte-001.

J'aurais maintenant le besoin de supprimer l'automatisme de ces codes de champs par leur valeur numérique générée pour ne pas qu'une nouvelle mise à jour remette à jour les valeurs.

J'ai essayé de me débrouiller avec des codes de ce genre mais sans succès :

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
Sub DefaultConfig()
    Selection.HomeKey Unit:=wdStory 'envoie en début de document
    Selection.Find.Replacement.ClearFormatting 'si le format n'a pas d'importance
    Dim incr As Integer
    Dim incrFormate As String
 
    incr = 1
    incrFormate = Format(incr, "##")
 
    With Selection.Find
        .Text = "TOTO-0"
        .Replacement.Text = "TOTO-0" & incrFormate
        incr = incr + 1
        incrFormate = Format(incr, "##")
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

J'ai également vu qu'il est possible de désactiver la mise à jour des codes de champs par CTRL + F11 en cliquant sur un champ mais c'est également fastidieux. De plus, l'on ne serait plus quel code se met à jour et quel code ne se met pas à jour.

J'aurais aimé automatisé ce système car potentiellement plusieurs gros documents pourraient être impactés. Avez-vous des idées à me proposer ?

[Heureux-oli]

Salut,

Peut-être plus simple qu'un macro.

Ctrl + A pour sélectionner le contenu du document suivi de Ctrl + Shift + F9 pour convertir le résultat des champs en texte.

[Robin56]

Finalement j'ai plus ou moins suivi ce conseil :
- Champ par champ j'ai fais Ctrl + Shift + F9 (car je ne voulais pas convertir tout mes documents mais seulement certaines séquences),
- Et une recherche sur ma séquence dans le mode "affichage de code des champs" pour vérifier les éventuels oubli.

Une macro de ce genre était possible aussi mais elle désactivait juste les champs (ce que je ne souhaitais pas faire) :

Code :

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

1
2
3
4
5
6
7
8
Sub Desact_numerotation()
Dim champ As Field
For Each champ In ActiveDocument.Fields
If Mid(champ.Code, 2, 6) = "Ma séquence" Then
    champ.Locked = True
End If
Next champ
End Sub

[Heureux-oli]

Salut,

Si tu peux sélectionner plusieurs champs, toute la sélection est affectée.
S'ils sont pas sélectionnable ensemble, ça va pas.