Agregue datos de una hoja de cálculo de Excel a un documento de Word.
Estoy intentando agregar datos desde una hoja de Excel a un documento de Word en Office 365 y obtengo el error de tiempo de ejecución 450 (número de argumentos incorrecto o asignación de propiedad no válida). El error ocurre donde coloqué la flecha en Set wdApp
. El documento de Word se abre, en realidad es una plantilla, y el texto deseado se pega en un marcador de posición en el documento de Word.
Sub Bienvenido()
MsgBox "Bienvenido a Math Worksheet Creator."
Dim NumeroDePreguntas Como Entero
NumeroDePreguntas = InputBox("¿Cuántas preguntas desea crear? Puede seleccionar hasta 50.")
Si NumeroDePreguntas > 50 Entonces
MsgBox "No puede seleccionar más de 50 preguntas."
NumeroDePreguntas = InputBox("Por favor, seleccione un máximo de 50 preguntas.")
Final Si
'Abra una plantilla de Word.
Dim wdApp Como Aplicación de Word
<strong>-->Set wdApp = CreateObject("Word.Application")</strong>
<pre><code>Con wdApp
.Visible = Verdadero
.Activate
.Documentos.Agregar "C:\Usuario\Mark\Escritorio\VBA-Python\Plantilla de Hoja de Trabajo.docm"
Fin Con
Range("L4").Copy
wdApp.Selection.GoTo wdGoToBookmark, , , "PreguntaMatemática"
wdApp.Selection.Paste
Con DocumentoActivo.Marcadores
.Agregar Rango:=Selección.Rango, Nombre:="PreguntaMatemática"
.OrdenPredeterminado = wdSortByName
.MostrarOculto = Falso
Fin Con
</code></pre>
Final Sub
davy.ai
El error de tiempo de ejecución 450 ocurre en
Set wdApp = CreateObject("Word.Application")
. Este error puede ser causado por un número incorrecto de argumentos o una asignación de propiedad no válida. Para solucionar este error, asegúrese de que la versión correcta de Word esté instalada en la computadora y de que el código esté escrito para funcionar con esa versión. Otra solución es utilizar la vinculación tardía reemplazandoSet wdApp = CreateObject("Word.Application")
porSet wdApp = CreateObject("Word.Application.16")
. Esto especifica la versión de Word a utilizar y puede prevenir problemas con diferentes versiones de Word.