ترفندهای کامپیوتری

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

برای این کار باید از ابزار ماکرو در ورد استفاده کنیم. اما قبل از ساخت ماکرو، در درجه نخست کلماتی که می‌خواهید جستجو شوند را در یک فایل ورد وارد کنید. برای اینکه ماکرو به درستی عمل کند باید در هر سطر یک کلمه قرار داشته باشد. پس از اینکار فایل ورد را ذخیره کنید.

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

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

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

۲- در قسمت Macro Name عبارت FindMultiItemsInDoc را تایپ کنید.

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

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

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

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

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

Sub FindMultiItemsInDoc()
Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim sFname As String
  sFname = GetOpenFileName
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(FileName:=sFname, Visible:=False)
  objTargetDoc.Activate
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub
Function GetOpenFileName() As String
  With Dialogs(wdDialogFileOpen)
    If .Display = -1 Then
      GetOpenFileName = WordBasic.FileNameInfo$(.Name, 1)
    Else
      GetOpenFileName = ""
    End If
  End With
lbl_Exit:
  Exit Function
End Function

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

۹- مراحل درست کردن ماکرو تمام شد. اکنون اگر در محیط ورد کلیدهای Alt+M را بزنید، کادری باز می‌شود که از شما آدرس فایل ورد کلمات را می‌خواهد آن را وارد کنید. نتیجه این می‌شود که کلمات مدنظرتان هایلایت می‌گردد.

منبع با تغییر: datanumen.com