ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD