استفاده از Word براي گزارشگيري در vb

[y.saied]

‌‌‌‌‌‌‌‌‌‌‌‌‌‌››››››››››››››››� �››››››››››››››››� ��›››››››››››››››› ››››››››››››››››� �›››››››››››››
امكان گزارش گيري با استفاده از Word هست يا نه ؟

منظورم اينه كه من يه برنامه قرارداد نوشتم كه ميخوام متن قراردادم رو با استفاده از word چاپ كنم .
علتش اينه كه ميشه مستقيماً تو word تايپ كرد و امكان استفاده از ابزارهاي متني بيشتري داره .

››››››››››››››››� �››››››››››››››››� ��›››››››››››››››› ››››››››››››››››� �›››››››››››››

[اوبالیت به بو]

* با دستور Shell ميشه يه فايل Word رو باز كرد.
* البته از تابع API كه اسمش ShellExecute اين كار رو انجام بدي.

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

توضيح تابع ShellExecute در اين پست
مثال: باز كردن فايل Student.DOC

    ShellExecuteA hwnd, "open", "File.DOC", vbnullstring, "C:\Student.DOC", SW_NORMAL

* البته يك راه ديگه هم هست كه در اين پست توضيح داده شده.

با اين برنامه ميشه متني كه در VB نوشته شده رو در Word ذخيره كني.


البته يه تغيير خودتون توش اعمال كنيد:

• FilePath رو از نوع String تعريف كنيد:

Dim FilePath As String

• در آخر اين دستور رو بنويسيد:

MWord.Documents(1).Close

 

يعني فايل رو ببنديد.

[ali_habibi1384]

* با دستور Shell ميشه يه فايل Word رو باز كرد.
* البته از تابع API كه اسمش ShellExecute اين كار رو انجام بدي.

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

توضيح تابع ShellExecute در اين پست
مثال: باز كردن فايل Student.DOC

    ShellExecuteA hwnd, "open", "File.DOC", vbnullstring, "C:\Student.DOC", SW_NORMAL

* البته يك راه ديگه هم هست كه در اين پست توضيح داده شده.

با اين برنامه ميشه متني كه در VB نوشته شده رو در Word ذخيره كني.



البته يه تغيير خودتون توش اعمال كنيد:

• FilePath رو از نوع String تعريف كنيد:

Dim FilePath As String

• در آخر اين دستور رو بنويسيد:

MWord.Documents(1).Close

 

يعني فايل رو ببنديد.

مثل اینکه شما کلا نفهمیدین که ایشون چی سوال کرد ایشون میخواد توی یک فایل ورد چیزی بنویسه نه اینکه فایل رو فرا خونی کنه!
دوست عزیز برای نوشتن در فایل ورد مثل نوشتن در فایلهای معمولی یک اشاره گر از نوع فایل تعریف کنی و توی اون بنویسی فقط کافیه پسوند اونو doc تعریف کنی تا با ورد باز کنه.

[y.saied]

دوستان عزیز توجه فرمائید :
من یه متن قرارداد رو از قبل تو word آماده کردم ولی نام کارفرما و نام پروژه و مبلغ قرارداد رو خالی گذاشتم ؛ حالا من رو فرم سه تا TextBox گذاشتم که یکی مربوط به نام کارفرما و دیگری به نام پروژه و دیگری جهت نوشتن مبلغ قرارداد .
سوال اصلی من اینه که ::: با چه روشی میتونم اطلاعاتی رو که در TextBoxها نوشتم در فایل word و در جای خودشون بذارم و پرینت بگیرم .

[reza_optical]

سلام
با OLE میتونی این کارو بکنی
شاید office خودش ocx داشته باشه به اونا هم نگا کن واسه excl که داره
میتونی add کنی و باهاش کار کنی

[y.saied]

سلام
با OLE میتونی این کارو بکنی
شاید office خودش ocx داشته باشه به اونا هم نگا کن واسه excl که داره
میتونی add کنی و باهاش کار کنی

عزیز بلد نیستم میتونی زحمتش و برام بکشی و توضیح بدی

[Mbt925]

یه نمونه ی ساده براتون نوشتم.

برای استفاده از نمونه ابتدا تیک گزینه ی Microsoft Object Libary رو از قسمت Refrences ها بزنید.

Dim objWord As New Word.Application



Private Sub Form_Load()



    objWord.Documents.Add

    objWord.ActiveDocument.Content.Text = "Mbt925 sample text"

    objWord.Visible = True

    objWord.Activate



End Sub

[SeyedMoosavi]

دوست من ، من هرچی گشتم Microsoft Object Libary رو پیدا نکرم

[y.saied]

یه نمونه ی ساده براتون نوشتم.

برای استفاده از نمونه ابتدا تیک گزینه ی Microsoft Object Libary رو از قسمت Refrences ها بزنید.

Dim objWord As New Word.Application

 



Private Sub Form_Load()

 

   objWord.Documents.Add

   objWord.ActiveDocument.Content.Text = "Mbt925 sample text"

   objWord.Visible = True

   objWord.Activate
 

End Sub

Microsoft Object Libary پيدا نشد ... نيست

[__siavash__]

Microsoft Object Libary پيدا نشد ... نيست
[/left]

دنبال این گزینه باید بگردی
Microsoft Word 12.0 Object Library

[y.saied]

من میخوام متن خودم رو در جای مخصوی در word بذارم .
مثلا نام کارفرما رو در جای خودش و نام پروژه رو در جای خودش و ...

[__siavash__]

من میخوام متن خودم رو در جای مخصوی در word بذارم .
مثلا نام کارفرما رو در جای خودش و نام پروژه رو در جای خودش و ...

میشه یه نمونه از فایل Word رو که آبجکت های لازم داخلش باشه و یه متن فرضی داشته باشه این جا بذاری !!!

[Hossein Bazyan]

سلام
شما اول باید یه فایل template در word بسازی . این فایل پسوند dot. میگیره . در این فایل نوشته های ثابت رو مینویسه و به ازای هر نوشته متغییر هم یک تکست باکس در فایل تمپلیت قرار میدی. با نام مشخص مثلا txtName و غیره . حال در برنامه ت باید این مقادیر رو معرفی کنی و سپس word رو باز کنی.
من دوبار برای دوستان مثال آپلود کردم در پستهای من بگرد اگه پیداش نکردی بگو تا برات مثال بنویسم

[Hossein Bazyan]

سلام
اینهم لینک برنامه پست شماره 3

https://barnamenevis.org/showth...light=template

[__siavash__]

میشه بگید اون تکست باکس ها رو در فایل My Temp.dot از چه منویی وارد کردید
تو Office 2007 پیداش نمیکنم !!!

[Hossein Bazyan]

میشه بگید اون تکست باکس ها رو در فایل My Temp.dot از چه منویی وارد کردید

تو Office 2007 پیداش نمیکنم !!!

برای ساختن یک فایل template :

• Word را اجرا نمائید .

• از منوی file گزینه new را انتخاب کنید.
• از پنجره باز شده به General tab رفته پس از انتخاب blank document در قسمت create new ، template را انتخاب کنیدو سپس ok.
• بر یک جای خالی از منوی بالا راست کلیک کنید و گزینه forms را انتخاب کنید.
• شروع به تایپ متن خود کنید و هر کجا متغیری لازم شد از نوار ابزار ایجاد شده text form field را انتخاب کنید و سپس به تایپ ادامه دهید.
• در انتها بر روی متغیرهایی که در متن ایجاد کردید راست کلیک کرده و properties را انتخاب کنید و برای آنها نام مناسب انتخاب کنید مثلا txtName و غیره
• template ایجاد شده را با نام دلخواه ذخیره نمائید. دقت کنید که در این حالت پسوند dot. باید بگیرد.

[__siavash__]

برای ساختن یک فایل template :

• Word را اجرا نمائید .

• از منوی file گزینه new را انتخاب کنید.
• از پنجره باز شده به General tab رفته پس از انتخاب blank document در قسمت create new ، template را انتخاب کنیدو سپس ok.
• بر یک جای خالی از منوی بالا راست کلیک کنید و گزینه forms را انتخاب کنید.
• شروع به تایپ متن خود کنید و هر کجا متغیری لازم شد از نوار ابزار ایجاد شده text form field را انتخاب کنید و سپس به تایپ ادامه دهید.
• در انتها بر روی متغیرهایی که در متن ایجاد کردید راست کلیک کرده و properties را انتخاب کنید و برای آنها نام مناسب انتخاب کنید مثلا txtName و غیره
• template ایجاد شده را با نام دلخواه ذخیره نمائید. دقت کنید که در این حالت پسوند dot. باید بگیرد.

از پنجره باز شده به General tab رفته پس از انتخاب blank document در قسمت create new ، template را انتخاب کنیدو سپس ok.

قسمت Template رو پیدا نمیکنم اما توی همون Document همون کاراها رو انجام میدم بعد با پسوند dot. ذخیره میکنم ظاهرا مشکلی نیست
(البته ToolBox, forms رو توی Office 2007 پیدا نمیکنم )
اما سوال اصلی من اینه که چرا از فرمت dot. استفاده میکنید ؟
اگر یه همچین فایلی رو با پسوند doc. هم ذخیره کنیم میتونیم همون کار رو انجام بدیم !!!

[y.saied]

دوست عزيز ، جناب آقاي Hossein Bazyan :

من Sample رو از لينكي كه زحمتش و كشيده بودين دانلو كردم و از تون ممنونم ، ولي وقتي كه روي Command1 كليك ميكنم اين خطا رو ميده اگه زحمتش و بكشي و من و راهنمايي كني ازت يه دنيا ممنون ميشم .

[__siavash__]

دوست عزيز ، جناب آقاي Hossein Bazyan :

من Sample رو از لينكي كه زحمتش و كشيده بودين دانلو كردم و از تون ممنونم ، ولي وقتي كه روي Command1 كليك ميكنم اين خطا رو ميده اگه زحمتش و بكشي و من و راهنمايي كني ازت يه دنيا ممنون ميشم .

این Error رو که شما فرستادید چی هست ؟
یه فایل Error.htm هست !!!؟؟؟ چیزی معلوم نیست

[Hossein Bazyan]

سلام
من خطا رو نتونستم ببینم . با فرمت عکس بفرستش یا تکست .
احتمالا روی کامپیوتر آفیس نصب نیست و یا اینکه کتابخانه word رو به vb فراخوانی نکرده ای .
این برنامه هم در وی بی و هم دات نت کار میکنه.

[y.saied]

دوست عزيز ، جناب آقاي Hossein Bazyan :

1 : مشكلم حل فقط اگه ممكنه كدهاي برنامه رو توضيح بدين تا من هم ازش سر دربيارم .

2 : در ضمن اين Sample با Word2007 كار ميكنه يا نه ؟
3 : چون من اولش Word2007 نصب كرده بودم كه خطا ميداد وقتي كه 2003 رو نصب كردم خطا رفع شد.
4 : امكان داره كه اطلاعات رو از بانك اطلاعاتي به Word بديم ، يعني اول تو بانك اطلاعاتي Save بشع بعداٌ بتونيم تو Word ازش استفاده كنيم .

[kmotavali]

دوستان عزیز این مشکل براحتی قابل حل است
شما میتوانید یک فایل Word را با استفاده از منوی Merge mail مستقیما به بانک اطلاعاتی متصل کنید و فقط هنگام چاپ اون رو فراخوانی کنید .

[y.saied]

دوستان عزیز این مشکل براحتی قابل حل است
شما میتوانید یک فایل Word را با استفاده از منوی Merge mail مستقیما به بانک اطلاعاتی متصل کنید و فقط هنگام چاپ اون رو فراخوانی کنید .

میشه بطور کامل توضیح بدی