انتقال اطلاعات یک فرم ویندوزی به word

[hastiam]

سلام
من یک فرم ویندوزی دارم که شامل چند lable و چند TextBox است من می خوام متن داخل TextBox و Lable به فایل word منتقل بشه (البته در جای مشخص و تعیین شده از فایل word قرار گیرند.) این کار چطوری انجام می شه لطفا کمکم کنید.:گریه:

[klinton]

منم دنبالش هستم

[reza_edu]

سلام اینکه کاری نداره درمورد فایل جستجو کن راحت میتونی این کارو انجام بدی :متفکر: حالا چرا ورد میخوای کاربر بتونه ببینه ! اگه نمیخوای از فایل پایل بصورت باینری استفاده کن برای قالبت هم از استراکچر استفاده کنی بهتره اگه میخوای امنیت داشته باشه ترتیبی کن و قبلش انکد کن اینجوری که بهتره؟

[AlgorithmX]

سلام دوستان عزیز!


ابتدا از منو Project\Add Reference\Com بر روی گزینه Microsoft Word 12.0 Object Library دو بار کلیک کنید.
توجه 1: اگر نرم افزار آفیس/ورد نصب نباشه این گزینه هم وجود ندارد.
توجه 2: اگر نسخه ورد شما 2003 باشد گزینه Microsoft Word 11.0 Object Library وجود دارد ، اما اگر 2007 باشد گزینه Microsoft Word 12.0 Object Library و همینطور نسخه های متعدد در این قسمت موجود است.

حال دستورات زیر رو بنویسید:




Imports Microsoft.Office.Interop
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mWord As Word.Application
mWord = New Word.Application
Call mWord.Documents.Add()
'--------------------------------------------------->
mWord.Selection.PageSetup.LeftMargin = 25
mWord.Selection.PageSetup.RightMargin = 25
mWord.Selection.PageSetup.BottomMargin = 20
mWord.Selection.PageSetup.TopMargin = 20
mWord.Selection.Font.SizeBi = 15
mWord.Selection.Font.Size = 13
mWord.Selection.Font.Bold = True
mWord.Selection.Font.Name = "arial"
mWord.Selection.Font.NameBi = "tahoma"
mWord.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
'--------------------------------------------------->
Call mWord.Selection.TypeText(TextBox1.Text + vbNewLine)
Call mWord.Selection.TypeText("Copyright 2011 Cult OF Soft")
'--------------------------------------------------->
Call mWord.Documents(1).SaveAs("d:\word.doc")
Call mWord.Quit()
MsgBox("Export don!", MsgBoxStyle.Information, "Don")
EndSub
EndClass

[AlgorithmX]

سلام
من یک فرم ویندوزی دارم که شامل چند lable و چند TextBox است من می خوام متن داخل TextBox و Lable به فایل word منتقل بشه (البته در جای مشخص و تعیین شده از فایل word قرار گیرند.) این کار چطوری انجام می شه لطفا کمکم کنید.:گریه:

در تایپیک بالا چند تغیر لازم به وجود آوردم (توجه ها) آیا مشکلتون حل شد؟؟

[hastiam]

ممنون از راهنماییتون این کار رو انجام دادم و جواب هم گرفتم اما وقتی از RichBox استفاده می کنم که توش چند تا Lable گذاشتم و می خوام متن این Lableها رو تو Word نشون بده این کار رو انجام نمیده یعنی word خالیه و هیچ متنی توش نوشته نشده.

[AlgorithmX]

می تونی بگی چی واسه این کار نوشتی؟

برای این که مطلب داخل لیبل ها نمایش بده باید این رو بنویسی:

Call mWord.Selection.TypeText(Label1.Text)

[hastiam]

من حداقل 10 lable دارم چطور همزمان بگم این 10 Lable رو تو Word نمایش بده من برای اینکه یکی یکی کنترل هارو نگیرم همشون رو توی یک RichBox گذاشتم و گفتم

Call mWord.Selection.TypeText(RichBox.Text)

که هیچ چیزی رو توی Wordنشون نمیده.
ممنون میشم اگه راهنماییم کنید خیلی کارم گیره:افسرده:

[AlgorithmX]

دوست عزیز بایستی حتما لیبل هارو یکی یکی وارد کنی!
(برنامه نویسی = پینه نوک انگشت + تفکر باز - نا امیدی): بیل گیتس

[sara124]

سلام دوستان عزیز!


ابتدا از منو Project\Add Reference\Com بر روی گزینه Microsoft Word 12.0 Object Library دو بار کلیک کنید.
توجه 1: اگر نرم افزار آفیس/ورد نصب نباشه این گزینه هم وجود ندارد.
توجه 2: اگر نسخه ورد شما 2003 باشد گزینه Microsoft Word 11.0 Object Library وجود دارد ، اما اگر 2007 باشد گزینه Microsoft Word 12.0 Object Library و همینطور نسخه های متعدد در این قسمت موجود است.

حال دستورات زیر رو بنویسید:




Imports Microsoft.Office.Interop
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mWord As Word.Application
mWord = New Word.Application
Call mWord.Documents.Add()
'--------------------------------------------------->
mWord.Selection.PageSetup.LeftMargin = 25
mWord.Selection.PageSetup.RightMargin = 25
mWord.Selection.PageSetup.BottomMargin = 20
mWord.Selection.PageSetup.TopMargin = 20
mWord.Selection.Font.SizeBi = 15
mWord.Selection.Font.Size = 13
mWord.Selection.Font.Bold = True
mWord.Selection.Font.Name = "arial"
mWord.Selection.Font.NameBi = "tahoma"
mWord.Selection.Paragraphs.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
'--------------------------------------------------->
Call mWord.Selection.TypeText(TextBox1.Text + vbNewLine)
Call mWord.Selection.TypeText("Copyright 2011 Cult OF Soft")
'--------------------------------------------------->
Call mWord.Documents(1).SaveAs("d:\word.doc")
Call mWord.Quit()
MsgBox("Export don!", MsgBoxStyle.Information, "Don")
EndSub
EndClass





سلام

میشه بیشتر توضیح بدین ؟؟ این کد رو باید کجا ،تو چه قسمتی بنویسم ؟؟
خواهش می کنم زود جواب بدین خیلی بهش احتیاج دارم:گریه: