أخي الكريم هذا الكود مشروع ماكرو
قبل القيام بتنفيذه قم بالتحديد على الفقرات التي تريد تحويل نوع الخط فيها
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
أما عن ربط قاعدة أكسس مع وورد أكسل أو كقاعدة بيانات مرتبطة فلا أعرفها بصراحة