فرستادن مقادیر به word document

[hooooman]

سلام
فرض کنین 1 document word ذخیره شده توی 1 مسیری موجوده
حالا کاربر یکسری مقدار مثه شماره نامه یا تاریخ یا عنوان ..... رو توی چنتا textbox وارد میکنه . حالا اگه بخایم این مقدارها رو توی اون word document سر جاهای خودشون (فکر کنم میشه در 1 مختصات مشخص توی اون document) قرار بدیم چیکار باید بکنیم؟

[ftmotlagh]

این کار امکان نداره :
1- اگه ورد 2007 باشه که اصلا نمی شه چون کد شده است.
2- اگه هم 2003 باشه نوشته ها دیده می شه (می تونی با نوت پد این کار رو انجام بدی) ولی اگه اون هارو تغییر بدی ... فایل دیگه باز نمی شه...

[hooooman]

این کار امکان نداره :
1- اگه ورد 2007 باشه که اصلا نمی شه چون کد شده است.
2- اگه هم 2003 باشه نوشته ها دیده می شه (می تونی با نوت پد این کار رو انجام بدی) ولی اگه اون هارو تغییر بدی ... فایل دیگه باز نمی شه...


با مشکل فراوون تا حدودی که کارمو را بندازه تونستم البته با استفاده از 1 UserControl که مرحمتی یکی از دوستان بود

[ftmotlagh]

؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!
میشه سورسشو بزارید...

[HjSoft]

دوست عزیز این امکان ندارد غیر از برنامه هایی که با نوتپد اجرا میشوند راهی دیگر ندارید جز یک راه که در زمان کار با نوتپد و ذخیره آن پسوند را به doc تغییر بدید اگه سورسشو خواستید بگید تا بزارم

[hooooman]

دوست عزیز این امکان ندارد غیر از برنامه هایی که با نوتپد اجرا میشوند راهی دیگر ندارید جز یک راه که در زمان کار با نوتپد و ذخیره آن پسوند را به doc تغییر بدید اگه سورسشو خواستید بگید تا بزارم


سلام
عزیز دلم اگه یکی 2 روز دیگه صبر کنین سورسو کامل میکنم و اینجا میذارم تا شما هم ببینین که شندنیه و اصلا غیر ممکن نیست . ضمنا من اصلا عادت ندارم که مشکلاتمو با کدهای مرحمتی دوستان حل کنم بلکه فقط با 1 کمی راهنمایی خودم درستش میکنم

[ABERTINO]

کی میگه امکان نداره همین الان شرکت ما یه برنامه اتوماسیون اداری از شرکت همکاران سیستم داره که همین کاری رو می کنه که دوستمونHOOOMAN میخواد پس یعنی میشه که این شرکت انجام داه
من خودم هم یه برنامه نوشتم که توش یه گزینه EXPORT TO WORD داره و متنی رو که می خوام رو توی WORD می نویسم ولی اینجوری که شما می گین تا حالا امتحان نکردم یعنی توی یه TEXTBOX مشخص یا مثلا توی هدر و فوتر
روش کارم سادس متنی رو که می خوام به صورت یک فایل با دستورات HTML در هارد با پسوند DOC ذخیره می کنم و بعد با برنامه WORD بازش می کنم
آقای WOLF-SKY با روشی که شما گفتی نمی شه جدول و نمودار کشید ولی از روش HTML میشه

[HjSoft]

درسته قبول دارم ولی اینطوری هم میشه ولی متاسفانه جدول نمیشه کشید قبول دارم

[Hossein Bazyan]

سلام

دوستانی که میفرمایند امکان نداره نظرشون درست نیست . این کار به راحتی آب خوردنه
اول باید یه تمپلیت در word درست کنی که در این تمپلیت هر چی میخواهی که وارد کنی را در جای خودش قرار بدی و بسازی ( از قبلی تکست باکس و لیبیل و غیره ) حال در وی بی به ورد یه اتصال برقرار میکنی و مطالب را به تمپلیت ورد ارسال و سپس فایل حاصله را نمایش میدی.
من به کرات استفاده کرده ام هم در ورد 97 و هم 2003

[HjSoft]

خوب پس میشه از روش من

[bobrus]

بازم نه آقای Wolf_Sky توی word یه نگاهی به Tepmlate بنداز کلی با NotPad فرق می کنه درواقع همون فایل doc هست با یه پسنوند دیگه که امکان دسترسی به قسمتهای مختلف رو میده یعنی مثل یه فرم گزارش از پیش طراحی شه می مونه

[HjSoft]

اما من با نظر شما موافق نیستم حاضرم ثابت کنم

[ftmotlagh]

آقای bobrus لطفا یک سورس بگذارید تا بحث ادامه پیدا نکنه ...

[bobrus]

چرا من بزارم خود آقا HOOOOMAN بده که تازه روش کارکرده.
(شرمنده من زیاد وقت ندارم )

[ftmotlagh]

آقا HOOOOMAN که ازش خبری نیست...؟؟؟

[Hossein Bazyan]

سلام
زیاد بحث نکنید من فردا سورس میذارم .

[ftmotlagh]

دستتون درد نکنه...

[HjSoft]

ممنون اگه بذاری حداقل روش رو بگو

[Hossein Bazyan]

سلام
دوستان سورس پائینی رو دانلود کنید.
یک فایل بنام My Temp1.doc همراه آن است که باید در مسیر جاری باشد در این تمپلیت 2 تکست باکس گذاشته شده که در برنامه اصلی با vb هم دو تکست باکس است با زدن کلید محتوای 2 تکست باکس را به تمپلیت میفرستد.

[ftmotlagh]

نمیدونولی از تابع trim و right اشتباه می گیره؟؟؟؟!!!!!!!!!!!

[Hossein Bazyan]

نمیدونولی از تابع trim و right اشتباه می گیره؟؟؟؟!!!!!!!!!!!
سلام
در کجای این برنامه از این توابع استفاده شده ؟

[Hossein Bazyan]

سلام
دوستانی که اینهمه مشتاق سورس بودند پس کجان ؟ چرا کسی دانلود نکرده ؟
2 بار دیدار شده که هر دوبار هم خودم بودم ( برای تغییرات دانلود نمودم )

[ftmotlagh]

Option Explicit
Public WordApplication As Word.Application
Public WordApplicationDoc As Word.Document

Private Sub Command1_Click()
Set WordApplication = New Word.Application
Set WordApplicationDoc = New Word.Document
Dim Pat As String
Pat = App.Path: If Right$(Trim$(Pat), 1) <> "\" Then Pat = Pat & "\"
Pat = Pat & "My Temp1.dot"
WordApplication.Visible = True
Set WordApplicationDoc = WordApplication.Documents.Add(Pat)
WordApplicationDoc.FormFields("Text1").Range = Text1.Text
WordApplicationDoc.FormFields("Text2").Range = Text2.Text
WordApplicationDoc.PrintPreview
WordApplication.PrintOut
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, _
UnloadMode As Integer)
Set WordApplication = Nothing
Set WordApplicationDoc = Nothing
End Sub



این هم این توابع...

[Hossein Bazyan]

سلام
دستور app.path بعضی مواقع به انتهای مسیر علامت \ را اضافه و بعضی مواقع اضافه نمیکند. این دستور برای کنترل این قسمت است . حال دو را داری

این مسیر را دستی وارد کنی ( بدترین حالت )
در منوی project-> refrence باید یکسری کتابخانه ها انتخاب کنی تا این ستورات کار کنند . در ویژوال بیسیک من کتابخانه های زیر به ترتیب فعال هستند.
Visual Basic for applications
Visual Basic runtime objects and procedures
Visual basic objects and procedures
OLE Automation