تغییر متن در نظر

Question

ریکی سندی دارد که شامل نظرات بسیاری است. او می خواهد یک کلمه را که در آن نظرات تکرار می شود تغییر دهد. به عنوان مثال، در عبارت "به توجه جو" او ممکن است بخواهد آن را به "توجه به ماری بیاورید" تغییر دهد. ریکی تعجب می کند که آیا راهی برای انجام این نوع یافتن و جایگزینی و تأثیرگذاری فقط روی نظرات وجود دارد؟

در واقع، انجام این نوع کار در Word بسیار آسان است و چند راه وجود دارد که می توانید به آن نزدیک شوید. در اینجا یک راه برای انجام آن وجود دارد:

1. نقطه درج را در اولین نظر در سند خود قرار دهید. (این مهم است، بنابراین این مرحله را نادیده نگیرید.)
2. Ctrl+H را فشار دهید . Word تب Replace را در کادر گفتگوی Find and Replace نمایش می دهد.
3. تنظیمات را در کادر محاوره ای به دلخواه پر کنید. (به عنوان مثال، در کادر Find What متن "Joe" و در کادر Replace With متن "Mary" را قرار دهید.)
4. روی Find Next کلیک کنید. Word اولین تکرار متن مورد نظر شما را در نظرات پیدا می کند.
5. بر روی Replace یا Find Next کلیک کنید تا زمانی که تمام تغییرات مورد نظر را در نظرات ایجاد کنید.
6. کادر گفتگوی Find and Replace را ببندید.

اگر این مراحل جایگزین را دنبال کنید، می توانید مرحله اول (نیاز به قرار دادن نقطه درج در نظر اول) را دور بزنید:

1. Ctrl+H را فشار دهید . Word تب Replace را در کادر گفتگوی Find and Replace نمایش می دهد.
2. روی تب Find کلیک کنید تا نمایش داده شود.
3. در کادر Find What، متنی را که می خواهید پیدا کنید، مانند "Joe" وارد کنید.
4. روی لیست کشویی Find In کلیک کنید و Comments را انتخاب کنید. (اگر در حال کار بر روی برگه Replace به جای برگه Find هستید، این لیست کشویی در دسترس نیست. چرا؟ چه کسی می داند!) Word تمام موارد مطابق یافت شده در نظرات را انتخاب می کند.
5. روی تب Replace کلیک کنید تا نمایش داده شود.
6. در کادر Replace With، متنی را که می خواهید به عنوان جایگزین استفاده کنید، وارد کنید، مانند "Mary".
7. روی دکمه Replace All کلیک کنید. Word تمام نمونه های متنی را که در مرحله 3 مشخص کرده اید با متنی که در مرحله 6 مشخص کرده اید جایگزین می کند و این کار را فقط در نظرات انجام می دهد.
8. کادر گفتگوی Find and Replace را ببندید.

اگر نیاز به ایجاد این تغییرات در بسیاری از اسناد دارید - شاید جو شرکت را ترک کرده باشد و مری فرد جدید است - ممکن است علاقه مند به استفاده از یک ماکرو برای ایجاد تغییرات باشید. موارد زیر برای هر سندی فعال است:

Sub MakeItMary()
    Dim c As Comment
    Dim sFind As String
    Dim sReplace As String

    sFind = "Joe"
    sReplace = "Mary"
    For Each c In ActiveDocument.Comments
        c.Range.Text = Replace(c.Range.Text, sFind, sReplace)
    Next
End Sub