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!
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......
¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll
³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
ÔÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨
´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß·
......