سوال: جستجو در یک فایل متنی Word [بایگانی]

tk1993

سه شنبه 31 اردیبهشت 1392, 11:27 صبح

با سلام خدمت اساتید وبسایت برنامه نویس
دوستان من یک فایل متنی ورد دارم و می خوام عبارتی را که کاربر در تکست باکس تایپ می کند را درون آن فایل ورد جستجو کند و نمایش دهد. در اینجا دو سال مطرحه:
نخست اینکه آیا اینکار شدنیه ؟ و اگر بله چطور ؟
سپس اگر شدنی نیست، پیشنهاد شما برای چنین کاری چیست ؟ چکار کنم ؟
با سپاس

vbhamed

چهارشنبه 01 خرداد 1392, 03:51 صبح

سلام
بله شدني هست، بايد از OLE براي اينكار استفاده كنيد
با كمك OLE مي‌تونيد كنترل كامل نرم افزارهاي بسته Office رو در دست بگيريد

از منوي Project گزينه References آيتم Microsoft word XX Object Library رو تيك بزنيد و دستورات نمونه زير رو بنويسيد (XX يك عدد بسته به ورژن آفيس شماست)
Dim w As New Word.Application

w.Documents.Open "C:\test.doc"
w.Visible = True
w.Selection.Find.Execute text1

البته بعد از اينكه برنامتون نوشته شد براي اينكه تو سيستمهاي ديگه با ورژن آفيس مشكل نداشته باشه تيك اون گزينه رو برداريد و به صورت زير بنويسيد، دليل اينكه اول به شكل بالا مي‌نويسيم اينه كه در حالت اول هنگام نوشتن كد با زدن نقطه بعد از شيء w نام متدها و خواس اون شيء در ليست بياد و بدونيم مي‌خوايم چيكار كنيم اما در اين حالت نمياد ولي ديگه مشكلي با ورژن آفيس نداره
Dim w As Object
Set w = CreateObject("Word.application")

w.Documents.Open "C:\test.doc"
w.Visible = True
w.Selection.Find.Execute text1