SelectionExtent プロパティ

オブジェクト：NativeWorksheetItem , ReportItem

• Read/Write
  As Variant
• 構文: ReportItem/ExcelItem object.SelectionExtent

ReportItem オブジェクトや ExcelItem オブジェクトの現在の選択範囲を配列として返します。各選択範囲の開始と終了インデックスは、個々の配列のメンバーとしてリストされます。例えば、最初の選択範囲の開始は .SelectionExtent(0)、最初の選択範囲の終了は SelectionExtent(1) となります。

Example

• 入力したテキストを選択したレポートの先頭または末尾に挿入します。

  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 SelectedReport
  SelectedReport=dlg1.ListBox1
  
  Begin Dialog UserDialog 400,182,"Insert Text" ' %GRID:10,7,1,1
  TextBox 30,28,330,70,.TextBox1,1
  Text 30,7,340,14,"Text to insert into report:",.Text1
  OptionGroup .Group1
  OptionButton 50,133,20,14,"OptionButton1",.OptionButton1
  OptionButton 50,154,20,14,"OptionButton2",.OptionButton2
  Text 50,112,170,14,"Insert at:",.Text2
  Text 80,133,140,14,"beginning of report",.Text3
  Text 80,154,140,14,"end of report",.Text4
  OKButton 300,112,70,21
  CancelButton 300,147,70,21
  End Dialog
  Dim dlg2 As UserDialog
  Dialog dlg2
  
  Dim RepObj As Object
  Set RepObj=ActiveDocument.NotebookItems(ReportList$(SelectedReport))
  RepObj.Open
  Dim insertedtext As String
  Dim selection(3)
  If dlg2.Group1=0 Then
  selection(0) = 0
  selection(1) = 0
  insertedtext = dlg2.TextBox1 + vbCrLf
  Else
  selection(0) = -1
  selection(1) = -1
  insertedtext = vbCrLf + dlg2.TextBox1
  End If
  
  RepObj.SelectionExtent = selection
  RepObj.SelectedText= insertedtext
  

• ダイアログに Excel ワークシートで選択する範囲を表示します。

  Begin Dialog UserDialog 280,203,"Define Selection Region" ' %GRID:10,7,1,1
  GroupBox 20,7,140,84,"Row Boundaries",.GroupBox1
  Text 50,28,50,21,"Top:",.Text1
  Text 30,56,70,21,"Bottom:",.Text2
  TextBox 90,28,40,21,.TextBox1
  TextBox 90,56,40,21,.TextBox2
  GroupBox 20,105,140,77,"Column Boundaries",.GroupBox2
  Text 40,126,50,14,"Left:",.Text3
  Text 40,154,60,14,"Right:",.Text4
  TextBox 90,126,40,21,.TextBox3
  TextBox 90,154,40,21,.TextBox4
  OKButton 190,14,80,21
  CancelButton 190,49,80,21
  End Dialog
  Dim dlg As UserDialog
  Dialog dlg
  Dim SelectionArray(3)
  ActiveDocument.NotebookItems("Excel Worksheet").IsCurrentItem = True
  
  SelectionArray(0) = CLng(dlg.TextBox3)-1 'left
  SelectionArray(1) = CLng(dlg.TextBox1)-1 'top
  SelectionArray(2) = CLng(dlg.TextBox4)-1 'right
  SelectionArray(3) = CLng(dlg.TextBox2)-1 'bottom
  ActiveDocument.CurrentItem.Open ' Bring to top. Must be done to read excel selection
  ActiveDocument.CurrentItem.SelectionExtent = SelectionArray
  Dim SelectionReturned
  SelectionReturned = ActiveDocument.CurrentItem.SelectionExtent
  

  ↓