用VB怎样将Word中表格的文字居中,居左,居右

用VB怎样将Word中表格的文字居中,居左,居右

Dim WDApp As New Word.Application
Dim WDDoc As New Word.Document
Set WDDoc = WDApp.Documents.Add
WDDoc.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
WDApp.Selection.Tables(1).Cell(1, 2).Select
WDApp.Selection.TypeText Text:="5555"

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify追问Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
是全部居中和全部居右吧？
能不能设置各单元格？追答本身就是设置被选中的单元格
上面的WDApp.Selection.Tables(1).Cell(1, 2).Select就是指出第一个表的具体某个格子Cell(1, 2).被选中
所以，能设置各单元格，我给你的代码就是设置某一个格子追问好的知道了，我试试，希望能够成功，先谢谢你。
如果没有问题，晚上加分。追答有问题请追问

在word里,采用录制宏的办法,把对表格里文字设置居中和左对齐、右对齐的操作记录下来，打开看一下，应该看得懂。