نحوه استفاده از OLE Object با استفاده از کامند باتون

[hf.farhadi]

با سلام خدمت تمامی دوستان و اساتید گرامی
من در یکی از فیلدهام یه OLE Object استفاده میکنم و یه فایل word رو برای استفاده در برنامم فراخوانی میکنم

برای این منظور من روی Bound Frame که در فرمم قرار دادم کلید راست کرده و با استفاده از گزینه insert Object به منظورم میرسم

حالا میخوام با کلیک کردن بر روی یه کلید باتون (تو نمونه ضمیمه مشخصه )این کار رو انجام بدم

ممنون میشم راهنمایی کنین

[mazoolagh]

فرض کنین اسم ole bound object شما OBO باشه:

ME.OBO.CLASS="WORD.DOCUMENT"
ME.OBO.SOURCEDOC="C:\A.DOCX"
ME.OBO.ACTION=ACOLECREATELINK

[Abbas Amiri]

پیرو راهنمایی دوست خوبمان mazoolagh (http://barnamenevis.org/member.php?9893-mazoolagh)
رفرنس Microsoft Office xx.0 Object Library را اضافه کنید. فرض کردم نام OLEObject شما ole است.


Private Sub Command4_Click()
Dim strSource As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
.Title = " Word انتخاب فایل"
.Filters.Add "Word Documents", "*.doc; *.docx", 1
.AllowMultiSelect = False
If .Show = -1 Then
strSource = .SelectedItems(1)
Else
Exit Sub
End If
End With
With Me.ole
.Class = "Word.Document"
.OLETypeAllowed = acOLELinked
.SourceDoc = strSource
.Action = acOLECreateLink

End With

End Sub

[hf.farhadi]

با سلام خدمت دوستان عزیز و تشکر بابت توجهتون


رفرنس Microsoft Office xx.0 Object Library را اضافه کنید.دوست عزیز آقای امیری من منظورتون متوجه نشدم آیا باید تنظیمات خاصی رو توی ویندوز یا word انجام بدم
در ضمن من کدتون رو استفاده کردم و با اشکال زیر مواجه شدم. ممنون میشم راهنمایی کنید .

[Abbas Amiri]

در محیط VBE در منوی Tools » References همانطوری که قبلا اشاره شد فرنس Microsoft Office xx.0 Object Library را اضافه کنید