[VBA] ¦p¦ó±oª¾¬Y¤@paragraphsªº½s¸¹
- ©«¤l
- 41
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-3-11
- ³Ì«áµn¿ý
- 2020-10-7
|
[VBA] ¦p¦ó±oª¾¬Y¤@paragraphsªº½s¸¹
¨Ò¦p ¤å³¹¸Ì¦³ ¤@¬q¬O company scope :
µM«á¡A§Ú§ä¨ì³o¤@ÓÃöÁä¦r "company scope", n§â ¬Y¤@¬q¤å¦r¡A¥[¨ì comapny scope ªº¤U¤@¬q¥h¡A¨º§Ún¦p¦ó§ä¨ì company scope ³o¤@¬qªº½s¸¹¡H¡H
dim objWord As Object
Dim objDoc As Object
Dim objParagraph As Object
Dim myrange
Dim target
Dim y
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("D:\Temp\GS0304.doc")
objWord.Visible = True
Set myrange = objWord.ActiveDocument.Content
myrange.Find.Execute findtext:="company scope", Forward:=True ''---> my range ¬O§Ú§ä¨ìªº¦a¤è¡A¦ý¤£ª¾¨º¤@¬qªº½s¸¹¬O¦h¤Ö¡H |
|
|
|
|
|
|