SelectAll メソッド

オブジェクト：MacroItem , GraphItem , ReportItem , NotebookItem , TransformItem , FitItem , NativeWorksheetItem

• タイプ: Sub
• 構文: object.SelectAll

指定したアイテムの内容全体を選択します。

Examples

• 現在開いているワークシート全体を複製します。

  ActiveDocument.CurrentDataItem.SelectAll
  Dim cname As String
  cname=ActiveDocument.CurrentDataItem.Name
  ActiveDocument.CurrentDataItem.Copy
  ActiveDocument.NotebookItems.Add(1)
  ActiveDocument.CurrentDataItem.Name="Copy of " + cname
  ActiveDocument.CurrentDataItem.Paste
  

• 選択したレポートの内容全体を新規ワークシートにペーストします。コピーしたテキスト内にある強制改行はワークシートの各行に対応します。タブは、各列に対応します。（※訳注：余計な空白コードが含まれていると機能しない）

  Dim NotebookItems$()
  ReDim NotebookItems$(ActiveDocument.NotebookItems.Count)
  Dim Index
  Index = 0
  Dim index2
  index2=0
  Dim ReportList$(ActiveDocument.NotebookItems.Count)
  Dim Item
  For Each Item In ActiveDocument.NotebookItems
  If ActiveDocument.NotebookItems(Index).ItemType = 5 Then
  ReportList$(Index2) = ActiveDocument.NotebookItems(Index).Name
  index2=index2+1
  End If
  Index = Index + 1
  Next Item
  Begin Dialog UserDialog 320,119,"Report Items in Active Notebook" ' %GRID:10,7,1,1
  OKButton 210,14,90,21
  ListBox 20,14,170,91,ReportList(),.ListBox1
  End Dialog
  Dim dlg1 As UserDialog
  Dialog dlg1
  Dim selreport
  selreport=dlg1.ListBox1
  ActiveDocument.NotebookItems(ReportList$(dlg1.ListBox1)).Open
  ActiveDocument.CurrentItem.SelectAll
  ActiveDocument.CurrentItem.Copy
  ActiveDocument.NotebookItems.Add(1)
  ActiveDocument.CurrentItem.Paste
  

  ↓