// ------------------初期化------------------------------------
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;