//-------------------初始化--------------------
var
wApp,work:Variant;
try
wApp:=GetActiveOleObject('word.Application');
except
wApp:=CreateOleObject('word.Application');
end;
//---------------替换字符--------------------
wApp.selection.find.text:='%a2%';
wApp.selection.find.replacement.text:=lb;
wApp.selection.find.execute(replace:=wdReplaceAll);
//----------------------隐藏WORD菜单和工具栏----------------------
if OC.State in...[ 查看全文 ]