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

[VBA] ¦p¦ó±oª¾¬Y¤@paragraphsªº½s¸¹

[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

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD