Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi¸øword¼Ó±³¾°£¬¼Óˮӡ£¿

ÔÚDelphiÖÐʹÓÃOffice¿Ø¼þ£¬ÈçºÎ¸øword¼Óˮӡ£¨»ò±³¾°£©£¿
mark


ÎÊÌâÈç¹û½â¾öÇ뼰ʱ½áÌû

¶÷£¬ºÃµÄ£¬µ«ÎÒÕâÀïÕâ¾ä¡°oDoc.ActiveWIndow.ActivePane.Selection.HeaderFooter.Shapes.AddPicture('F:\jpg',False,True);"£¬±¨´íÁË

F:\jpgÊÇʲô?Ó¦¸ÃÊǸöͼƬÎļþ·¾¶°¢£¬±ÈÈçF:\a.jpg

×îºóÒ»¸ö²ÎÊý Anchor ¸³Ê²Ã´Öµ

ÒѾ­³É¹¦ÁË£¬Ð»Ð»¸÷λÁË£¬µ«Èç¹ûÎÒÓÖÒª°Ñ±³¾°Í¼Æ¬È¥µô£¬ÄǸöͼƬµØÖ·Ó¦¸ÃÔõôд£¿

ÒýÓÃ
×îºóÒ»¸ö²ÎÊý Anchor ¸³Ê²Ã´Öµ

¸³Ò»¸öRange·¶Î§

ÒýÓÃ
ÒѾ­³É¹¦ÁË£¬Ð»Ð»¸÷λÁË£¬µ«Èç¹ûÎÒÓÖÒª°Ñ±³¾°Í¼Æ¬È¥µô£¬ÄǸöͼƬµØÖ·Ó¦¸ÃÔõôд£¿

ͼƬµØÖ·Ð´Ê²Ã´¶¼²»ÄÜÈ¥µô£¬Òªµ÷ÓÃDelete·½·¨

ÒýÓÃ
ÒýÓà 6 Â¥ qin2006 µÄ»Ø¸´:
×îºóÒ»¸ö²ÎÊý Anchor ¸³Ê²Ã´Öµ

¸³Ò»¸öRange·¶Î§

ÒýÓà 7 Â¥ zengxin2008 µÄ»Ø¸´:
ÒѾ­³É¹¦ÁË£¬Ð»Ð»¸÷λÁË£¬µ«Èç¹ûÎÒÓÖÒª°Ñ±³¾°Í¼Æ¬È¥µô£¬ÄǸöͼƬµØÖ·Ó¦¸ÃÔõôд£¿

ͼƬµØÖ·Ð´Ê²Ã´¶¼²»ÄÜÈ¥µô£¬Òªµ÷ÓÃDelete·½·¨



ÎÒÔ­À´´ÓÀ´Ã»ÓùýÕâ¸ö²Ù×÷wordµÄ·½·¨£¬±àÂëµÄʱºòÓÖûÓÐÌáʾ£¬ÔÙÇëÎÊһϣº  oDoc.ActiveWIndow.ActivePane.Selection.HeaderFooter.Shapes.Delete £¬ÊDz»ÊÇÕâÑùд

up


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

DELPHIÇë´ó¼Ò°ïÎÒ¿´¿´Õâ¶ÎËÑË÷´úÂë³ö´íÔÚÄĶù°¡£¿

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
  begin
    with ADOQuery1 do ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ