1,公式怎么可以垂直居中排列?
2、在TRxRichedit,有时图片显示不全,怎么回事
3、有没有更好的替代控件,能够类似于word的最好? 但是用ole嵌入word,看网友的评论都不太好急盼高手帮忙!!!!
2、在TRxRichedit,有时图片显示不全,怎么回事
3、有没有更好的替代控件,能够类似于word的最好? 但是用ole嵌入word,看网友的评论都不太好急盼高手帮忙!!!!
解决方案 »
- 该贴不必回复!因为发分不够,所以追加100
- 请问怎样用SQL关闭数据库索引?急!!!!
- stringgrid的单元个获得焦点的触发事件是什么?
- 不得不看!=====改变vsreport类型listview某一个单元格显示样式的有关问题!
- 有几个wav文件,1.wav能读出1这个音,2.wav能读出2这个音,请问如何在程序中能读出12这个音(注意,不是 拾二,是 一二)
- 请问各位有没有在delphi中用vb的mscomm开发过什么东西的,能给点心路历程吗?小弟现在毕业设计有用到这东西啊!
- D6里的QReport,如何实现QRDBimage的显示?
- 请帮我看看这是什么问题?
- 在DELPHI程序里使用热键
- TStringList怎样初试化?
- 用了vclskin皮肤后,QuickRep问题
- CopyFile的问题,是否是Delphi的Bug呢?
如何用word呢,能给个思路吗?
Delphi操作Wrod的几个知识点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 [osUIActive] then
begin
OC.OleObjectInterface.QueryInterface(IOleInPlaceObject,IOO);
IOO.UIDeactivate;
IOO :=nil;
end;//-----------------根据书签导数据------ wApp.Selection.GoTo(What:=wdGoToBook,Name:='ZCZD'+IntToStr(i));
wApp.Selection.typetext('■')//-------------------生成页眉页脚并写入数据---------- wApp.Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:='FLAG');
If wApp.ActiveWindow.View.SplitSpecial <> wdPaneNone Then
wApp.ActiveWindow.Panes(2).Close;
If (wApp.ActiveWindow.ActivePane.View.Type = wdNormalView) Or (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 := wdLineStyleNone;
wApp.Selection.ParagraphFormat.Borders.item(wdBorderRight).LineStyle := wdLineStyleNone;
wApp.Selection.ParagraphFormat.Borders.item(wdBorderTop).LineStyle := wdLineStyleNone;
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) and (DM.XM_DS.FieldByName('tj_flag').AsInteger = 0) then
wApp.Selection.TypeText(Text:='合`格`任`务`书')
else
wApp.Selection.TypeText(Text:='不合格任务书');
wApp.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;