دسترسی آسان به پوشه‌ها و فایلهای مختلف در ورد

گاهی اوقات نیاز است که پوشه‌های مختلفی را علاوه بر 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 پوشه پروژه‌ها و ...

پیدا کردن Frame در فایل ورد

1- کلید ترکیبی Alt-F11 را فشار دهید تا صفحه VBA باز شود.

2- از منوی Insert بر روی Module کلیک کنید تا پنجره جدیدی باز شود.

3- کد زیر را در این پنجره کپی پیست کنید.

Sub findframe()

    numberofframes = ActiveDocument.Frames.Count

    n = InputBox("number of frames in this file = " & numberofframes & " . insert a number between 1 and " & numberofframes & " : ", "what frame do you want")

    If (n > 0 & n < numberofframes) Then

        ActiveDocument.Frames(n).Select

    End If

End Sub

4- بر روی آیکن Run کلیک کنید یا دکمه F5 را برای اجرای ماکرو فشار دهید.

 

حذف تمام Frame ها از فایل Word و تبدیل آنها به متن

1- کلید ترکیبی Alt-F11 را فشار دهید تا صفحه VBA باز شود.

2- از منوی Insert بر روی Module کلیک کنید تا پنجره جدیدی باز شود.

3- کد زیر را در این پنجره کپی پیست کنید.

Sub RemoveFrames()
Dim frm As Frame
For Each frm In ActiveDocument.Frames
frm.Delete
Next frm
End Sub

4- بر روی آیکن Run کلیک کنید یا دکمه F5 را برای اجرای ماکرو فشار دهید.

تنظیم تمام جدول‌های موجود در یک فایل Word با استفاده از ماکرو

ساختن یک ماکرو برای تنظیم تمام جدول‌های فایل کار ساده‌ای است و با یک بار انجام دادن آن بسیار ساده‌تر هم خواهد شد. استفاده از ماکروها، کار با ورد را بسیار لذت‌بخش می‌کند.

حالا با ذکر یک مثال، این موضوع را توضیح می‌دهم. مثلاً شما می‌خواهید در یک فایل، سطر اول تمام جداول با پیش‌زمینه خاکستری و خط دور جداول پررنگ باشد. به ترتیب مراحل زیر را انجام دهید:

1- یک فایل جدید ایجاد کنید (Ctrl + N) و چهار جدول مختلف در صفحات مختلف ایجاد کنید.

2- Ctrl+home را فشار دهید تا مکان‌نما به اول فایل برود.

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

4- یک اسم برای ماکرو انتخاب کنید مثلاً TanzimeJadavel و روی عکس کیبورد کلیک کنید تا کادر Customize Keyboard باز شود. یک کلید میانبر مثلاً Alt+Z را فشار دهید. این کلید پس از ایجاد ماکرو برای اجرای ماکرو به کار می‌رود.

5- Assign و سپس Close را بزنید. از این لحظه به بعد هر کلیدی را که فشار دهید، در ماکرو ذخیره می‌شود، پس کلیدهای اضافه را فشار ندهید و فقط کلیدهایی که در زیر گفته می‌شود را فشار دهید.

6- Ctrl+Alt+Home : برای باز شدن منوی Select Brows Object

7- روی عکس جدول کلیک کنید.

8- Ctrl+PgDown : برای پیدا کردن اولین جدول

9- Alt+Shift+End : برای بلوک کردن اولین سطر

10- به هر طریقی که بلدید، بدون از بین بردن selection ، پیش زمینه جدول را خاکستری کنید.

11- Alt+Shift+PgDown : برای بلوک کردن کل جدول

12- به هر طریقی که بلدید، بدون از بین بردن selection ، کادر دور جدول را پررنگ‌تر کنید.

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

14- ساختن ماکرو تمام شد. دیدید به همین راحتی! حالا هر بار که شما کلید Alt+Z را فشار دهید، ورد جدول بعدی را پیدا می‌کند، اولین سطرش را خاکستری می‌کند و خط دور آن را پررنگ می‌کنید. جالب بود! نه؟

فارسی کردن اعداد انگلیسی در ورد 2003 ، 2007 و 2010 با استفاده از ماکرو

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

ادامه نوشته