طریقه جستجو و جایگزینی گروهی کلمات در ورد

یکی از قابلیت‌های نرم‌افزار ورد جستجو و جایگزینی کلمات و عبارت‌ها است. فرض کنید یک فایل حجیم دارید و می‌خواهید بیش از ۲۰ کلمه را به طور همزمان با ۲۰ کلمه دیگر جایگزین کنید. شاید به ذهنتان برسد که عملیات جستجو و جایگزینی را برای تک تک این کلمات بصورت جداگانه انجام دهید، اما این کار بسیار زمان‌بر و همراه با خطا است. پس چاره کار چیست؟ در ادامه مطلب با ما همراه باشید تا با نحوه انجام اینکار آشنا شوید.

متن زیر را در نظر بگیرید.

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

برای جایگزینی گروهی کلمات چند روش وجود دارد:

روش اول) ماکرونویسی

در فایلی که می‌خواهید عملیات جستجو و جایگزینی انجام شود مراحل زیر را برای ساخت ماکرو طی کنید:

۱- در ورد ۲۰۰۳، از منوی Tools بر روی دکمه Macro و از آنجا Record New Macro را بزنید. به جای این مراحل می‌توانید به ترتیب کلیدهای Alt+T و M و R را تایپ کنید.

در ورد ۲۰۰۷، ۲۰۱۰ و ۲۰۱۳ هم می‌توانید به ترتیب کلیدهای Alt+T و M و R را بفشارید یا از تب View گروه Macros، گزینه Record Macros را انتخاب کنید.

با این کار، کادر Record Macro باز می‌شود.

۲- در قسمت Macro Name عبارت دلخواهی برای نام ماکرو مثلا ReplaceFromTableList وارد کنید.

۳- بر روی شکل صفحه کلید کلیک کنید. کادر Customize Keyboard باز می‌شود.

۴- برای ایجاد میانبر یا شرتکات در قسمت Press new shortcut key، یک کلید از صفحه کلید همراه با کلید Ctrl یا Alt را فشار دهید. مثلاً Alt+L. سپس دکمه Assign را بزنید و Close کنید.

۵- از تب View گروه Macros، بر روی دکمه Stop Recording کلیک کنید یا از کلیدهای Alt+T و M و R استفاده کنید.

۶- با استفاده از کلیدهای Alt+T و M و M کادر Macros باز می‌شود. ماکروی ReplaceFromTableList را پیدا کرده و انتخاب کنید. دکمه Edit را بزنید.

۷- تمام عبارت‌های بین Sub ReplaceFromTableList() و End sub را پاک کنید و به جای آن‌ها، کدهای زیر را عیناً بین این دو عبارت کپی و پیست کنید.

'pctarfand.ir & tarfandha.blog.ir
'from Doug Robbins, Word MVP, Microsoft forums, Feb 2015
 Dim oChanges As Document, oDoc As Document
 Dim oTable As Table
 Dim oRng As Range
 Dim rFindText As Range, rReplacement As Range
 Dim i As Long
 Dim sFname As String
 'Change the path in the line below to reflect the name and path of the table document
 sFname = "C:\Users\Reza\Desktop\Changes.docx"
 Set oDoc = ActiveDocument
 Set oChanges = Documents.Open(FileName:=sFname, Visible:=False)
 Set oTable = oChanges.Tables(1)
 For i = 1 To oTable.Rows.Count
     Set oRng = oDoc.Range
     Set rFindText = oTable.Cell(i, 1).Range
     rFindText.End = rFindText.End - 1
     Set rReplacement = oTable.Cell(i, 2).Range
     rReplacement.End = rReplacement.End - 1
     Selection.HomeKey wdStory
     With oRng.Find
             .ClearFormatting
             .Replacement.ClearFormatting
             .MatchWildcards = True
             .Text = rFindText.Text
             .Replacement.Text = rReplacement.Text
             .Forward = True
             .Wrap = wdFindContinue
             .Execute Replace:=wdReplaceAll
       End With
 Next i
 oChanges.Close wdDoNotSaveChanges

توجه: در کد فوق بجای آدرسی که با رنگ زرد نشان داده شده است، آدرس فایلی که جدول گفته شده در بالا در آن قرار دارد را جایگزین کنید.

۸- با فشردن کلیدهای Ctrl+S فایل ماکرو را ذخیره کنید و پنجره Microsoft Visual Basic را ببندید.

۹- مراحل درست کردن ماکرو تمام شد. حال اگر در برنامه وردتان کلیدهای Alt+L را بزنید، عملیات جایگزینی انجام می‌شود.

روش دوم) با استفاده از افزونه

روش سوم) نصب نرم‌افزار جانبی