ویرایش و ذخیره یک سند Word بوسیله Excel VBA

برای ویرایش و ذخیره یک سند Microsoft Word موجود با استفاده از Microsoft Excel، باید مراحل زیر را دنبال کنید:

• شیء مایکروسافت ورد را ایجاد کنید
• با استفاده از شی MS word، سند word موجود را با ارائه مسیر کامل باز کنید
• MS Word را قابل مشاهده کنید
• با کمک WordObject یک شی Selection ایجاد کنید.
• سند Word را با استفاده از SelectionObject ویرایش کنید
• سند Word را ذخیره کنید

شیء مایکروسافت ورد را ایجاد کنید

Set objWord = CreateObject(“Word.Application”)

با استفاده از شی MS word، سند word موجود را با ارائه مسیر کامل باز کنید

Set objDoc = objWord.Documents.Open ("D:\OpenMe.docx")

MS Word را قابل مشاهده کنید

objWord.Visible = True

با کمک WordObject یک شی Selection ایجاد کنید.

Set objSelection = objWord.Selection

سند Word را با استفاده از SelectionObject ویرایش کنید

objSelection.Font.Size = "22"
objSelection.TypeText (“I am new here” & vbCrLf) 

سند Word را ذخیره کنید

objDoc.Save

دستورات کامل:

Function FnEditAndSaveWordDoc()
   Dim objWord
   Dim objDoc
   Dim objSelection
   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Open("D:\OpenMe.docx")
   objWord.Visible = True
   Set objSelection = objWord.Selection
   objSelection.Font.Bold = True
   objSelection.Font.Size = "22"
   objSelection.TypeText ("I am new here" & vbCrLf)
   objDoc.Save
End Function