Discussion :

[November-Oscar]

Bonjour,
Je cherche à tester dans un document un caractère et savoir si ce caractère appartient à un champ ou non ? ==> ce caractère a-t-il été produit via un Insertion \ Référence \ Renvoi... ou a-t-il été l'objet d'une frappe directe sur le clavier ?
Je pense que c'est possible mais je ne m'en sors pas et ne trouve pas ce que je veux sur le forum.
Merci de votre aide.

[Heureux-oli]

Salut,

Ta question n'est pas assez précise.

[November-Oscar]

Précision :
J'ai un style nommé "Document Référencé" que les rédacteurs doivent utiliser (ce qu'ils font). Ce style est de la forme suivante :
[R1] Toto
[R2] Tata
où R1, R2, ... Rx est une numérotation du style.
Dans le corps du texte, comme la déclaration des documents référencés a bien été faite via ces [Rx], il faut que dans le corps du texte, au moment où on a besoin de faire référence à Rx, on fasse un Insertion \ Référence\ Renvoi de Rx...
Or des petits malins ne font pas cela et écrivent en dur [Rx]... Et bien sûr dès que le document bouge, les références ne suivent pas. Je veux donc être capable de retrouver ces [Rx] non canonique de mon texte pour les traiter.
==> Recherche de '[R' et test si c'est lié à un renvoi ou non...
C'est ce test que je recherche.
En espérant que ces précisions vous éclairent. Merci.

[Heureux-oli]

Salut,

Si tu affiche le code des champs et pas le résultat, c'est possible, peut-êtrê même sans code.

Ctrl + A suivi de Shift + F9

[November-Oscar]

Je veux bien mais là je viens de le faire ...

Mon [R1] grisé donc lié à un champ se transforme en {REF _Ref340241538 \r \h }
Et là je ne sais pas quoi en faire...

Pour exemple, on peut imaginer que :
a) j'ai un [R1] écrit en dur dans le texte ==> qui ne se grise pas si je clique sur le curseur entre le R et le 1
b) j'ai un [R1] qui est un renvoi d'un Doc Référencé suivant utilisation du style ad'hoc ==> qui se grise si je clique sur le curseur entre le R et le 1

Comment dans une recherche n'avoir que les [R1] du type a) qui ne ressortent ?

J'espère que ce n'est pas un pb insoluble.
@+ et merci de votre aide.

[Heureux-oli]

Salut,

Si tu ne bascules pas en code de champ, tu ne peux savoir si c'est du texte inséré au clavier ou si ce texte un le résultat d'un champ.


On n'a pas le moyen de savoir si la Selection se trouve dans un champ ou pas.

[November-Oscar]

OK vu
admettons que dans mon code je fasse un CTRL-A et un Shift F9 à la fin... comment je peux me débrouiller dans le code entre les 2 pour vérifier mon [R1]?
Merci de ton support

[November-Oscar]

Je n'arrête pas de repenser à ta précédente réponse, heureux-oli !
Il doit bien exister une caractéristique puisque le texte du champ se grise dès dès qu'on se positionne sur un de ses éléments. Quelle pourrait être cette caractéristique ?
Non ?

[November-Oscar]

J'ai bidouillé ce code qui me résout en partie mon problème...
Merci pour ton aide 'Heureux-oli'...

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
18
19
20
21
22
23
24
25
Sub Doc_référencé()
Selection.WholeStory
Selection.Fields.ToggleShowCodes
 
Selection.HomeKey unit:=wdStory
    With activedocument.Content.Find
        .ClearFormatting
        Do While .Execute(FindText:="[R") = True
            With .Parent
                .Select
                MsgBox prompt:="Repérer l'emplacement pour un éventuel traitement" & Chr(13) _
                    & "" & Chr(13) _
                    & "A corriger : page " & Selection.Information(wdActiveEndPageNumber) _
                    & "" & Chr(13) _
                    & "", Buttons:=vbOKOnly + vbInformation, Title:="Recherche des références non renvoyées..."
                .Collapse direction:=wdCollapseEnd
            End With
        Loop
    End With
 
Selection.WholeStory
Selection.Fields.ToggleShowCodes
Selection.HomeKey unit:=wdStory
 
End Sub

[November-Oscar]

Oublié de demander :

comment fait-on pour annihiler la croix rouge d'une message box... ?

merci