How to Autofit Contents all tables in Word Document with vbscript

Question

I have a word document with several tables in it with variable column and rows

My Goal is to write a vbscript file which Autofits every table according to its context