کپي فيلد رکورد جاري در فايل ورد (Word)

[imanch]

سلام
مي خواهم دکمه اي روي فرم ايجاد کنم که با کليک کردن آن يک فايل تحت ورد باز شده و بعضي از فيلدهاي رکورد جاري در فايل ورد کپي شود. منتظر راهنمايي اساتيد هستم

[مهدی قربانی]

سلام
لطفاً بيشتر توضيح بديد و دقيق تر بفرمائيد چه عملياتي مي خواين انجام بديد

[imanch]

آقا مهدي سلام
به طور دقيقتر بايد بگم من يک فايل ورد(يک نامه اداري) و يک فايل اکسس که حاوي اطلاعات شرکتهاست دارم. يکي از فيلدهاي برنامه اکسس "نام شرکت" و يک فيلد ديگه "آدرس شرکت" است.
هدف اينه که به همه اين شرکتها(مثلاً 2000 شرکت) نامه با يک فرمت ثابت بزنيم. به همين علت بايد در برنامه اکسس اين فايل ورد را فراخواني کنم به گونه اي که وقتي فايل ورد باز مي شه بعضي از فيلدهاي رکورد جاري مثلاً همان فيلدهاي "نام شرکت" و "آدرس شرکت" در متن نامه قرار بگيرد.
توضيح اينکه من با OfficeLink در اکسس اون نامه (فايل ورد) رو فراخواني کردم ولي مي خوام روي فرم کليدي قرار بدم که با کليک کردن آن فقط اطلاعات رکورد جاري فرم(نام و آدرس شرکت) در اون نامه(فايل ورد) بشينه.

[shaghaghi]

سلام
ابتدا Microsoft Word 11.0 Object Library را Add Reference نمایید
از این نمونه کد کمک بگیرید:

Dim wdApp As Word.Application, wdDoc As Word.Document

Set wdApp = CreateObject("word.Application")

Set wdDoc = wdApp.Documents.Add

wdApp.Application.Visible = True

wdDoc.ActiveWindow.SetFocus

AppActivate wdDoc.ActiveWindow.Caption

SendKeys Format$(Me.Field1.Value), True

سایر خصوصیات مثل Save کردن و سایر اموری که نیاز دارید را هم در Property های wdDoc بیابید