Question

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

在VB中已经自动添加了表格，可以根据数据库动态生成表格的行，但是表格中的文字都是居右，如何使用代码将需要居中的单元格文字居中，需要居左的单元格文字居左，我需要的是代码，不是在Word界面的操作。
如果解决，可以加分到100分。

Answer 1

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).被选中
所以，能设置各单元格，我给你的代码就是设置某一个格子

追问

好的知道了，我试试，希望能够成功，先谢谢你。
如果没有问题，晚上加分。

追答

有问题请追问

Answer 2

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