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