VBµ÷ÓÃwordºó³öÏÖµÄÎÊÌâ
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£) È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË ½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ ÎÒµ÷ÓõÄword ÎҰѲ˵¥ ¹¤¾ßÀ¸È«¶¼Òþ²ØÁ˵± Ò»¸ö±à¼¿ò ²»ÖªµÀºÍÒþ²ØµÄ²Ëµ¥ ºÍ¹¤¾ßÓÐûÓйØϵÄØ Õâ¸öÒªÔõô½â¾ö
¿´Ñù×ÓÄ£°æ¸øÐÞ¸ÄÁË ÄãµÄ´úÂëÀïÓÐûÓÐÐÞ¸ÄÄ£°æ? Öظ´À². Äã¿ÉÒÔÔڹرÕÇ°ÏȽ« Normal.dot Áí´æΪÊÔÊÔ¡£ Normal.dotÊÇÒ»¸ö¿ÉÒÔɾ³ýµÄÎļþ,ɾ³ýºó»á×Ô¶¯Éú³É,²»±Øµ£ÐÄÒýÓà ¿´Ñù×ÓÄ£°æ¸øÐÞ¸ÄÁË ÄãµÄ´úÂëÀïÓÐûÓÐÐÞ¸ÄÄ£°æ? ÎÒµ÷ÓõÄword ÎҰѲ˵¥ ¹¤¾ßÀ¸È«¶¼Òþ²ØÁ˵± Ò»¸ö±à¼¿ò ÕâËã²»ËãÄ£°æÐ޸ĹýÄØ£¿ÒýÓà Äã¿ÉÒÔÔڹرÕÇ°ÏȽ« Normal.dot Áí´æΪÊÔÊÔ¡£ ÔõôÁí´æΪ ÏÈ´ò¿ª Normal.dot£¬ÔٸŤ¾ßÌõ£¬×îºó±£´æ¡£ »¹ÊDz»ÐÐ....·³ÄÕ Í¬Çéing ÒýÓà »¹ÊDz»ÐÐ....·³ÄÕ ÄÇôÄãÊÔÊÔ£º ÊÖ¹¤´ò¿ª Normal.dot£¬Òþ²ØµÄ²Ëµ¥ºÍ¹¤¾ßÀ¸£¬È»ºóÁí´æΪ¡£ ÓÃеÄÄ£°å¸ø³ÌÐòµ÷ÓᣠÓÖ£ºµ¥´¿±à¼¿ò¿ÉÒÔÓà Microsoft Rich Textbox Control 6.0 ÎÊÌâ½â¾ö ¾ÍÊÇÉÙ½áÊøÁËÒ»¸ö¶ÔÏóÒýÆðµÄ... ·Ç³£¸Ðл´ó»ïÁË LZÔõô½â¾öµÄ°¡£¬ÎÒÒ²Óöµ½Í¬ÑùµÄÎÊÌâÀ²£¬Çë´Í½Ì¡£
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......
ËÄÜ°ïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[],float g ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[] ......