Delphi操作婦に関するいくつかの知識ポイント

// ------------------初期化------------------------------------

var

ワップ、仕事：バリアント;

試す

wapp：= getActiveOleObject（ 'word.Application'）;

を除外する

wapp：= createoleObject（ 'word.application'）;

終わり;

// ----------------------------------------------------------- -------------------------------------------------------------- -------------------------------------------------------------- -------------------------------------------------------------- -------------------------------------------------------------- -----

wapp.selection.find.text：= '<％a2％>';

wapp.selection.find.replacement.text：= lb;

wapp.selection.find.execute（置き換え：= wdreplaceall）;

// ----------------------------------------------------------- -------------------------------------------------------------- ------------------------------------

[osuiactive]のoc.Stateの場合

始める

oc.oleobjectinterface.queryinterface（ioleinplaceobject、ioo）;

ioo.uideactivate;

ioo：= nil;

終わり;

// ----------------------------------------------------------- -------------------------------------------------------------- ----------------------------------

wapp.selection.goto（what：= wdgotobookmark、name：= 'zczd'+inttostr（i））;

wapp.selection.typetext（ '■'）

// ----------------------------------------------------------- -------------------------------------------------------------- ----------------------------------

wapp.selection.goto（what：= wdgotopage、with：= wdgotonext、name：= 'flag'）;

wapp.activewindow.view.splitspecial <> wdpanenoneの場合

wapp.activewindow.panes（2）.close;

if（wapp.activewindow.activepane.view.type = wdnormalview）または（wapp.activewindow.activepane.view.type = wdoutlineview）then

wapp.activewindow.activepane.view.type：= wdprintview;

wapp.activewindow.activepane.view.seekview：= wdseekcurrentpageheader;

wapp.selection.paragraphformat.borders.item（wdborderleft）.linestyle：= wdlinestilenone;

wapp.selection.paragraphformat.borders.item（wdborderright）.linestyle：= wdlinestilenone;

wapp.selection.paragraphformat.borders.item（wdbordertop）.linestyle：= wdlinestilenone;

wapp.selection.paragraphformat.borders.item（wdborderbottom）.linestyle：= wdlinestylenone;

wapp.activewindow.activepane.view.seekview：= wdseekcurrentpagefooter;

wapp.selection.paragraphformat.alignment：= wdalignparagraphright;

if（dm.xm_ds.fieldbyname（ 'tg_flag'）。asinteger= 2）および（dm.xm_ds.fieldbyname（ 'tj_flag'）。asinteger = 0）then

wapp.selection.typetext（text：= 'certification`task`book'）

それ以外

wapp.selection.typetext（text：= '失敗したタスクブック'）;

wapp.activewindow.activepane.view.seekview：= wdseekmaindocument;