تعديل تنسيق ما بين الأقواس فى برنامج وورد

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

غابا يجتاج الباحث الي تعديل تنسيق ما ذكر بين الأقواس ليجعله بخط مائل 

 و للتطبيق على كافة محتويات الملف دفعة واحدة و ليست المنطقة المختارة فقط

Sub FormatBetBracketsWholeDoc()


    Dim cDoc As Word.Document
    Dim cRng As Word.Range
    
    Set cDoc = ActiveDocument
    Set cRng = cDoc.Content
 
    
    cRng.Find.ClearFormatting
    With cRng.Find
        .Forward = True
        .Text = "("
        .Wrap = wdFindStop
        .Execute
        Do While .Found
            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            cRng.MoveEndUntil Cset:=")", Count:=Word.wdForward
            cRng.FormattedText.Italic = True
            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            .Execute
        Loop
    End With
End Sub

و يمكن ايضا عمل ذلك بعدة طرق بديلة

كما هو فى الموضوع الأصلي

 

[Ali Mohamed Ali]

رائع أستاذ محمد بارك الله فيك وجعله في ميزان حسناتك