Ancho tablas

Hola;

Tengo otro problemita, es el siguiente:

Estoy trabajando con la macro:

'[]


On Error Resume Next

Set x = GetObject(, "Excel.Application")

If Err Then
problems = True
Set x = New Excel.Application
End If

Set Y = x.Workbooks.Open _
("" & RutaTablas & "")
With Y.Sheets("INDICADORES DE CUMPLIMIENTO")
.[A6:O9].Copy
With Selection
.GoTo What:=wdGoToBookmark, Name:="Indicadores"
.PasteSpecial link:=False
.Tables(1).Rows.Alignment = wdAlignRowLeft
.Tables(1).PreferredWidth = CentimetersToPoints(15)
End With
End With

x.Quit
Set Y = Nothing:
Set x = Nothing

'[]

Esta macro lo que hace es ir a una hoja de calculo de excel, copiar unas
tablas y pegarlas en un documento de Word, en el marcador asignado.

Se supone que la linea:

.Tables(1).PreferredWidth = CentimetersToPoints(15)

Lo que hace es condicionar el ancho de la tabla segun el valor que yo le
asigne, pero cuando pega algunas de las tablas las pega tan grandes que se
salen de las margenes y es muy complicado organizarlas.

Esto pasa cuando las tablas en excel, tienen las celdas muy grandes, pero
ese tamaño no lo puedo reducir en excel, ahi alguna forma en que pueda
solucionarlo??'

Muchas gracias.
Jorge Rendon.