Escribir campos de texto en Word

03-03-2010, 21:17

MABSoft

Hola a todos , me podrían decir como puedo escribir campos de texto o
TextBox en Word, le doy vueltas y no me sale
Muchas Gracias

03-03-2010, 22:10

joan

Hola:

No se si es exactamente lo que pides, pero por si te sirve de ayuda:

Private Sub Command1_Click()
Dim AppWord As Word.Application
Dim DocWord As Word.Document
'Asignamos el documento
Set AppWord = CreateObject("word.application")
Set DocWord = AppWord.Documents.Open("C:hola.doc")
'Colocamos el texto en el marcador
DocWord.Bookmarks("NombreCreador").Select
AppWord.Selection.TypeText Text:=Text1.Text
'Imprimimos en segundo plano
AppWord.Documents(1).PrintOut Background
'Comprobamos que Word no sigue imprimiendo
Do While AppWord.BackgroundPrintingStatus = 1
Loop
'Cerramos el documento sin guardar cambios
AppWord.Documents.Close (wdDotNotSaveChanges)
'Liberamos
Set DocWord = Nothing
'Nos cargamos el objeto creado
AppWord.Quit
Set AppWord = Nothing
End Sub

04-03-2010, 15:30

MABSoft

Muchas gracias Joan !!!
Voy a probar
"joan" <erbuson> escribió en el mensaje
news:1504
[..]

Temas Similares
escribir palabra en word e insertar texto automaticamente Hay una funcion donde pones tu una palabra o una parte de una palabra y word te da la opción de insertar texto previamente almacenado. recuerdo que era un proceso, pero no...
Escribir Texto en word sin teclado hola a todos. Hay alguna manera de escribir texto en word desde un programa hecho en visual c# 2003, como si se estuviera utlizando el teclado?. Gracias...
No puedo escribir texto en Word. Se cierra Al abrir un Documento de Word con texto, se cierra inmediatamente. Si está vacío, se cierra al tratar de escribir algo. En Office 2003.
escribir texto en un fichero word abierto Necesto alguna forma de grabar o insertar en un documento abierto!! si que me salga el mensaje de aviso de que esta abierto y se va a modificar en una copia de solo...