次の方法で共有

Field.Code プロパティ (Publisher)

  • [アーティクル]

フィールド コードを表示するページの表示が設定されている場合に表示されるテキストを表す 文字列 を返します。 読み取り専用です。

構文

式。コード

式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 のサポートおよびフィードバックを参照してください。