تكرار الأمر آليا داخل ماكرو الوورد

[atef_k@hotmail.com]

أنا عملت ماكرو داخل الوورد وأريد تكرار هذا الأمر آليا إلى أن يصل إلى آخر الملف بدون أن أحدد عدد مرات التنفيذ فكيف يتم ذلك مشكورين؟

[محمد طاهر عرفه]

هذا يتوقف على الامر  هل ينفذ على الكلمة او الحرف او السطر ، فلكل منها طريقة تكرار للتنفيذ

و فى كل الاحوال يتم عمل loop لتكرار التنفيذ او استخدام امر مثل Find لتنفيذ الاستبدال للمجموعة المختارة

بعض الامثلة

 

للكلمات

For i = 1 To Selection.Words.Count
          With Selection.Words(i)
               If IsNumeric(.Text) Then
                    .Text = "(" & Trim(.Text) & ")"
                     i = i + 1
                End If
          End With
        Next i

او

    For Each R_o_w In ActiveDocument.Words
        R_o_w.Select
        If Len(Selection) = 0 Then R_o_w.Delete Unit:=wdCharacter, Count:=1
    Next

استخدام Find

With Selection.Find
        .Text = "^p"
        .Replacement.Text = "، "
             
End With
    Selection.Find.Execute Replace:=wdReplaceAll