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
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬ Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject); var XY : string; begin XY := comboboxxy.Items[comboboxx ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......
procedure TForm4.BitBtn2Click(Sender: TObject); begin if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then begin with ADOQuery1 do ......