Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Visual Excel 2010 a Word, crear tabla en posicion determinada

Estas en el tema de Visual Excel 2010 a Word, crear tabla en posicion determinada en el foro de Visual Basic clásico en Foros del Web. Buenos Días a los Integrantes de este foro: Reciban un cordial saludo, hoy como siempre acudiendo a sus conocimientos y su ayuda profesional, estoy usando ...
  #1 (permalink)  
Antiguo 28/03/2014, 09:58
 
Fecha de Ingreso: agosto-2011
Ubicación: Bogota
Mensajes: 37
Antigüedad: 12 años, 7 meses
Puntos: 1
Visual Excel 2010 a Word, crear tabla en posicion determinada

Buenos Días a los Integrantes de este foro:

Reciban un cordial saludo, hoy como siempre acudiendo a sus conocimientos y su ayuda profesional, estoy usando office 2010 creado un archivo de word desde excel usando, visual basic excel, logre crear el archivo, pero resulta que le voy a crear tablas en diferentes partes del documento de word pero no me lo permite o la crea al inicio o al final del documento, y la verdad no se como posicionarla en donde la estoy creando, tengo el siguiente codigo:

Private Sub gen_arc_word_Click()
Dim wordapp As Word.Application
Dim fs As FileSystemObject
Dim documento As Document, objselection As Selection
Dim camino As String
Dim fila, i As Integer
Dim oDoc As Word.Document
Dim parrf As Integer
parrf = 1
Set wordapp = New Word.Application
Set fs = New FileSystemObject
Dim ctd_core As Integer
ctd_core = Range("B3").Value
Range("A2").Select
'contar filas
fila = Cells(Rows.Count, 1).End(xlUp).Row
Dim nom_arch, fecha, dia, aula As String
nom_arch = Range("B1").Value
Set documento = wordapp.Documents.Add
Set objselection = wordapp.Selection
With objselection.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.InlineShapes .AddPicture Filename:=Sheets("configuracion").Range("B2").Valu e, LinkToFile:=False, SaveWithDocument:=True
.Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter
End With

objselection.InsertNewPage
objselection.InlineShapes.AddPicture ("C:\Users\user\Desktop\prueba.png")
objselection.Collapse Direction:=wdCollapseEnd
objselection.InsertParagraph

// aqui viene el tema

objselection = documento.Range()
Set objRange = documento.Paragraphs(3).Range
objRange.MoveEnd Unit:=wdCharacter, Count:=-1
objRange.Collapse Direction:=wdCollapseEnd
objselection.Tables.Add Range:=objRange, NumRows:=2, NumColumns:=3
objselection.TypeText Sheets("configuracion").Range("H10").Value
Range("a1").Select
camino = ThisWorkbook.Path & " " & nom_arch
documento.SaveAs Filename:=nom_arch & ".doc", _
FileFormat:=wdFormatDocument
documento.Close savechanges:=True
MsgBox (nom_arch & ".doc")
wordapp.Application.Quit
Set fs = Nothing
Set objselection = Nothing
Set documento = Nothing
Set wordapp = Nothing

End Sub

De antemano les agradezco su ayuda y su atención.

Atentamente;


OSWALDO GAITAN ARAQUE
Bendiciones!!

Etiquetas: basic, excel, posicion, tabla, tablas, visual, word
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:48.