Well, I'm replying to myself, just for people having the same problem in the future
Code:
Sub Macro1()
'
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
pT.PreferredWidth = MillimetersToPoints(170)
Next
MsgBox "done"
End Sub
170 is the width of the tables given in mm.