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¡¢¿ØÖÆPOS»úµÄ¿Í»§ÏÔʾÆÁ
procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);
//Moneey_Port ¹ËÏÔ½Ó¿ÚCom1 or Com2 Money_String ¹ËÏÔÏÔʾµÄÄÚÈÝ
var
PrnFile ......
1£¬¹æ·¶¼ò½é
¡¡¡¡±¾¹æ·¶Ö÷Òª¹æ¶¨DelphiÔ´³ÌÐòÔÚÊéд¹ý³ÌÖÐËùÓ¦×ñѵĹæÔò¼°×¢ÒâÊÂÏî¡£±àд¸Ã¹æ·¶µÄÄ¿µÄÊÇʹ¹«Ë¾Èí¼þ¿ª·¢ÈËÔ±µÄÔ´´úÂëÊéдϰ¹ß±£³ÖÒ»Ö¡£ÕâÑù×ö¿ÉÒÔʹÿһ¸ö×éÔ±¶¼¿ÉÒÔÀí½âÆäËü×éÔ±µÄ´úÂ룬ÒÔ±ãÓÚÔ´´úÂëµÄ¶þ´Î¿ª·¢¼ÇÒäϵͳµÄά»¤¡£
2£¬Ò»°ã¸ñʽ¹æ·¶
2.1 Ëõ½ø
¡¡¡¡Ëõ½ø¾ÍÊÇÔÚµ±Ô´³ÌÐòµÄ¼¶¸Ä±äʱΪÔö¼Ó¿É¶Á ......
<1>ÀûÓÃUnitµÄ
InitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
Program
Óë
Library²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin
..end.ÖмäÊÇ¿ÉÒÔд´úÂë
µÄ£¬
ÕâÀï¿ÉÒÔ·ÅÖÃ
DLL³õʼ»¯´úÂë
¡£Èç¹ûÏëÒª×öÉÆ ......
±ÈÈç²Ù×÷
CSDNµÄµÇ¼
ÏÈÓÃWebBrowser¶¨Î»µ½µÇÂ¼Ò³Ãæ
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
È»ºó£¬¿´ÆäHTMLÔ´´úÂ룬·¢ÏÖ
Ãû×ÖΪ ctl00$CPH_Content$tb_LoginNameOrLoginEmailµÄÔªËØ¾ÍÊÇ ÆäÓû§ÃûµÄÊäÈë¿òÁË¡£
´Ëʱ
ʹÓÃ
(WebBrowser1.Documen ......
ǰÑÔ
¡¡¡¡ÎÒдDelphi³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØÐ±àÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓÐ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......