جلوگیری از ظاهر شدن پنجره File Conversion هنگام باز کردن فایل Word

[Hassan2500]

سلام

این سورس زیر کارش اینه که نوشته های Text رو در یک فایل Word با فرمت doc ذخیره میکنه اما وقتی فایل ذخیره شده Word رو باز میکنم پنجره زیر به نمایش درمیاد اگه میشه مشکل این سورس رو برام درستش کنید که دیگه این پنجره نمایش داده نشه و مستقیما نوشته های Word به نمایش دربیاند

93355

93356

[vbhamed]

سلام
لطفا همون تاپيك قبلي رو دنبال كنيد

[Hassan2500]

سلام
لطفا همون تاپيك قبلي رو دنبال كنيد

جناب vbhamed کدتون چند تا ایراد داره اگه میشه برطرفشون کنید ممنون میشم

1- مدت چند ثانیه طول میکشه که فایل Word ظاهر بشه در صورتی که سورسی که خودم در پست1 همین تایپیک گذاشتم سریع ظاهر میکنه
2- وقتی فایل ذخیره میشه برنامه Word تو startup ویندوز ظاهر میشه و نمیشه از حالت اجرا بیرونش آورد
3- فایل ذخیره شده رو نمیشه حذف کرد
و چند تا مشکل دیگه هم داره مثلاً میخوایم فرمت txt یا rtf رو هم اضافه کنیم که با این فرمتها چیزی رو ذخیره نمیکنه و اگر هم ذخیره میکنه نوشته ها نمایش داده نمیشن

[Hassan2500]

از دوستان کسی میتونه مشکل سورس پست1 رو برام درست کنه که دیگه پنجره File Conversion ظاهر نشه در ضمن فرمتهای txt و rtf رو هم برام به سورس اضافه کنه

[محسن واژدی]

سلام علیکم
تنها روش استفاده از توابع MsWord هست که جناب vbhamed قبلا معرفی نمودند

[vbhamed]

سلام

چند ثانيه تاخير به دليل باز شدن برنامه Word در حافظه و بعدش ذخيره متن و بستن برنامه هست
اگر فرآيند كار درست انجام بشه و وسط كار متوقف نكنيد، Word در حافظه نمي‌مونه، بايد كمي صبر كنيد تا كار تكميل بشه
به دليل بالا نمي‌تونيد فايل رو حذف كنيد چون Word تو حافظه مونده
براي ذخيره با فرمت Text يا Rtf اگر از خود وي بي استفاده كنيد و از كنترل Microsoft Rich Text سريعتر و بهتره

[محسن واژدی]

سلام
کد زیر که با کمک برنامه 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

موفق باشید