جستجو

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

حضرت علی (ع): «زَکوةُ العِلمِ نَشرُهُ؛ زکات علم نشر آن است».
وبلاگ "ترفندها" (سایت پی‌سی‌ترفند) برای عمل به این حدیث شریف و با هدف ارتقاء دانش و مهارت‌های مرتبط با رایانه در ۳۰ مهرماه ۱۳۹۱ ایجاد شده است. به امید آنکه مفید واقع شود.
🔵 کانال‌های پی‌سی‌ترفند در تلگرام:
telegram.me/pctarfand_ir
🔵 ارتباط با ادمین:
telegram.me/pctarfand_admin

خلاصه آمار

تبليغات

۱

جستجوی همزمان چند کلمه در ورد - ماکرو

ورد ماکرونویسی

جستجوی همزمان چند کلمه در ورد - ماکرو

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

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

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

۱- در ورد ۲۰۰۳، از منوی 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

عضویت در خبرنامه:

برای مطلع شدن از جدیدترین مطالب سایت، کانال‌ پی‌سی‌ترفند در تلگرام را با آی‌دی pctarfand_ir@ دنبال کنید:

          

سوالات خود در زمینه ورد و اکسل و ... را می‌توانید از طریق ایمیل و تلگرام با ما مطرح کنید.

آدرس ایمیل: tarfandha.blog@gmail.com

آی‌دی تلگرام: pctarfand_admin@

نظرات (۱)

  1. سلام من تمام راهها رو رفتم ولی وقتی آلت و ام رو می زنم پنجره فونت باز میشه
    • پاسخ:

      سلام
      بدون استفاده از شرتکات کار نمی کند؟

ارسال نظر

قبل از ارسال نظر به نکات زیر توجه کنید:

۱- با توجه با اینکه نظرات خصوصی شما امکان نمایش در سایت را ندارد، بنابراین هنگام ارسال نظر، گزینه "" را انتخاب نکنید. چون تنها راه پاسخگویی به آن از طریق ایمیل شما است که با توجه به مشغله کاری فرصت ارسال پاسخ از طریق ایمیل وجود ندارد.

۲- قبل از مطرح کردن سوالتان، مطلب فوق را با دقت مطالعه کنید. اگر پاسخ سوالتان را پیدا نکردید در سایت جستجو کنید، ممکن است در مطلب دیگر پاسخ سوالتان را پیدا کنید.

۳- تنها به سوالاتی پاسخ داده می‌شود که از نحوه حل آن‌ها اطلاع داشته باشم.

۴- نظراتی با مضمون زیر، صرفا تایید و نمایش داده می‌شود و به آن‌ها پاسخی داده نمی‌شود.

الف) در مورد پاسخ سوال شما اطلاعی نداشته باشم،

ب) پاسخ سوال شما در مطلب فوق وجود داشته باشد.

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی