Visual Basic - AYUDA URGENTE...VB CON WORD

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA URGENTE...VB CON WORD

Publicado por miguel (1042 intervenciones) el 07/06/2004 21:47:17
Gracias de antemano:
Estoy haciendo una pantalla me imprima un documento de word que previamente ya esta redactado como carta, el problema es que me inserte en la carta de word el nombre del proveedor,puesto y nombre la compañia,
la pregunta es ¿como le le hago para insertar los datos?
Nota: Se como abrir el archivo el problema es como remplazar texto y que quede en el mismo lugar sobre todo.
Ejemplo:
Lo que esta entre ("") es lo que necesito remplazar. este el cuerpo de la carta.....
Por medio de la presente aprovecho para saludarlo y así mismo solicitarle carta de apoyo y cotización separada para
participar en el concurso "aquiocupoinsertar" que lleva por nombre “nombre 1” y “nombre2” y se llevará a cabo en esta Ciudad el próximo día "06 de Junio de 2004".

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA URGENTE...VB CON WORD

Publicado por Cecilia Colalongo (3117 intervenciones) el 09/06/2004 14:37:59
Para esos casos es más prudente usar campos que hacer reemplazos, igualmente si grabas una macro en Word y copias el código ya lo obtienes.

Con reemplazos:

With objWord
.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
With .Selection.Find
.Text = ChrW(8220) & "nombre 1" & ChrW(8221)
.Replacement.Text = "Prueba"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
.Selection.Find.Execute Replace:=wdReplaceAll
End With

Con campos sería de ésta forma:

Dim objWord As Word.Application, objField As Word.FormField
Set objWord = New Word.Application

objWord.Documents.Open App.Path & "\PruebaForm.doc"

Set objField = objWord.ActiveDocument.FormFields.Item("Text1")
objField.Result = "Hola, hoy es " & Now

Set objField = objWord.ActiveDocument.FormFields.Item("Check1")
objField.CheckBox.Value = True

Set objField = objWord.ActiveDocument.FormFields.Item("DropDown1")
objField.DropDown.Value = 2

objWord.Visible = True
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar