进度条如何同步？

Question

我在调用word生成文档时候，生成的时间有点长，我想添加一个进度条，但不知道这个时间该怎么设置。我设置进度条时进度条的时间和文本生成的时间没有同步（也就是说进度条结束时文本还没有完全生成）。这个该怎么控制？同时想进度条上显示百分比该怎么设置呀？恳请达人们帮帮忙，谢谢啦先！
Private Sub Command2_Click()CommonDialog1.ShowSave
Dim WordApp As Word.Application
Dim newDoc As Word.Document
    Set WordApp = New Word.Application
    Set newDoc = WordApp.Documents.Add
WordApp.Caption = "生成的文档"
WordApp.Visible = False        Call TT(WordApp)                '文档的内容1
        Call hh(WordApp)                 '文档的内容2
        .ParagraphFormat.CloseUp
        newDoc.SaveAs (CommonDialog1.FileName)
        newDoc.Close
        Set newDoc = Nothing
        WordApp.Quit
        Set WordApp = Nothing
End Sub
以前发过一个这样的帖子，网友也给我提了很多的建议，但现在还是没有把这个问题很好的解决。
http://topic.csdn.net/u/20081204/16/aa5f73ba-1857-4f5c-b0ba-4dc40a8e8ddb.html
总量的该如何统计？关键是要进度条和word的生成是同步的，生成结束进度条也就完成，我试了好多次都没有好的解决办法。
恳请大家帮帮忙，看看这个该如何设置。

Answer 1

生成Word文档是由word内部实现的，不好办！

Answer 2

一般我再新建一个FORM 上面拉个LABEL 写上"正在生成文件"等字样.
正在生成的时候调用 ,生成完之后就关闭....

Answer 3

自己估算每一步的大概进度，比如按以下比率设置进度
Call TT(WordApp) 0%～45%
Call hh(WordApp) 46%～90%
newDoc.SaveAs (CommonDialog1.FileName) 91%～100%两函数内部再按照填充的数据量，来细分各自的 45%。