مطالب برتر
جستجو
حضرت علی (ع): «زَکوةُ العِلمِ نَشرُهُ؛ زکات علم نشر آن است».
وبلاگ "ترفندها" (سایت پیسیترفند) برای عمل به این حدیث شریف و با هدف ارتقاء دانش و مهارتهای مرتبط با رایانه در ۳۰ مهرماه ۱۳۹۱ ایجاد شده است. به امید آنکه مفید واقع شود.
🔵 کانال پیسیترفند در تلگرام:
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+K را بزنید، کادری باز میشود که از شما آدرس فایل ورد کلمات را میخواهد آن را وارد کنید. نتیجه این میشود که کلمات مدنظرتان هایلایت میگردد.
منبع با تغییر: datanumen.com
برای مطلع شدن از جدیدترین مطالب سایت، کانال پیسیترفند در تلگرام را با آیدی pctarfand_ir@ دنبال کنید: |
سوالات خود در زمینه ورد و اکسل و ... را میتوانید از طریق ایمیل و تلگرام با ما مطرح کنید. آدرس ایمیل: tarfandha.blog@gmail.com آیدی تلگرام: pctarfand_admin@ |
نظرات (۹)
-
ساندویچ پانل دیواری
ممنون از مطالب خوب و آموزندتون -
استیک هایلایتر
ممنون از اموزش ها و مطالب عالیتون -
بسیار مفید و پرکاربرد بود
-
tarane
خیلی مفید و کارامد بود -
با سلام و خسته نباشید
برای اندروید جهت این کار چیزی گیر میاد؟
ممنونم-
پاسخ:
۱۴ ارديبهشت ۰۰، ۱۳:۳۵سلاممتاسفانه چیزی سراغ ندارم.
-
-
سجاد نبیونی
خیلی کاربردی ، ممنونم بابت مطلبتون -
پلن سایت
ممنون من خیلی با این مساله مشل داشتم به کمک شما حل شدطراحی سایتطراحی وب سایت در کرج -
ساندویچ پانل
با سلام مطلب خیلی خوب بود. با تشکر از همراهی شما
خیلی مفید و کارامد بود -
عرسان
سلام من تمام راهها رو رفتم ولی وقتی آلت و ام رو می زنم پنجره فونت باز میشه-
پاسخ:
۲۷ مهر ۹۹، ۲۲:۰۰سلامبدون استفاده از شرتکات کار نمی کند؟
-
ارسال نظر
قبل از ارسال نظر به نکات زیر توجه کنید:
۱- با توجه با اینکه نظرات خصوصی شما امکان نمایش در سایت را ندارد، بنابراین هنگام ارسال نظر، گزینه "" را انتخاب نکنید. چون تنها راه پاسخگویی به آن از طریق ایمیل شما است که با توجه به مشغله کاری فرصت ارسال پاسخ از طریق ایمیل وجود ندارد.
۲- قبل از مطرح کردن سوالتان، مطلب فوق را با دقت مطالعه کنید. اگر پاسخ سوالتان را پیدا نکردید در سایت جستجو کنید، ممکن است در مطلب دیگر پاسخ سوالتان را پیدا کنید.
۳- تنها به سوالاتی پاسخ داده میشود که از نحوه حل آنها اطلاع داشته باشم.
۴- نظراتی با مضمون زیر، صرفا تایید و نمایش داده میشود و به آنها پاسخی داده نمیشود.
الف) در مورد پاسخ سوال شما اطلاعی نداشته باشم،
ب) پاسخ سوال شما در مطلب فوق وجود داشته باشد.
طبقه بندی موضوعی
- آفیس و پیدیاف (۱۴۷)
- ورد (۶۲)
- اکسل (۷۹)
- پاور پوینت (۳)
- پیدیاف (۱۰)
- اینترنت (۴۳)
- فایرفاکس (۲۵)
- اینترنت/سایر (۱۸)
- کد نویسی (۵۲)
- دستورات داس (۳)
- ماکرونویسی (۴۶)
- نرم افزار ویدئو (۹)
- نرم افزار عکس (۳)
- بازی (۱)
- رپورتاژ آگهی (۳)
- سایر موارد (۵۰)
- موبایل (۶)
تبليغات
کلمات کلیدی
آخرين مطالب
-
جمع شرطی اعداد با واحدهای ارزی متفاوت در اکسل
چهارشنبه ۴ آبان ۱۴۰۱ -
آموزشهای رایگان و فارسی powerbi و هوش تجاری [رپورتاژ آگهی]
شنبه ۱۴ اسفند ۱۴۰۰ -
رسم نمودار با دو محور عمودی و دو محور افقی با مقیاسهای متفاوت
جمعه ۱۳ اسفند ۱۴۰۰ -
۱۰ ترفند برای استاد شدن در مایکروسافت ورد [رپورتاژ آگهی]
دوشنبه ۲۴ آبان ۱۴۰۰ -
حذف فاصله اضافه در ابتدای عبارات در جدول در ورد - ماکرو
شنبه ۲۰ شهریور ۱۴۰۰ -
ایجاد کلید میانبر یا شورتکات برای ماکروی موجود در ورد
يكشنبه ۱۷ مرداد ۱۴۰۰ -
جستجوی همزمان چند کلمه در ورد - ماکرو
پنجشنبه ۱۰ مهر ۱۳۹۹ -
نامحدود کردن تعداد لیست تماسها در اندروید
شنبه ۱ شهریور ۱۳۹۹ -
مرتب کردن یک لیست براساس تعداد تکرار در اکسل
چهارشنبه ۱۵ مرداد ۱۳۹۹ -
انتقال محتوا از تلگرام به پیام رسانهای داخلی
پنجشنبه ۱۲ تیر ۱۳۹۹