用 CreateOleObject 对word 操作难题

Question

//*****************************************************
    //怎么样改变字体的大小
    //怎么样 使每一行左对齐   右对齐 和 居中对齐？
    //请高手指教  请给出部分代码
    //*****************************************************
    //首先创建对象，如果出现异常就作出提示
    try
        FWord := CreateOleObject('Word.Application');
        //WORD程序的执行是否可见，值为False时程序在后台执行        FWord.Visible := FALSE;    except
        ShowMessage('创建word对象失败！');
        Exit;
    end;    //先在打开的Word中创建一个新的页面，然后在其中键入"Hello,"+回车＋"World！"
    try
        FDoc := FWord.Documents.Add;
        FWord.Selection.TypeText(Text := 'Hello，');        FWord.documents.Range.ParagraphFormat.Align:=Left;//向右
        FWord.Selection.TypeParagraph;
        FWord.Selection.TypeText(Text := 'World! ');        FWord.documents.Range.ParagraphFormat.Align:=Right//中心
        FWord.Selection.TypeParagraph;
        FWord.Selection.TypeText(Text := 'World! ');
    except
        on e: Exception do
            showmessage(e.Message);
    end;
    //*****************************************************
    //怎么样改变字体的大小
    //怎么样 使每一行左对齐   右对齐 和 居中对齐？
    //请高手指教  请给出部分代码
    //*****************************************************

Answer 1

建议使用VBA
我以前就用VBA做的

Answer 2

你为什么要用Selection，怎么不用Tables啊，Tables可以实现隐藏线和设置字体大小的

Answer 3

你得到文档 FDoc 应该有Tables属性，FDoc.Tables.Item().Cell(,).Split(,);可以这样用炸开的方式自己画表格，FDoc.Tables.Item().Cell(,)的属性就有表格宽，高，字体，以及隐藏线之类的属性了

Answer 4

到底怎么搞才行啊！急啊！
Doc.Tables........？？？？？？
还请高手大哥们帮帮忙。