[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