VB¶ÁÈ¡WORD±íµ¥ÔªÄÚÎÊÌâ
·Ç³£¹îÒì°¡,ÈöÁËÅÝÄò»ØÀ´,֮ǰ»¹ÄܶÁÈ¡µÄ¾Í²»ÐÐ,ÄÄÀï´íÁË?
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
txtIn.Text = ""
With cdgImput
.DialogTitle = "µ¼³öÎļþ·¾¶"
.Filter = "µ¼³öÎļþ(*.doc)|*.doc|ËùÓÐÎļþ(*.*)|*.*"
.ShowOpen
txtIn.Text = .FileName
strFileName = .FileTitle
End With
Set WordApp = CreateObject("Word.Application")
Set WordDoc = Documents.Open(txtIn.Text)
WordApp.Visible = True
WordDoc.Activate
With Selection.Tables(1)'ÔËÐе½ÕâÀï´íÎó
MsgBox .Cell(2, 1).Range.Text
End With
¼¯ºÏËùÒªÇóµÄ³ÉÔ±²»´æÔÚ,¿ÉÊDZíÃ÷Ã÷¾ÍÔڵ쬏ղݹÄܶÁ,û¶Ô±í×öÈÎºÎÆäËû²Ù×÷
ÊÇ·ñÓÐÆäËû´ò¿ª»òʹÓã¿
Ò²¿ÉÄÜϵͳ²»ÎÈ£¬ÖØÆô¿ÉÄܾͺÃÁË
ÊDz»ÊÇword¿ª×Å?
ÖØÆô¹ý¶à´Î£¬ÆäËûWORDҲû¿ª×Å£¬ÊµÔÚÊǸ㲻¶®
ÎÒ²âÊÔÁË£¬ÄãûÓÐÔÚwordÎļþÖÐÑ¡ÖÐ±íµ¼Öµģ¬Ñ¡ÖоͲ»»áÌáʾ
ÎÊÌâ³öÔÚ£ºWith Selection.Tables(1)
Æäʵ£¬²Ù×÷WORDÎÞÐèÒýÓöÔÏó£¬Ö±½Ó²Î¿¼ÒÔÏ´úÂë¼´¿É£º
Dim wd As Object
Set wd = GetObject("d:\xx.doc")
ÔÙͨ¹ýwd.tables(1)²Ù×÷±í¡£
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......