// Die ausgewählte Tabelle.
Set vTbl = SelectedTbl;
// Die aktuelle Breite der Tabelle.
Set vTblWidth = vTbl.TblWidth;
// Die Breite der Spalte, in der sich die Tabelle befindet.
Set vColWidth = vTbl.TextLoc.Object.InTextObj.Width;

// ODER ALTERNATIV:
// Die Breite des Textrahmens, in dem sich die Tabelle befindet.
// Set vColWidth = vTbl.TextLoc.Object.InTextFrame.Width;

// Dividieren der Spaltenbreite durch die Tabellenbreite.
Set vScaleFactor = vColWidth / vTblWidth;

// Dies funktioniert nicht:
// Set vTbl.TblWidth = vTblWidth * vScaleFactor;

// Setzen der Variablen für die Spaltenbreiten der Tabelle.
Set vWidths = vTbl.TblColWidths;

// Schleife durch die Metrikliste und Berechnung der
// neuen Breite jeder Tabellenspalte.
Loop While(vCounter <= vWidths.Count) LoopVar(vCounter)
        Init(1) Incr(1)
  Get Member Number(vCounter) From(vWidths) NewVar(vWidth);
  Set vNewWidth = vWidth * vScaleFactor;
  Replace Member Number(vCounter) In(vWidths) With(vNewWidth);
EndLoop

Set vTbl.TblColWidths = vWidths;