كيفية تبديل لون التمييز إلى اللون الأصفر للنص الذي سيتم كتابته في Word 2007؟

Question

في VBA-Macro في MS Word 2007، أريد تبديل لون تمييز النص إلى اللون الأصفر للنص الذي سيتم كتابته بعد ذلك في موضع المؤشر.

إذا كنت أرغب في تغيير لون النص المحدد حاليًا، فيمكنني القيام بذلك باستخدامSelection.Range.HighlightColorIndex = wdYellow

ولكن يبدو أن هذا لن ينجح إلا إذا كان النص موجودًا بالفعل وتم تحديده.هل يمكنني أيضًا ضبط لون التمييز على اللون الأصفر للنص الذي سيتم إدراجه في موضع المؤشر؟

(إي.ز.إذا قمت بالنقر فوق الزر "الخط الغامق" ، فسيكون كل النص المستقبلي جريئًا ، لكن هذا لا يبدو أنه يعمل مع وظيفة الإبلاغ ، أم أن هناك طريقة للقيام بذلك؟)

Answer 1

سيكون كل النص المستقبلي غامقًا

لا، لن يحدث ذلك.بالضغط bold تقوم بوضع علامة على النقطة الحالية في النص على أنها غامقة، وإذا واصلت الكتابة من تلك النقطة، فسيكون النص غامقًا لأنه تتم كتابته من مكان غامق، وليس بسبب الضغط على الزر.إذا قمت بالنقر فوق bold, ، انقل علامة الإقحام إلى مكان آخر واكتبها، فلن تكون بالخط العريض.

الطريقة الصحيحة هي إدراج النص وتطبيق التنسيق على نطاقه.

Dim r As Range
Set r = Selection.Range

r.Collapse wdCollapseStart
r.InsertAfter "Text to insert"
r.HighlightColorIndex = wdYellow