Excel - Insertar línea en Word sin espaciado desde VBA

   
Vista:

Insertar línea en Word sin espaciado desde VBA

Publicado por Daniel (1 intervención) el 23/05/2016 22:51:46
Hola,

Estoy creando una macro en la cual requiero "presionar enter" pero con el formato de "Sin Espaciado" de Word.

En el adjunto pongo el archivo de Excel con el cual estoy generando el archivo. Con el código que tengo ahí me genera el cambio de línea en Word, pero con un espaciado, como lo podrán comprobar si la ejecutan.

En el archivo de Word adjunto pongo el formato en el que requiero que me imprima el aplicativo.

Quisiera saber como automatizar este procedimiento.

De antemano mil gracias.

Saludos.
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
Imágen de perfil de Andres Leonardo

Insertar línea en Word sin espaciado desde VBA

Publicado por Andres Leonardo (485 intervenciones) el 24/05/2016 16:07:30
Hola Daniel

Intenta agregando esto a tu documento te paso la macro completa incluyendo las dos lineas que aumente

1
2
3
4
'************esto aumente despues de crear el documento***************
    wordapp.Selection.WholeStory  'esto aumente
    wordapp.Selection.Style = wordapp.ActiveDocument.Styles("Sin espaciado")  'espero te ayude
'***********************************************************************************



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub CertificadoLaboral()
Dim wordapp As Word.Application
Dim i, a, b, c As Integer
Dim fs As FileSystemObject
Dim Documento As Document, objselection As Selection
Dim Ruta, Nombre(1 To 2) As String
Set wordapp = New Word.Application
wordapp.Visible = True
Set fs = New FileSystemObject
 
For i = 1 To 2
Nombre(i) = Cells(i + 1, 1) & " " & Cells(i + 1, 2)
Next i
 
Set Documento = wordapp.Documents.Add
Documento.Select
Set objselection = wordapp.Selection
 
objselection.TypeText Nombre(1)
Call espacios(objselection, 1)
objselection.TypeText Nombre(2)
 
'************esto aumente ***************
    wordapp.Selection.WholeStory  'esto aumente
    wordapp.Selection.Style = wordapp.ActiveDocument.Styles("Sin espaciado")  'espero te ayude
'*********************************************
 
 
Set fs = Nothing
Set objselection = Nothing
Set Documento = Nothing
Set wordapp = Nothing
 
Application.DisplayAlerts = True
 
End Sub
Public Sub espacios(seleccion As Selection, lineas As Integer)
Dim i As Integer
For i = 1 To lineas
    seleccion.TypeParagraph
Next i
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar