Visual Basic - disculpen pero es urgentisimo como alinear texto de word

Life is soft - evento anual de software empresarial
   
Vista:

disculpen pero es urgentisimo como alinear texto de word

Publicado por David Gonzalez (14 intervenciones) el 06/07/2011 19:53:45
Este es el codigo que tengo , pero me sale error variable no defiina y me señala esta variable wdAlignParagraphCenter, que debo hacer ?, gracias de antemano
necesita saber como definir esta variable , como hago ? , la funcion trabaja bien si comentareo esa linea donde esta esa variable

Private Sub CmdTraslada_Click()
Dim objWord As Object
Dim objSelection As Object
Dim objDoc As Object
Dim X As Long
' referencia a la aplicación
Set objWord = CreateObject("Word.Application")
' referencia al nuevo documento
Set objDoc = objWord.Documents.Add()
' referencia a la selección
Set objSelection = objWord.Selection

'aqui lleno unas variables para el docuemento
Call MiContrato

With objSelection
' formato de fuente para el título
.Font.Name = "Arial"
.Font.Size = "11" ' tamaño
.Font.Color = vbBlack ' color de la fuente
.Font.Bold = True
'salto de linea
.TypeParagraph
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText NumContrato
.TypeParagraph
.TypeParagraph
.TypeText TipoContrato
.TypeParagraph
.TypeParagraph
.TypeParagraph

.Font.Name = "Tahoma"
.Font.Size = "11" ' tamaño
.Font.Color = vbBlack ' color de la fuente
.Font.Bold = False
.TypeText Primero
End With

' guarda el doc y descarga las referencias
With objWord.ActiveDocument
.SaveAs "c:\" & NumContrato & ".doc"
.Close
End With
objWord.Quit

Set objSelection = Nothing
Set objDoc = Nothing
Set objWord = Nothing

If Err.Number = 0 Then
MsgBox "Documento guardado en c:\ " & NumContrato & ".doc", vbInformation, Titulo
End If
X = ShellExecute(Screen.ActiveForm.hWnd, "open", "C:\" & NumContrato & ".doc", vbNullString, vbNullString, 1)

Exit Sub
error_Handler:
MsgBox Err.Description, vbCritical, Titulo
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder