SetTextData

種別 アノテーション
説明 テキスト文字列を変更します。
構文 SetTextData(no, sText)
引数 no:0から始まる取得するテキストの番号。
sText:変更する文字列
戻り値 成功なら1、失敗なら0
使用例 Dim max,i,p,s,ss

max = GetTextData(0, 0)'テキスト数を取得する
for i=0 to max
  'フィールドを除く、テキストの取得(フィールドはNULL値になる)
  s = GetTextData(i, 1)
  p = Find(s, "別紙")
  if p > 0 then
    ss = "別紙" & no
    SetTextData(i, ss)'文字列を変更する
    no = no + 1
  endif
next i
実例  
備考 関連する関数(XdwAnnText、AnnProperty、XdwAnnImage、
XdwAnnShape、XdwFieldData、GetTextData、SetTextData)