Método Application.InchesToPoints (Word)

Convierte una medida de pulgadas a puntos (1 pulgada = 72 puntos). Devuelve la medida convertida como un valor único.

Sintaxis

expresión. InchesToPoints( _Inches_ )

expresión Variable que representa un objeto Application. Opcional.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Inches Obligatorio Single Valor en pulgadas que va a convertirse a puntos.

Ejemplo:

En este ejemplo, se establece el espaciado anterior a los párrafos seleccionados en 0,25 pulgadas.

Selection.ParagraphFormat.SpaceBefore = InchesToPoints(0.25)

En este ejemplo, se imprimen todos los documentos abiertos después de establecer el valor de los márgenes derecho e izquierdo en 0,65 pulgadas.

Dim docLoop As Document 
 
For Each docLoop in Documents 
 With docLoop 
 .PageSetup.LeftMargin = InchesToPoints(0.65) 
 .PageSetup.RightMargin = InchesToPoints(0.65) 
 .PrintOut 
 End With 
Next docLoop

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.