Sub ChangeBookmark()
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open("c:\doc1.docx")
Set objRange = objDoc.Bookmarks("b1").Range
objRange.Text = "new value1"
Set objRange = objDoc.Bookmarks("b2").Range
objRange.Text = "new value2"
objDoc.Save
objDoc.Close
objWord.Quit
End Sub
تغییر مقادیر Bookmark های ورد توسط ماکرو
وحید فرزام
1392-12-15 07:00:00
۱,۲۶۶ بازدید
در ادامه آموزش های قبلی برنامه نویسی در محیط Word یک ماکروی مفید دیگر خدمتتان تقدیم می گردد.
در مورد خواندن مقدار Bookmark ورد، در مطالب قبلی صحبت کردیم و در این مقاله در مورد ویرایش مقدار bookmark صحبت می کنیم.
این ماکرو فایلی به نام Doc1 موجود در درایو C را باز کرده و مقدار دو Bookmark به نامهای b1 و b2 موجود در آن را با دو مقدار جدید تغییر داده و پس از ذخیره فایل آن را می بندد.
به همین سادگی می توانید از داخل محیط اکسل یا اکسس، محل دلخواه از فایل ورد را ویرایش کنید.