طلب مساعدة: ms-word2013 find&replace code

[egyblind]

الأعضاء الكرام
ارجو مساعدتي لعمل هذه المهمة والتي تتكرر معي كثيراً
أريد كود يقوم بعملية تحويل الخط font converter
أي مثلا من TimesNew Roman إلى  Tahoma
مع الحفاظ على حالة الحرف كبير أم صغير وتنسيقه من حيث الحجم والسمك والمحازاة..
وربطه بقاعدة بيانات .mdb or .xls بها الحرف أو الكلمة والحرف والكلمة التي أريد استبداله به
باختصار تطبيق ما يوجد بهذا الجدول اعتماداً على تغيير نوع الخط من times new roman إلى tahoma مع الحفاظ على التنسيق والحجم والمحازاة..
 شاكر جدا لمساعدتكم

egy-blind

 

[رفعت يسري حامد]

أخي الكريم هذا الكود مشروع ماكرو

قبل القيام بتنفيذه قم بالتحديد على الفقرات التي تريد تحويل نوع الخط فيها

Sub change_font()
'
' change_font Macro
'
'
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 16
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
        .SizeBi = 16
        .NameBi = "Tahoma"
        .BoldBi = False
        .ItalicBi = False
        .Ligatures = wdLigaturesNone
        .NumberSpacing = wdNumberSpacingDefault
        .NumberForm = wdNumberFormDefault
        .StylisticSet = wdStylisticSetDefault
        .ContextualAlternates = 0
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

أما عن ربط قاعدة أكسس مع وورد أكسل أو كقاعدة بيانات مرتبطة فلا أعرفها بصراحة

[egyblind]

عزيزي اعتزر للخطأ نسخة ال office لدى 2003, المشكلة اني مثلا أريد تغيير الكلمة hello المكتوبة بخط times-newroman إلى hi بخط tahoma

هذا مجرد مثال للتوضيح فلا يمكن أن أقوم بتغيير الخط قبل الكلمة

اشكر مرورك

[رفعت يسري حامد]

ممكن من غير برمجة خالص

تقوم بعمل عن طريق البحث والاستبدال

* تقوم بعمل بحث عن كلمة hello

ثم اختر البحث عن (وسوف تجد التحديد يقع على كل كلمة hello  بداخل المستند

تستطيع تغييرها بكلمة أخرى عن طريق paste  

وأيضًا تستطيع تغيير الخط على التحديد

* يوجد مثال مرفق عسى أن يكون مشابه لما تبحث عنه.

 

تقبل تحياتي

خاصية البحث.rar

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

السلام عليكم

 

راجع هذا الموضوع

به الاستبدال بناء على قاعدة بيانات فى ملف آخر

http://www.officena.net/ib/index.php?showtopic=29408

[رفعت يسري حامد]

أكرمك الله وزادك علمًا وجزاك عنا كل خير