- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
[µo°Ý] WORDÀÉ¸ê®Æ¦ì²¾µLªk¤À¶}Ū¨ú
¦U¦ì¤j¤j¦n¡G
¤p§Ì·Q§Q¥Î¤U¦C»yªk¨ú¥X«ü©wWORDÀÉ
¨äÀɮ׮榡¬°RTF¡C¦ýµo²{¸ÓÀÉ®×¸ê®Æ¨ú
¥X¤§«á¨ä¦ì¸m¤w¦ì²¾¡A¦]¦¹µLªk¹³TXTÀÉ
¥ipºâ²Ä´X¦ì¤¸¼Æ¡C
¤p§Ì¶}±ÒWORD¤]µo²{¥¦¦³¨Ï¥Î¨ì©w¦ìÂI
¡A±q¨ä¼ÐÃD¦³¤Ó³¡¤À¤]¤À§O¨Ï¥Î©w¦ìÂI¡C
¦ý¥unŪ¨ú¸Ó¸ê®Æ®É¡A¤S·|¥X²{¾ã¦C¸ê®Æ
¨Ö¦b¤@°_¡CµLªk¹³¥¦¨Ï¥Îªº©w¦ìÂI¥i¤À¶}Ū¨ú¡C
½Ð°Ý¦p¦ó¥iºâ¥X¦ì¤¸¼Æ¨Ã¨ú¥X¸ÓÀÉ®×
¸ê®ÆÂà¤J¦ÜEXCELªí¤º©O¡H
»yªk¦p¤U¡G
Sub test()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim tString As String, tRange As Word.Range
Dim p As Long
Dim mFile$
Application.ScreenUpdating = False
mFile = "D:\temp\r75test.rtf"
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(mFile, ReadOnly:=True)
With wrdDoc
For p = 1 To .Paragraphs.Count
Set tRange = .Range(Start:=.Paragraphs(p).Range.Start, _
End:=.Paragraphs(p).Range.End)
tString = tRange.Text
Debug.Print tString 'Ū¨ú¤§«á¨ä©w¦ìÂIªº¦ì¸m¤v¤£¦s¦b¤F
Next p
.Close ' close the document
End With
wrdApp.Quit ' close the Word application
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
ÁÂÁ¦U¦ì¤j¤j
R75TEST.rar (3.69 KB)
|
|