smderfan
چهارشنبه 02 فروردین 1385, 16:53 عصر
با سلام و خسته نباشید خدمت اساتید محترم
من در وی بی به یک مشکل برخورده ام ... عزیزان لطف کنند ببینند چه کار باید انجام دهم
کد زیر را بر روی یک فرم قرار داده ام:
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
من در وی بی به یک مشکل برخورده ام ... عزیزان لطف کنند ببینند چه کار باید انجام دهم
کد زیر را بر روی یک فرم قرار داده ام:
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