یوسف کوچولو
جمعه 13 شهریور 1388, 13:08 عصر
سلام به تمامی عزیزان و اساتید :
من یک سوال دارم وقتی کد زیر رو به برنامه ام اضافه میکنم هر تعداد بار که
command buttom
مورد نظر رو کلیک میکنم برنامه ی
word
باز میشه حالا میخواستم بدونم
خواستم بدونم چطور کدی باید به برنامه ام اضافه کنم که وقتی رو کلید مورد نظر کلیک میکنم خودش تشخیص بده که اگه برنامه ورد بازه دیگه بازش نکنه و اگر ورد بسته است یک ورد جدید باز کنه
Private Sub openword_Click()
Dim u_Word As Word.Application
Dim u_Doc As Word.Document
Set u_Word = CreateObject("Word.Application")
U_Word.Visible = True
Set oDoc = u_Word.Documents.Add
End sub
البته در
Project>reference> Microsoft word 12.0 object library
رو تیک زدم
راستی نا گفته نماند این کد رو از برنامه های شما عزیزان یاد گرفتم که متاسفانه اسم این عزیز خاطرم نیست ولی از ایشان تشکر میکنم.
با تشکر
یوسف
من یک سوال دارم وقتی کد زیر رو به برنامه ام اضافه میکنم هر تعداد بار که
command buttom
مورد نظر رو کلیک میکنم برنامه ی
word
باز میشه حالا میخواستم بدونم
خواستم بدونم چطور کدی باید به برنامه ام اضافه کنم که وقتی رو کلید مورد نظر کلیک میکنم خودش تشخیص بده که اگه برنامه ورد بازه دیگه بازش نکنه و اگر ورد بسته است یک ورد جدید باز کنه
Private Sub openword_Click()
Dim u_Word As Word.Application
Dim u_Doc As Word.Document
Set u_Word = CreateObject("Word.Application")
U_Word.Visible = True
Set oDoc = u_Word.Documents.Add
End sub
البته در
Project>reference> Microsoft word 12.0 object library
رو تیک زدم
راستی نا گفته نماند این کد رو از برنامه های شما عزیزان یاد گرفتم که متاسفانه اسم این عزیز خاطرم نیست ولی از ایشان تشکر میکنم.
با تشکر
یوسف