Поделиться через

Свойство Field.Code (Publisher)

  • Статья

Возвращает значение String , представляющее текст, отображаемый, когда в представлении страницы задано отображение кодов полей. Только для чтения.

Синтаксис

expression. Код

Выражение Переменная, представляющая объект Field .

Возвращаемое значение

String

Пример

В этом примере выполняется цикл по всем полям в активной публикации, а затем отображается сообщение о том, найдена ли строка "www" в коде любого из полей.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.