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
Ïà¹ØÎĵµ£º
<1>ÀûÓÃUnitµÄ
InitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
Program
Óë
Library²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin
..end.ÖмäÊÇ¿ÉÒÔд´úÂë
µÄ£¬
ÕâÀï¿ÉÒÔ·ÅÖÃ
DLL³õʼ»¯´úÂë
¡£Èç¹ûÏëÒª×öÉÆ ......
Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
´ò¿ªDelphi±à¼Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû· ......
±ÈÈç²Ù×÷
CSDNµÄµÇ¼
ÏÈÓÃWebBrowser¶¨Î»µ½µÇ¼ҳÃæ
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
È»ºó£¬¿´ÆäHTMLÔ´´úÂ룬·¢ÏÖ
Ãû×ÖΪ ctl00$CPH_Content$tb_LoginNameOrLoginEmailµÄÔªËؾÍÊÇ ÆäÓû§ÃûµÄÊäÈë¿òÁË¡£
´Ëʱ
ʹÓÃ
(WebBrowser1.Documen ......
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³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØбàÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓÐ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......