word中有文本窗体也有复选框窗体
文本窗体可以用这样的方式进行赋值 try
vWord:=CreateOleObject('Word.Application');
except
AppMsgWarn('您的计算机上还未安装Microsoft Office Word97或更高的版本!');
Abort;
end;
try
vWord.Visible:=False;
vWord.Documents.Add(sFileName, False);
vDoc := vWord.ActiveDocument;
vFields := vDoc.FormFields;
vFields.Item('bmFundManger').Result:=lbledtName.Text;那复选框如何进行复制呢?
文本窗体可以用这样的方式进行赋值 try
vWord:=CreateOleObject('Word.Application');
except
AppMsgWarn('您的计算机上还未安装Microsoft Office Word97或更高的版本!');
Abort;
end;
try
vWord.Visible:=False;
vWord.Documents.Add(sFileName, False);
vDoc := vWord.ActiveDocument;
vFields := vDoc.FormFields;
vFields.Item('bmFundManger').Result:=lbledtName.Text;那复选框如何进行复制呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货