PDA

View Full Version : سوال: فراخوانی word



Rezapcclick
جمعه 06 آذر 1388, 01:43 صبح
سلام
خسته نباشید می گم به همه دوستان عزیز برنامه نویس
مشکلی داشتم
من در حال نوشتن برنامه ای هستم که می خوام برنامه word رو فراخوانی کنم که تو همه سیستم ها کار کنه.

far9090
جمعه 06 آذر 1388, 14:19 عصر
سلام . برنامه Word رو به صورت خارجی از طریق ShellExecute می تونی اجرا کنی . در ضمن این کار رو هم می تونی بکنی .
اول از داخل References گزینه Microsoft Word Object Library رو تیک بزن . بعد هم از این کد استفاده کن .



strFileName = "c:\my documents\test_bed.doc"
Set appWord = New Word.Application
Set wrdDoc = appWord.Documents.Open(strFileName)
appWord.Visible = False
'appWord.Run ("pg_breaker") ' these are Macros which are found in that sheet
appWord.Run ("mHeader") ' these are Macros which are found in that sheet
wrdDoc.Save
wrdDoc.Close False
appWord.Quit
Set wrdDoc = Nothing
Set appWord = Nothing
MsgBox "Task done as per your Order, Master"
این رو مثلا تو فرم لودت کپی کن و آدرس درست بهش بده .
شما برای اجرای Word باید رو سیستم مقصدت اون رو نصب کنی . اگه دوستان کار بهتری می دونن کمک کنن . موفق باشی .