Índice

Solución 16.2 Crear un documento Word

Zona de declaración:

Private strRuta As String

Código para la ruta:

Sub Ruta()  
  strRuta = ThisWorkbook.Path & "\Recursos\"  
End Sub

Código para crear un documento Word:

Sub CrearDocWord()  
  Dim wd As Word.Application  
  Dim docWord As Word.Document  
  Call Ruta 
  Set ...