Foros del Web » Soporte técnico » Ofimática »

Macro en word

Estas en el tema de Macro en word en el foro de Ofimática en Foros del Web. Buenos dias, tengo un problema con un macro de word. Mi idea es que el usuario corra el macro y la aparezcan inputboxes, las complete ...
  #1 (permalink)  
Antiguo 16/07/2009, 08:09
 
Fecha de Ingreso: julio-2009
Mensajes: 3
Antigüedad: 14 años, 9 meses
Puntos: 0
Macro en word

Buenos dias, tengo un problema con un macro de word.

Mi idea es que el usuario corra el macro y la aparezcan inputboxes, las complete y aparezca el texto en el documento en una ubicacion ya definida(bookmark).

Logro que aparezcan los IB pero no puedo hacer que me imprima el input en el documento.

Esto es lo que tengo por el momento:

Sub macro1()
Dim nom As String
Dim emp As String
Dim dir As String
Dim loc As String

nom = InputBox("Escriba el nombre", nombre)
emp = InputBox("Escriba la empresa", empresa)
dir = InputBox("Escriba la dirección", dirección)
loc = InputBox("Escriba la localidad", localidad)

Set myrange = ActiveDocument.Range.Bookmarks("nombre")
myrange.Print nom
Set myrange = ActiveDocument.Range.Bookmarks("empresa")
myrange.Print emp
Set myrange = ActiveDocument.Range.Bookmarks("direccion")
myrange.Print dir
Set myrange = ActiveDocument.Range.Bookmarks("localidad")
myrange.Print nom


End Sub

Muchas gracias
  #2 (permalink)  
Antiguo 16/07/2009, 12:42
Avatar de eledgarr  
Fecha de Ingreso: octubre-2008
Ubicación: La ciudad de la esperanza
Mensajes: 133
Antigüedad: 15 años, 6 meses
Puntos: 3
Respuesta: Macro en word

INTENTA ESTO


Set myrange = ActiveDocument.Range.Bookmarks("nombre")
myrange.TypeText nom
Set myrange = ActiveDocument.Range.Bookmarks("empresa")
myrange.TypeText emp
Set myrange = ActiveDocument.Range.Bookmarks("direccion")
myrange.TypeText dir
Set myrange = ActiveDocument.Range.Bookmarks("localidad")
myrange.TypeText nom
  #3 (permalink)  
Antiguo 17/07/2009, 06:30
 
Fecha de Ingreso: julio-2009
Mensajes: 3
Antigüedad: 14 años, 9 meses
Puntos: 0
Respuesta: Macro en word

eledgarr, agradezco tu respuesta pero lamentablemente me sucede lo mismo. Me aparecen las IB pero no me imprime el input. Puede ser que haya que dimensionar "myrange"? En ese caso como que tipo de variable?

Muchas Gracias
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 14:10.