السؤال هو : كتابة ماكرو داخل زر امر يقوم عند الضغط عليه بأظهار inputbox تسمح للمستخدم بادخال اي كلمة او قيمة للبحث عنها داخل المستندوعند ايجادها يقوم بجعلها Bold سميكة
الحل المنطقي :
Sub a()
x = InputBox("ادخل القيمة المراد البحث عنها")
For i = 1 To Documents(1).Words.Count
Documents(1).Words(i).Select
If Selection.Text = x Then
Documents(1).Words(i).Font.Bold = True
End If
Next i
End Subالمشكلة : انه لا يعمل