Como Dar Formato En VB A Word

1. 'declaramos los objetos

2. Public MSWord As New Word.Application

3. Public Documento As Object

4.

5. Private Sub cmd_exportar_click()

6.

7. 'Establecemos la ruta de nuestro archivo

8. ruta = App.Path & "\orden.doc"

9.

10. 'Seteamos el archivo al objeto documento

11. Set Documento = MSWord.Documents.Open(ruta)

12.

13. 'opcionalmente podemos guardar el archivo

14. 'en mi caso lo guardo con una extensión diferente (cab|tmp|pot|etc)

15. MSWord.Selection.Document.SaveAs (App.Path & "\printme.cab")

16.

17. 'Establecemos la fuentre que utilizaremos

18. MSWord.Selection.Font.Name = "Arial"

19.

20. 'Configuramos la alineacion de nuestro parrafo

21. MSWord.Selection.Paragraphs.Alignment = wdAlignParagraphCenter

22.

23. 'Activamos la fuente en Negrita

24. MSWord.Selection.Font.Bold = True

25.

26. 'Y el tamaño a 16 puntos

27. MSWord.Selection.Font.Size = 16

28.

29. 'con esta opcion podemos comenzar a escribir dentro de nuestro docuemnto

30. MSWord.Selection.TypeText "Aqui podemos escribir el texto en el documento" & vbCrLf

31.

32. 'Declaramos una tabla de 1 fila por 3 columnas

33. MSWord.Selection.Tables.Add MSWord.Selection.Range, 1, 3

34.

35. 'Seleccionamos la celda 1,2

36. MSWord.Selection.Tables(1).Cell(1, 2).Select

37.

38. 'establecemos el ancho de la celda

39. MSWord.Selection.Tables(1).Cell(1, 2).Width = 70

40.

41. 'configuramos los bordes

42. MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderTop).Visible = True

43. MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderLeft).Visible = True

44. MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderBottom).Visible = True

...