مشاهده نسخه کامل
: smd7m
22-03-2006, 16:23
با سلام و خسته نباشید خدمت اساتيد محترم
من در وی بی به یک مشکل برخورده ام ... عزیزان لطف کنند ببینند چه کار باید انجام دهم
کد زیر را بر روی یک فرم قرار داده ام:
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 تغییر یافت) و در غیر اینصورت پیام (تغییری نیافت) ظاهر گردد.
من در وی بی به یک مشکل برخورده ام ... عزیزان لطف کنند ببینند چه کار باید انجام دهم
کد زیر را بر روی یک فرم قرار داده ام:
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 تغییر یافت) و در غیر اینصورت پیام (تغییری نیافت) ظاهر گردد.