exports to word

[radiotehran]

من می خواهم از فیلدهای موجود در vb application در نرم افزار word خروجی بگیرم .کد آن را از اینترنت پیدا کرده ام منتها زیر خط word.application خط آبی کشیده می شود می دانم که باید یک فایل dll به refrence آن اضافه کنم ولی این dll اسمش چیست و از کجا بایدبه آن add کنم را نمی دانم . ممکنه در این زمینه کمک و راهنمایی ام بفرمایید.



اگر کسی پاسخ آن را بلد است ممکنه لطف کنه و به آدرس sanaz.bagheri@ymail.com ایمیل کند.

ممنون از لطف بی کرانتون


Private Sub Command1_Click()
Dim wdoc As Word.Application
Dim objWord As Word.Application
Clipboard.Clear
Clipboard.SetText Text1.Text

Set objWord = New Word.Application

With objWord
.Documents.Add
.Selection.Paste

.Visible = True

End With

End Sub

[m_zamani]

بايد Namespace مربوط به office رو import كني تو پرو‍‍ژه

[radiotehran]

ببخشید ممکنه دقیقا بنویسید که چه name space را باید import کنم ؟ به عبارتی چه کدی را باید بنوسیم .
ممنون

[parsehvb]

اینها رو امتحان کن



Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

[radiotehran]

اینها رو امتحان کن



Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word


ممنون از پاسخ شما ، منتها برای این که این خط ها error ندهد لازم است که dll را به refrence ها اضافه کنم . ولی نمی دانم این dll را از کجا و با چه نامی باید اضافه کنم.
ممکنه پاسخم را بدهید . ممنون

[Afshin160]

برو به اين لينك:

http://barnamenevis.org/forum/showthread.php?p=635631#post635631

http://barnamenevis.org/forum/showthread.php?t=109189&highlight=exel&page=4

[viper2009]

من می خواهم از فیلدهای موجود در vb application در نرم افزار word خروجی بگیرم .کد آن را از اینترنت پیدا کرده ام منتها زیر خط word.application خط آبی کشیده می شود می دانم که باید یک فایل dll به refrence آن اضافه کنم ولی این dll اسمش چیست و از کجا بایدبه آن add کنم را نمی دانم . ممکنه در این زمینه کمک و راهنمایی ام بفرمایید.



اگر کسی پاسخ آن را بلد است ممکنه لطف کنه و به آدرس sanaz.bagheri@ymail.com ایمیل کند.


ممنون از لطف بی کرانتون



Private Sub Command1_Click()
Dim wdoc As Word.Application
Dim objWord As Word.Application
Clipboard.Clear
Clipboard.SetText Text1.Text


Set objWord = New Word.Application


With objWord
.Documents.Add
.Selection.Paste


.Visible = True


End With


End Sub


از منوی پراجکت گزینه Add Refrence

Imports Microsoft.Office.Interop.Word

Dim Word_Application As Word.Application
Dim Word_Document As Word.Document
Dim Word_Paragraph As Word.Paragraph
Word_Application= CreateObject("Word.Application")
Word_Application.Visible = True
Word_Document = Word.Documents.Add
Word_Paragraph = Word_Document.Content.Paragraphs.Add
Word_Paragraph.Range.Text = " "
Word_Paragraph.Range.Font.NameBi = "B Titr"
Word_Paragraph.Range.Font.SizeBi = 20
Word_Paragraph.Range.Font.Bold = True
Word_Paragraph.Format.SpaceAfter = 2
Word_Paragraph.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
Word_Paragraph.Range.InsertParagraphAfter()