- ©«¤l
- 133
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 147
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-9-9
|
½Ð°ÝÃö³¬wordµøµ¡®É¡A¯à§_¤£¥X²{¤W¹Ï¤§¹ï¸Ü¤è¶ô(ק諸¸ê®Æ¤£¦sÀÉ)
¦pªG§ä¤£¨ì¬Û¹ïÀ³ªºwordÀɮɡA½Ð°Ýn¦p¦óÁקK¸õ²§±`?
solely µoªí©ó 2010-10-1 00:27
¶}±ÒÀɮ׫á,Y¦³×§ï¨ì¤º®e,¤â°ÊÃö³¬®É¥X²{¹ï¸Ü¤è¶ô¬O¥¿±`ªº,¤£µM´N§ä§ä¬Ý¥i§_קïÀô¹Ò³]©w¿ï¶µ.
>>¦pªG§ä¤£¨ì¬Û¹ïÀ³ªºwordÀɮɡA½Ð°Ýn¦p¦óÁקK¸õ²§±`?
¼W¥[§PÂ_Àɮ׬O§_¦s¦b..קאּ:- Private Sub Frame1_Click()
- Set fs = CreateObject("Scripting.FileSystemObject")
- If Not Cmbx_no.Text = "" And fs.FileExists("D:\test\¹Ï¤ù\" & Cmbx_no.Text & ".doc") Then
- Dim wd As Object, myRange As Object
- Set wd = CreateObject("word.application")
- With wd
- .Visible = True
- .documents.Open ("D:\test\¹Ï¤ù\" & Cmbx_no.Text & ".doc")
- End With
- End If
-
- End Sub
½Æ»s¥N½X |
|