Cursos de Excel para empresas programados de todos los niveles.
Destinados a aquellos departamentos con necesidades de explotar las hojas de cálculo.
• Cursos personalizados: donde tú decides qué es lo que necesitas.
• o Cursos estándar o general: para aprender diferentes aspectos de Excel.
Puedes informarte y leer más en Formación Excel para empresas por Excelforo.
Por supuesto, puedes optar por la oferta de Cursos de Excel y Macros en modalidad elearning (online):
Con la confianza de siempre....Anímate!!
Exige tu factura... es tu derecho.
Destinados a aquellos departamentos con necesidades de explotar las hojas de cálculo.
• Cursos personalizados: donde tú decides qué es lo que necesitas.
• o Cursos estándar o general: para aprender diferentes aspectos de Excel.
Puedes informarte y leer más en Formación Excel para empresas por Excelforo.
Por supuesto, puedes optar por la oferta de Cursos de Excel y Macros en modalidad elearning (online):
Curso Excel Financiero
(ver más)Curso Tablas dinámicas en Excel
(ver más)Curso Excel Avanzado para versiones 2007/2010
(ver más)Curso Excel Medio 2007/2010
(ver más)Curso Macros Iniciación
(ver más)Curso Macros Medio
(ver más)Curso preparación MOS Excel 2010 (Examen 77-882)
(ver más)Con la confianza de siempre....Anímate!!
Exige tu factura... es tu derecho.
hola que tal, mi nombre es Andrés y espero que puedan ver mi consulta a través de sus pantallas, pero tengo una consulta ya que soy novato en el tema de las macros y quiero aprender.
ResponderEliminartengo este código para poder tomar un archivo word luego agregar los datos, y finalizar guardando este archivo como pdf, pero no resulta ya que lo utilizo como objeto. la verdad es que quiero aprender pero no se mucho y de verdad se que lo estoy haciendo mal, pero no me ha resultado mucho algunos tips en google. les dejo el código. saludos y gracias por la ayuda
Private Sub Crear_Click()
Dim datos(0 To 1, 0 To 6) As String '(columna,fila)
Line = 7
E = 0
While Cells(Line, 1) <> ""
patharch = ThisWorkbook.Path & "\XX_XXX_MAO4_3G_850_NewSite.docx"
Set objword = CreateObject("Word.Application")
objword.documents.Add template:=patharch, NewTemplate:=False, DocumentType:=0
datos(0, 1) = "[SITE]"
datos(1, 1) = Hoja1.Cells(Line, 1)
'datos(columna,fila) = Hoja1.cells(fila,columna)
datos(0, 5) = "[NAME-CREATOR]"
datos(1, 5) = Hoja1.Cells(Line, 5)
'datos(columna,fila) = Hoja1.cells(fila,columna)
datos(0, 3) = "[DATE-CREATION]"
datos(1, 3) = Hoja1.Cells(Line, 3)
'datos(columna,fila) = Hoja1.cells(fila,columna)
For i = 0 To UBound(datos, 2)
textobuscar = datos(0, i)
objword.Selection.Move 6, -1
objword.Selection.Find.Execute FindText:=textobuscar
While objword.Selection.Find.found = True
'LO QUE HACE ES TOMAR EL VALOR QUE ENCUENTRA EN DATOS(1, NUMERO) Y LO REEMPLAZA
objword.Selection.Text = datos(1, i) 'texto a reemplazar
objword.Selection.Move 6, -1
objword.Selection.Find.Execute FindText:=textobuscar
Wend
Next i
sitio = Cells(Line, 1)
band = Cells(Line, 4)
cadena = sitio & "_MAO4_3G_" & band & "_NewSite"
'objword.ActiveDocument "D:\Cesar Arauna\Excel\MAO2013\" & cadena & ".pdf", OutputFileName:=ExportFormat:= wdExportFormatPDF
objword.Quit
Set objword = Nothing
'Application.ScreenUpdating = True
Line = Line + 1
Wend
'Application.DisplayAlerts = True
MsgBox ("Los archivos ya estan creados")
End Sub
Hola Cesar,
Eliminarla verdad me pierdo en qué quieres hacer con la parte media del código
objword.Selection.Move 6, -1
objword.Selection.Find.Execute FindText:=textobuscar
While objword.Selection.Find.found = True
'LO QUE HACE ES TOMAR EL VALOR QUE ENCUENTRA EN DATOS(1, NUMERO) Y LO REEMPLAZA
objword.Selection.Text = datos(1, i) 'texto a reemplazar
objword.Selection.Move 6, -1
objword.Selection.Find.Execute FindText:=textobuscar
pero si quieres crear un archivo en Word desde Excel, e incorporar cierta información en ese Docx., prueba con algo como esto:
Sub CrearNuevoDoc()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
With wrdDoc
For i = 7 To 10
.Content.InsertAfter "Dato---" & Hoja1.Cells(i, 1)
.Content.InsertParagraphAfter
Next i
If Dir("E:\Excelforo\NuevoDoc.docx") <> "" Then
Kill "E:\Excelforo\NuevoDoc.docx"
End If
.SaveAs ("E:\Excelforo\NuevoDoc.docx")
.Close
End With
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
Y lo más importante, añade la referencia de Word !!
Espero te pueda orientar.
Slds