[Excel-VBA]Texto formateado hacia Word
alpair
Mensajes publicados
1
Estado
Miembro
-
Dartagnan123 -
Dartagnan123 -
Hola a todos,
Conduzco un documento de Word desde Excel en VBA. Quiero escribir un texto con el formato (negrita + cursiva) en la ubicación de una marca de Word, pero solo consigo escribir texto plano.
He intentado pasar por el portapapeles pero eso falla.
Aquí mi pequeño fragmento de código:
Dim MonText As String
MonText = "Top le forum de CCM"
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Open("C:\Test.doc")
'----------- Lo que funciona ----- :-) ---------
wordDoc.Bookmarks("ICI").Range.Text = MonText
'----------- Lo que no funciona :-( ------
With wordDoc.Bookmarks("ICI")
.Range.Font.Size = 20
.Range.Bold = wdToggle
.Range.Italic = wdToggle
.Range.Text = MonText
End With
Esto lleva 2 días dando vuelta a foros, que son instructivos pero desafortunadamente sin resultado. ¿Un pequeño empujón?
Gracias
Conduzco un documento de Word desde Excel en VBA. Quiero escribir un texto con el formato (negrita + cursiva) en la ubicación de una marca de Word, pero solo consigo escribir texto plano.
He intentado pasar por el portapapeles pero eso falla.
Aquí mi pequeño fragmento de código:
Dim MonText As String
MonText = "Top le forum de CCM"
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Open("C:\Test.doc")
'----------- Lo que funciona ----- :-) ---------
wordDoc.Bookmarks("ICI").Range.Text = MonText
'----------- Lo que no funciona :-( ------
With wordDoc.Bookmarks("ICI")
.Range.Font.Size = 20
.Range.Bold = wdToggle
.Range.Italic = wdToggle
.Range.Text = MonText
End With
Esto lleva 2 días dando vuelta a foros, que son instructivos pero desafortunadamente sin resultado. ¿Un pequeño empujón?
Gracias
Configuración: Windows XP Internet Explorer 6.0 Office 2003
Trabajo desde VBA de Excel 2003 en un documento de Word.
¿Sabes cómo realizar la selección de texto desde VBA de Excel en un documento Word para modificar el formato en negrita solo en una parte de una frase (por ejemplo una palabra)?
Gracias