в экселе:
With Range("A1:D1") ' ("A1:D1") - твой диапазон
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
в ворде (как в тексте, так и в таблице):
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Stepler ^{(щёлк-щёлк!!)}