CurrentBrowserItem プロパティ

オブジェクト：Notebook

• Read Only
  As Object
• 構文: Notebook object.CurrentBrowserItem

ブラウザビューで現在選択しているオブジェクトをあらわす実体式 (object expression) を返します。

Example

• 現在選択しているノートブックアイテムと、そのアイテムが保存すべきものか否かを表示します。

  Dim msgtext, savestatus
  If ActiveDocument.CurrentBrowserItem.Saved=True Then
  savestatus="No need to save this item."
  Else
  savestatus="Changes have been made since last save."
  End If
  msgtext="Current Item: " + ActiveDocument.CurrentBrowserItem.Name + vbCr + savestatus
  MsgBox(msgtext,0+64,"Status")