I used your code to get to my solution for the same problem. Here is my workin solution:
set a = ActiveDocument.Variables("varLastSortMenge")
var1 = a.GetContent.String
set quelle1 = ActiveDocument.GetSheetObject("CH45")
sort1 = quelle1.GetProperties.TableProperties.InterFieldSortOrder
ord1 = CStr(sort1(lbound(sort1)))
set ziel1 = ActiveDocument.GetSheetObject("CH60")
if var1 = ord1 then
ActiveDocument.Variables("varLastSortMenge").SetContent ord1, true
Hope I could help. Variable in document musst be set before... but this is self-explanatory...
In a straight table you can sort any column(it is by default).
So rather than definging a macro go to chart properties -->sort -->select 1st dimension (for which you wanna apply default sorting) Keep it at the top -->select descending(if numeric field) or Z-A(if text field).
then save your document.
Next time when you will open the document you will have desired sorted table.
Think we knew this before.
I have an object to show in QV with font-size 9 and the same object to use as printreport font-size 6 to fit on page. Users should not see the reportobjects. So I have to read sort from QV-shown-object and send it to my report-object.
You have better solution for this without macro...? I need one.