تیم تعجب می کند که آیا می توان از Find and Replace برای جستجو و مکان یابی جعبه های متن استفاده کرد. او می‌خواهد جعبه‌های متنی را جستجو کند و هر یک از آنها را با یک تصویر گرافیکی جایگزین کند، زیرا انجام این کار به صورت دستی را تقریباً غیرممکن می‌داند، زمانی که برخی از جعبه‌های متن اساساً در سند او نامرئی هستند.
اگر کادرهای متن شما با متن شما همخوانی دارند، می توانید از Find and Replace برای مکان یابی و جایگزینی آنها استفاده کنید. تنها کاری که باید انجام دهید این است که برگه Replace را در کادر گفتگوی Find and Replace نمایش دهید و در کادر Find What، ^g را وارد کنید. این کد برای پیدا کردن گرافیک است، اما Word با جعبه‌های متنی به‌عنوان گرافیکی وقتی که درون خط هستند رفتار می‌کند.
البته مشکل این است که بیشتر جعبه‌های متن درون خطی نیستند – متن دور آنها قرار می‌گیرد و روی لایه خودشان قرار می‌گیرند. برای این نوع جعبه های متنی باید از یک ماکرو برای جستجو و جایگزینی استفاده کنید. در زیر نمونه ای از مواردی است که می توانید استفاده کنید:
Sub ReplaceTextBox() Dim shp As Shape For Each shp In ActiveDocument.Shapes If shp.Type = msoTextBox Then shp.Select shp.Delete Selection.PasteAndFormat (wdPasteDefault) End If Next End Sub
برای استفاده از ماکرو، گرافیکی را که می خواهید در جایگزینی خود استفاده کنید انتخاب کنید و سپس Ctrl+C را فشار دهید. این گرافیک را در کلیپ بورد قرار می دهد. هنگامی که ماکرو را اجرا می کنید، این گرافیک - تصویر موجود در کلیپ بورد - است که به جای هر کادر متنی در سند قرار می گیرد.
باید توجه داشته باشید که ماکرو تمام کادرهای متن یک سند را با گرافیک جایگزین می کند. اگر می‌خواهید به طور انتخابی جعبه‌های متنی را جایگزین کنید، کدنویسی بسیار پیچیده‌تر خواهد بود.
