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

DelphiÖпØÖÆVBA ºê

ÈçºÎÔÚDelphiÀïÃæÀûÓÃWordµÄVBA´úÂë½øÐÐһЩ×ܽᡣ
1¡¢  Éú³ÉVBA´úÂë¡£Word±¾Éí¾ßÓкÜÇ¿µÄ¿ÉÀ©Õ¹ÐÔ£¬ÓÈÆäÊÇÖ§³ÖÓû§×Ô¶¨Ò幦ÄÜ£¬ÆäʵÏÖ
µÄÖ÷Òª·½Ê½¾ÍÊÇͨ¹ýVBA´úÂëÀ´ÊµÏֵġ£ÔÚ“¹¤¾ß->ºê->Visual Basic±à¼­Æ÷”ÀïÃæ¾Í¿ÉÒÔ¿´
µ½¾ßÌåµÄºê´úÂ룬¿ÉÒÔÖ±½Ó½øÐб༭¡£¶øÇÒ»¹¿ÉÒÔʹÓüÖƺêµÄ¹¦ÄÜ×Ô¶¯Éú³Éºê´úÂë¡£·½·¨ÊÇ
Ñ¡Ôñ“¹¤¾ß->ºê->¼ÖÆкꔣ¬È»ºóÖ´ÐÐ×Ô¼ºÏëͨ¹ý³ÌÐòʵÏֵŦÄÜ£¬Èç´æÅÌ¡¢´òÓ¡µÈ¹¦ÄÜ£¬
´ËʱWordÒ»±ßÖ´ÐÐÄãҪʵÏÖ¹¦ÄÜ£¬Ò»±ß½«ÄãµÄ²Ù×÷Éú³ÉÁËÒ»¸öºê£¬ÔÚʵÏÖ¹¦Äܺ󣬿ÉÒÔÑ¡Ôñ
“¹¤¾ß->ºê->VisualBasic±à¼­Æ÷”£¬²é¿´Éú³ÉµÄºê´úÂë¡£
ÀýÈ磺ÎÒÃÇÒª½«ÎĵµÖеēÌÖÂ۔ȫ²¿Ìæ»»³É“ÑÐÌÖ”¡£
a£®  µã»÷“¹¤¾ß->ºê->¼ÖÆкꔣ¬Ö±½Óµã»÷È·¶¨£¬Ä¬Èϵĺ걣´æµ½ÁËNormal.dotϵͳ¹«
ÓÃÄ£°åÀïÃæ¡£
b£®  µã»÷“±à¼­->²éÕÒ”£¬³öÏÖµ¯³ö¶Ô»°¿ò£¬ÊäÈë²éÕÒºÍÌæ»»µÄ×Ö£¬µãÈ·¶¨¡£½øÐÐÌæ»»¡£
c£®  ½áÊøºêµÄ¼ÖÆ£¬µã»÷½áÊø°´Å¥¡£
d£®  °´F11»òÕß“¹¤¾ß->ºê->Visual Basic ±à¼­Æ÷”£¬²é¿´ºê´úÂ롣ȱʡ²é¿´NormalÀïÃæ
µÄÄ£¿éÀïÃæµÄNewMacrosÄ£¿é¡£
ÒÔÏÂÊÇÉú³ÉµÄºê´úÂ룺
Sub Macro1()
'
' Macro1 Macro
' ºêÔÚ 2002-2-1 ÓÉ yzhshi ¼ÖÆ
'
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "ÌÖÂÛ"
       .Replacement.Text = "ÑÐÌÖ"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchByte = True
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Re


Ïà¹ØÎĵµ£º

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí


<1>ÀûÓÃUnitµÄ
InitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
Program
Óë
Library²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin
..end.ÖмäÊÇ¿ÉÒÔд´úÂë
µÄ£¬
ÕâÀï¿ÉÒÔ·ÅÖÃ
DLL³õʼ»¯´úÂë
¡£Èç¹ûÏëÒª×öÉÆ ......

Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ

Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
 ´ò¿ªDelphi±à¼­Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......

DelphiʵÏÖÍøÒ³×Ô¶¯µÇ½

±ÈÈç²Ù×÷
CSDNµÄµÇ¼
ÏÈÓÃWebBrowser¶¨Î»µ½µÇ¼ҳÃæ
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
È»ºó£¬¿´ÆäHTMLÔ´´úÂ룬·¢ÏÖ
Ãû×ÖΪ ctl00$CPH_Content$tb_LoginNameOrLoginEmailµÄÔªËؾÍÊÇ ÆäÓû§ÃûµÄÊäÈë¿òÁË¡£
´Ëʱ
ʹÓÃ
(WebBrowser1.Documen ......

ÔõôÓÃdelphiÏòÍøÒ³Ìá½»µÇ½ÐÅÏ¢

procedure TForm1.Button2Click(Sender: TObject);
var  
o : Olevariant;
begin  
  webbrowser1.Navigate('http://www.163.com');  
  delay(2000);
  o :=   WebBrowser1.OleObject.document.all.item('username',0);
  o.value := 'username';  
  o := W ......

³õ̽DelphiÖеIJå¼þ±à³Ì


Ç°ÑÔ 
¡¡¡¡ÎÒдDelphi³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØбàÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓЭ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ