Text プロパティ

オブジェクト：ReportItem , TransformItem , MacroItem

• Read/Write
  As String
• 構文: ReportItem/TransformItem/MacroItem object.Text

レポート、トランスフォーム、または、マクロコードのテキスト内容を指定します。プレインテキストなので書式はありません。

注記： 改行コード (CRLF) を挿入するには文字列データ定数 vbCrLf を使います。

トランスフォーム：トランスフォーム変数の値を変更するには、AddVariableExpression メソッドを使います。トランスフォームを実行するには、Execute メソッドを使います。

Examples

• 指定したテキストを新規レポートアイテムに追加します。

  Dim ReportObject As Object
  Set ReportObject = ActiveDocument.NotebookItems.Add(CT_REPORT)
  ReportObject.Text = "Now is the time for all good men to come to the aid of their parties" + vbCrLf + _
  "The quick brown fox jumped over the lazy dog." + vbCrLf + _
  "Now is the winter of our discontent."
  

• 正規分布に従うデータポイントを 1000 件生成し、階級100のヒストグラム作成したあと、ファイルに保存する簡単なトランスフォームを実行します。

  Dim SPTransform As Object
  Set SPTransform = ActiveDocument.NotebookItems.Add(9)
  SPTransform.Open
  SPTransform.Text = "col(1)=gaussian(1000)" + vbCrLf + "col(2)=histogram(col(1),100)" + vbCrLf
  SPTransform.Execute
  SPTransform.Name= Path + "\Transforms\My Transform.xfm"
  SPTransform.Close(True)
  

• トランスフォームを使用して列１に関する Gaussian Cumulative Error Distribution 関数を計算します。なお、トランスフォームの全てのコードと改行をあらわす文字列定数 + vbCrLf は、一行で記述します。

  Dim SPTransform As Object
  Set SPTransform = ActiveDocument.NotebookItems.Add(9)
  SPTransform.Open
  SPTransform.Text = "x=col(1)" + vbCrLf +"erf(x)=1-(.3480242*terf(x)-.0958798*terf(x)^2 + _
  .7478556*terf(x)^3)*exp(-x^2)" + vbCrLf +"terf(x)=1/(1+.47047*x)" + vbCrLf + _
  "erf1(x)=if(x<0,-erf(-x),erf(x))" +="" vbcrlf="" +"p(x)="(erf1(x/sqrt(2))+1)/2" "="" +="" _="" vbcrlf="" +"col(2)="P(x)*100" "="" +="" vbcrlf="">Execute
  SPTransform.Close(False)