محمد طاهر عرفه قام بنشر يونيو 7, 2019 مشاركة قام بنشر يونيو 7, 2019 غابا يجتاج الباحث الي تعديل تنسيق ما ذكر بين الأقواس ليجعله بخط مائل و للتطبيق على كافة محتويات الملف دفعة واحدة و ليست المنطقة المختارة فقط 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 و يمكن ايضا عمل ذلك بعدة طرق بديلة كما هو فى الموضوع الأصلي 2 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 26, 2019 مشاركة قام بنشر يونيو 26, 2019 رائع أستاذ محمد بارك الله فيك وجعله في ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.