گاهی اوقات نیاز است که پوشه‌های مختلفی را علاوه بر My document باز کنید. مثلاً شما پوشه «نامه‌ها» دارید که در درایو F ذخیره کرده‌اید و پوشه «پروژه‌ها» را در درایو E و پوشه «شخصی» را در درایو D و فایل «بلیطهای هواپیما» را در پوشه دیگری در درایو دیگری ذخیره کرده‌اید. در صورتی که هر کدام از این پوشه‌ها و فایلها را در داخل پوشه‌های دیگری هم ذخیره کرده باشید که کار باز کردن و انتخاب یک فایل از داخل آنها مشکلتر می‌شود.

به طور خلاصه، راه‌حلی که می‌توانید برای آسان کردن دسترسی به این پوشه‌ها و فایلها استفاده کنید، ایجاد یک ماکروی ساده در ورد است که دسترسی شما به پوشه‌ها و فایلهای مزبور را آسان می‌کند.

 

برای این کار به ترتیب زیر عمل کنید:

1- به ترتیب دکمه‌های Alt+T و M و R را بزنید تا کادر Record Macro باز شود. اگر حوصله حفظ کردن این دکمه‌ها را ندارید، در ورد 2003 ، از منوی Tools گزینه Macro و سپس Record New Macro را بزنید یا در ورد 2007 و 2010 و 2013، از منوی View گزینه آخر Macros و سپس Rocord Macro را انتخاب کنید.

2- یک اسم برای ماکرو انتخاب کنید مثلاً OpenLetters و روی عکس کیبورد کلیک کنید تا کادر Customize Keyboard باز شود. یک کلید میانبر مثلاً Alt+W و N (اول کلمه نامه‌ها) را فشار دهید. این کلید پس از ایجاد ماکرو برای اجرای ماکرو به کار می‌رود.

3- Assign و سپس Close را بزنید. دکمه‌های Alt+T و M و R را فشار دهید تا ذخیره کردن ماکرو پایان یابد.

4- Alt+F8 را فشار دهید تا کادر ماکروها باز شود. ماکرو OpenLetters را در این لیست پیدا کنید، روی آن کلیک کنید و دکمه Edit را فشار دهید تا وارد محیط Visual Basic شوید.

5- متن زیر را قبل از عبارت End sub کپی پیست کنید.

If Documents.Count = 0 Then Documents.Add DocumentType:=wdNewBlankDocument

ChangeFileOpenDirectory "F:\..."

With Dialogs(wdDialogFileOpen)

      .Name = "*.*"

      .Show

End With

6- برای سایر پوشه‌ها مراحل یک تا پنج را تکرار کنید با این تفاوت که قسمتهایی که با رنگ آبی نشان داده شده‌اند را تغییر دهید. برای تعیین دکمه‌های میانبر مثلاً برای پوشه پروژه‌ها Alt+W و P و برای پوشه شخصی Alt+W و S را انتخاب نمایید.

7- برای باز کردن فایلها هم مراحل یک تا پنج را تکرار کنید با این تفاوت که علاوه بر تغییر قسمتهای آبی به جای دستور مرحله پنج، دستور زیر را کپی پیست کنید که باز هم قسمت آدرس آن را باید عوض کنید.

If Documents.Count = 0 Then Documents.Add DocumentType:=wdNewBlankDocument

Documents.Open FileName:="C:\...\Tickets.doc"

حالا با فشار دادن مثلاً کلید Alt+W و N پوشه نامه‌ها باز خواهد شد و Alt+W و P پوشه پروژه‌ها و ...