have a column with a number of row in a pivot table??

[#1]

hi all.

          I wan't use macro,for example:

rem ***获得报表行数和列数***

sub getRowColumn

    set mytext = ActiveDocument.GetSheetObject("TX131")

    prop = mytext.GetProperties

    set table = ActiveDocument.GetSheetObject("CH06")

    count=table.GetRowCount-1

    column=table.GetColumnCount

    prop.Layout.Text.v = "报表："&count&"行  "&column&"列"

    mytext.SetProperties prop

end sub

Is there a way  to have a column with a number of row in a pivot table ? Somebody can help me? thanks!