una - Abra la plantilla de Word, pegue los datos de Excel y guárdelos

vincular datos de excel a word

Question

Tengo un rango de datos de Excel que necesito para pegar en una plantilla de documento de Word y guardar automáticamente usando una macro de Excel.

Actualmente, cuando se ejecuta, me dice que el archivo de la plantilla ya está abierto / bloqueado y que tengo que abrir una copia de solo lectura para que continúe. Crea y guarda el archivo de palabras, pero cuando intento abrir el documento guardado dice que hay problemas con los contenidos.

Busqué en Google y creo que estoy cerca, pero si alguien me puede dar algunos consejos que serán apreciados.

Option Explicit
Sub CopyExcelDataToWord2()
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim wsSource As Excel.Worksheet
Dim docWordTarget As Object
Dim SaveAsName As String
Dim customSavePath As String
Dim nameFile, WordName2
Dim ColRange As Range
Set wdDoc = wdApp.Documents.Open("C:/test/templ.dotx")
wdApp.Visible = True
''Cell with the filename to save final doc as
nameFile = Sheets("Form").Cells(70, 1).Value
''Gets the file path from cell and adds variable ''nameFile'' value to the end
customSavePath = Worksheets("Form").Cells(57, 1).Value & "/" & nameFile & ".docx"
''sets the variable wsSource to the activesheet
Set wsSource = ThisWorkbook.ActiveSheet
Set ColRange = Sheets("Form").Range("A1:D54")
''if no data is selected then exit sub
If ColRange Is Nothing Then
Exit Sub
''sets variable WordName2 to the selected columns address
Else
''sets variable WordName2 to column Range
WordName2 = ColRange.Address
End If
''With word document make visible and select
With wdApp
.Visible = True
Set docWordTarget = .Documents.Open("C:/test/templ.dotx")
.ActiveDocument.Select
End With
''With excel workbook copy the column selected previously
With wsSource
.Range(WordName2).Copy
End With
''Paste data into word doc
With wdApp.Selection
.PasteExcelTable linkedtoexcel:=False, wordformatting:=False, RTF:=False
.TypeParagraph
End With
With wdApp
''Save word doc in the custom save path
.ActiveDocument.SaveAs Filename:=customSavePath
.ActiveWindow.Close
'' Kill the Object
.Quit
End With
MsgBox "Exported To:" & vbNewLine & vbNewLine & (customSavePath)
Set docWordTarget = Nothing
Set wdApp = Nothing
Application.CutCopyMode = False
End Sub

Answer 1

Pruebe documents.add en lugar de documents.open

Abrirá una instancia de la plantilla, en lugar de la plantilla misma

Answer 2

En primer lugar, está recibiendo un error de bloqueo porque la instancia de la palabra todavía se está ejecutando en segundo plano y bloqueando el archivo que está intentando volver a abrir. Puede verificar eso con el administrador de tareas. Para evitar este error, puede:

• matar el proceso WinWord.exe en el administrador de tareas
• use wdApp.documents.Add en lugar de .open

O (mejor)

• Escriba una función que ejecute la aplicación de palabras en segundo plano o, si no tiene ninguna, cree una nueva. Esta es la mejor opción de IMO, ya que no tendrá el riesgo de tener muchos procesos de Word invisibles ejecutándose en segundo plano.

  Private Function GetWordApp() As Word.Application
  On Error Resume Next
  Set GetWordApp = GetObject(, "Word.Application")
  If GetWordApp Is Nothing Then Set GetWordApp = New Word.Application
  End Function