ªð¦^¦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 : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD