نحوه بازکردن و Merge کردن چند فایل Word در یک فایل

[بهمنی]

از دوستان و اساتید
اگر کسی اطلاع از نحوه باز کردن و Merge کردن چند فایل Word در یک فایل را می‌داند، اطلاع دهد متشکرم.

[Danial_Yousefi]

2 تا rich textbox بذاز به این صورت هر کدوم رو باز کن بهد مقدار text یا textrtf هرکدوم رو تو ه rich textbox2 دیگه بریز بعد اونو save کن

For i = 1 To File1.ListCount
DoEvents
Rtext1.LoadFile File1.Path + "\" + File1.List(i)
Rtext2.Text = Rtext2.Text + Rtext1.Text
Next i
Rtext2.SaveFile File1.Path + "\full.rtf"

[Danial_Yousefi]

فقط بدیش اینه که یه کم طول میکشه و حجم فایل خروجیش زیاده که میتونی با word بازش کنی و با پسوند DOC. ذخیرش کنی

[بهمنی]

تشکر
اما سئوال اصلی من در مورد باز کردن فایل Word و مشاهده و Save توسطCommondialog است.

[Danial_Yousefi]

مسئله ای نیست با این کد ها حل میشه و فقط اشکالش اینه که فرمت خروجی RTF. هستش


Private Sub cmdOpen_Click()
CommonDialog1.Filter = "MS Word File|*.doc|Rich Text File|*.rtf|All Files|*.*"
CommonDialog1.ShowOpen
Rtext1.LoadFile CommonDialog1.FileName
End Sub

Private Sub cmdSave_Click()
CommonDialog1.Filter = "Rich Text File|*.rtf|All Files|*.*"
CommonDialog1.ShowSave
Rtext1.SaveFile CommonDialog1.FileName
End Sub

[mehdi_7070]

سلام
من هم نياز به اين سورس دارم كه درخواست شده .
البته فقط Merge شدن چند فايل Word (نه Rtf)
با تشكر