View Full Version : سوال: جلوگیری از ظاهر شدن پنجره File Conversion هنگام باز کردن فایل Word
Hassan2500
جمعه 07 مهر 1391, 11:45 صبح
سلام
این سورس زیر کارش اینه که نوشته های Text رو در یک فایل Word با فرمت doc ذخیره میکنه اما وقتی فایل ذخیره شده Word رو باز میکنم پنجره زیر به نمایش درمیاد اگه میشه مشکل این سورس رو برام درستش کنید که دیگه این پنجره نمایش داده نشه و مستقیما نوشته های Word به نمایش دربیاند
93355
93356
vbhamed
جمعه 07 مهر 1391, 12:06 عصر
سلام
لطفا همون تاپيك قبلي رو دنبال كنيد
Hassan2500
دوشنبه 10 مهر 1391, 19:02 عصر
سلام
لطفا همون تاپيك قبلي رو دنبال كنيد
جناب vbhamed کدتون چند تا ایراد داره اگه میشه برطرفشون کنید ممنون میشم
1- مدت چند ثانیه طول میکشه که فایل Word ظاهر بشه در صورتی که سورسی که خودم در پست1 همین تایپیک گذاشتم سریع ظاهر میکنه
2- وقتی فایل ذخیره میشه برنامه Word تو startup ویندوز ظاهر میشه و نمیشه از حالت اجرا بیرونش آورد
3- فایل ذخیره شده رو نمیشه حذف کرد
و چند تا مشکل دیگه هم داره مثلاً میخوایم فرمت txt یا rtf رو هم اضافه کنیم که با این فرمتها چیزی رو ذخیره نمیکنه و اگر هم ذخیره میکنه نوشته ها نمایش داده نمیشن
Hassan2500
سه شنبه 11 مهر 1391, 12:30 عصر
از دوستان کسی میتونه مشکل سورس پست1 رو برام درست کنه که دیگه پنجره File Conversion ظاهر نشه در ضمن فرمتهای txt و rtf رو هم برام به سورس اضافه کنه
محسن واژدی
چهارشنبه 12 مهر 1391, 21:23 عصر
سلام علیکم
تنها روش استفاده از توابع MsWord هست که جناب vbhamed قبلا معرفی نمودند
vbhamed
پنج شنبه 13 مهر 1391, 08:39 صبح
سلام
چند ثانيه تاخير به دليل باز شدن برنامه Word در حافظه و بعدش ذخيره متن و بستن برنامه هست
اگر فرآيند كار درست انجام بشه و وسط كار متوقف نكنيد، Word در حافظه نميمونه، بايد كمي صبر كنيد تا كار تكميل بشه
به دليل بالا نميتونيد فايل رو حذف كنيد چون Word تو حافظه مونده
براي ذخيره با فرمت Text يا Rtf اگر از خود وي بي استفاده كنيد و از كنترل Microsoft Rich Text سريعتر و بهتره
محسن واژدی
پنج شنبه 13 مهر 1391, 13:49 عصر
سلام
کد زیر که با کمک برنامه Word خروجی را در فرمت doc ذخیره میکند:
Public Sub SaveTextAsoWordDoc(sText$, sSavePath$)
On Error Resume Next
Dim oWordApp, oWordDoc
Set oWordApp = CreateObject("Word.Application")
Set oWordDoc = CreateObject("Word.Document")
Set oWordDoc = oWordApp.Documents.Add(, , wdNewBlankDocument)
oWordApp.Selection.TypeText sText$
oWordDoc.SaveAs sSavePath$
oWordDoc.Close False
oWordApp.Quit False
Set oWordDoc = Nothing
Set oWordApp = Nothing
End Sub
برای مثال:
Private Sub Command1_Click()
SaveTextAsWordDoc "Sample text", "d:\1.doc"
End Sub
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.