OLE – Microsoft Word Document (مقایسه در وی بی)

[smderfan]

با سلام و خسته نباشید خدمت اساتید محترم
من در وی بی به یک مشکل برخورده ام ... عزیزان لطف کنند ببینند چه کار باید انجام دهم
کد زیر را بر روی یک فرم قرار داده ام:

Private Sub Command1_Click()
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.WindowState = wdWindowStateMaximize
objWord.Documents.Add
objWord.Selection.TypeText "This is some text"
End Sub
پس از کلیک بر روی Command1 محیط سند word باز شده و متن "This is some text" به سند اضافه می گردد و در اینجا می توان هر تغییری بر روی متن داد ... در اینجا فقط منظورم تغییر فونت هست.
حالا می خوام وقتی بر روی Command2 در فرم کلیک کردم یک مقایسه صورت بگیره به این صورت که متن
"This is some text" که به سند word اضافه شده است اگر فونت آن به Arial تغییر کرده بود یک Message مبنی بر اینکه (متن انتخاب شده به Arial تغییر یافت) و در غیر اینصورت پیام (تغییری نیافت) ظاهر گردد.


If objWord.Selection.Font.Name = "Arial" Then
MsgBox "oooooooooooooooooooooooooooooook"
Else
MsgBox "Nooooooooooooooooooooooooooooooo"
End If

[smderfan]

کسی نیست جواب ما رو بده ...

[smderfan]

کسی نیست جواب ما رو بده ...

[aslan]

سلام

از منو project\preferences گزینه Microsoft word 9.0 object library را تیک بزن

بعد در general declaration اینو اضافه کن :
Dim objword As Word.Application

[smderfan]

aslan عزیز منظورت از اضافه کردن در روی باتام دوم هست
Dim objword As Word.Application
رو که اضافه کنم می تونم مقایسه رو انجام بدم ....

[smderfan]

یعنی یه مخ پیدا نمی شه سوال ما رو جواب بده

[aslan]

گفتم که : تو GENERAL DECLARATION
نه تو Command1) command_click)
نه تو (form_load( form
و.....
تو GENERAL

[smderfan]

aslan عزیز متن مورد نظر را قرار دادم ولی مشکلم حل نشد ... می شه یه کم بیشتر توضیح بدی ... ممنون