ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ªí³æ_³sµ²word

[µo°Ý] ªí³æ_³sµ²word

¥»©«³Ì«á¥Ñ solely ©ó 2011-6-5 22:16 ½s¿è


½Ð°ÝÃö³¬wordµøµ¡®É¡A¯à§_¤£¥X²{¤W¹Ï¤§¹ï¸Ü¤è¶ô(­×§ïªº¸ê®Æ¤£¦sÀÉ)

¦pªG§ä¤£¨ì¬Û¹ïÀ³ªºwordÀɮɡA½Ð°Ý­n¦p¦óÁקK¸õ²§±`?
[attach]2943[/attach]

½Ð°ÝÃö³¬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..­×§ï¬°:
  1. Private Sub Frame1_Click()

  2. Set fs = CreateObject("Scripting.FileSystemObject")

  3. If Not Cmbx_no.Text = "" And fs.FileExists("D:\test\¹Ï¤ù\" & Cmbx_no.Text & ".doc") Then
  4.     Dim wd As Object, myRange As Object
  5.     Set wd = CreateObject("word.application")
  6.     With wd
  7.         .Visible = True
  8.         .documents.Open ("D:\test\¹Ï¤ù\" & Cmbx_no.Text & ".doc")
  9.     End With
  10. End If
  11.    
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# jackdream
ÁÂÁÂjackdream
­ì½X¥[¤Wwd.Close False¦ü¥G¤]¯à¨¾¤î¸õ²§±`~
·QÃö³¬¸ß°Ý¹ï¸Ü¤è¶ô¡A¬O¬°¤F¨¾¤î...²ßºD©Êªº°Ê§@_Àx¦s­×§ï
´¿¸Õ¹LApplication.DisplayAlerts = False¦ü¥GµL®Ä
¦pªG§ä¤£¨ì¤èªk.§Ú¥i¯à·|©ñ±ó³sµ²XD
(§Ú©È¤£¤p¤ß§ï¨ì§O¤Hªº¸ê®Æ...·|³Q°l±þ-.-"")

TOP

¦^´_  jackdream
(§Ú©È¤£¤p¤ß§ï¨ì§O¤Hªº¸ê®Æ...·|³Q°l±þ-.-"")
solely µoªí©ó 2010-10-2 12:31


¦pªG¬O©È­×§ï¨ì word Àɮפº®e,¬°¦ó¤£¦Ò¼{¥H°ßŪ¤è¦¡¶}±ÒwordÀɮשO?

±N .documents.Open ("D:\test\¹Ï¤ù\" & Cmbx_no.Text & ".doc")
­×§ï¬° .documents.Open ("D:\test\¹Ï¤ù\" & Cmbx_no.Text & ".doc"), ReadOnly:=True

TOP

¦^´_ 4# jackdream

¥Î°ßŪªº¤è¦¡¶}±Ò¡A³o©Û®¼¤£¿ùªº¡AÁÂÁ¤F~

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD