Propriété Field.Code (Publisher)

Renvoie une chaîne qui représente le texte affiché lorsque l'affichage de la page est définie pour afficher les codes de champ. En lecture seule.

Syntaxe

expression. Code

expression Variable qui représente un objet Field .

Valeur renvoyée

String

Exemple

Cet exemple montre comment parcourir tous les champs de la composition active, puis afficher un message indiquant si la chaîne "www" a été trouvée dans le code de l’un des champs.

Sub FindWWWHyperlinks() 
 Dim intItem As Integer 
 Dim intField As Integer 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange.Fields 
 Do 
 intItem = intItem + 1 
 If InStr(1, .Item(intItem).Code, "www") > 0 Then 
 intField = intField + 1 
 End If 
 Loop Until intItem = .Count 
 End With 
 
 If intField > 0 Then 
 MsgBox "You have " & intField & " World Wide Web " & _ 
 "hyperlinks in your publication." 
 Else 
 MsgBox "You have no hyperlink fields in your publication." 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.