You may try:dim WD As WOrd.applicationset wd = new word.applicationwd.documents.open ("document path")wd.visible = true......If Cells(i,1)="OK" thenWD.selection.font.name = "target font"WD.Selection.Font.Size = 10End If