Definir ancho de columnas de tablas Word mediante código VBA

Sí, es posible. Aquí tienes un código VBA que ajusta las anchuras de las columnas para todos los cuadros de tabla en un documento de Word seleccionado, aplicando las medidas que indicas, y fusionando la primera fila de cada tabla:

Sub AjustarColumnasTablaSeleccionadas()
Dim tbl As Table
Dim i As Integer
Dim targetWidth(1 To 5) As Single
Dim firstRowMerged As Boolean

' Dimensiones en centímetros
' Convertir a puntos (1 cm = 28.3465 puntos)
targetWidth(1) = 1.7 * 28.3465
targetWidth(2) = 1.6 * 28.3465
targetWidth(3) = 1.0 * 28.3465
targetWidth(4) = 3.0 * 28.3465
targetWidth(5) = 1.8 * 28.3465

' Normalmente la primera fila no está fusionada; si se desea fusionar
' la primera fila de cada tabla, se ajusta en el bucle.

For Each tbl In ActiveDocument.Tables
' Asegurarse de que la tabla tiene al menos 5 columnas
If tbl.Columns.Count >= 5 Then
' Fusionar la primera fila entre las columnas 1 a 5 (si se desea)
With tbl.Rows(1)
.Cells(1).Merge MergeTo:=.Cells(5)
End With
' Establecer anchos de columna (columna 1 a 5)
For i = 1 To 5
tbl.Columns(i).Width = targetWidth(i)
Next i
End If
Next tbl
End Sub

Notas:
- El código fusiona la primera fila de cada tabla de la forma: celda(1) a celda(5) de la fila 1.
- Las anchuras se fijan en centímetros tal como indicas: 1,7 cm, 1,6 cm, 1 cm, 3 cm y 1,8 cm.
- El valor de conversión a puntos se usa para establecer el ancho; Word maneja puntos internamente.
- Si no quieres fusionar la primera fila, elimina la sección de Merge.

Para usar:
1) Abre Word, pulsa Alt+F11 para abrir el Editor de VBA.
2) Inserta un módulo nuevo y pega el código.
3) Cierra el editor y ejecuta la macro AjustarColumnasTablaSeleccionadas desde Macros.

Si necesitas que la macro opere solo en tablas seleccionadas o en rangos específicos, dímelo y te adapto el código.