none
Cambiar Texto en Header en Docx RRS feed

  • Pregunta

  • Buenas tardes,

    Necesito modificar un valor que hay en el Header de un word. De momento puedo cambiar el texto de un template con los datos que yo quiero pero no me deja hacer lo mismo en el header.

    Les pongo como lo hago para el "body" del microsoft word :

        Public Sub SearchAndReplace(ByVal document As String)
            Dim wordDoc As WordprocessingDocument = WordprocessingDocument.Open(document, True)
            Using (wordDoc)
                Dim docText As String = Nothing
                Dim sr As StreamReader = New StreamReader(wordDoc.MainDocumentPart.GetStream)
    
                Using (sr)
                    docText = sr.ReadToEnd
                End Using
    
                Dim regexText As Regex = New Regex("XXXXXX")
                docText = regexText.Replace(docText, "prueba")
                Dim sw As StreamWriter = New StreamWriter(wordDoc.MainDocumentPart.GetStream(FileMode.Create))
                Using (sw)
                    sw.Write(docText)
                End Using
            End Using
        End Sub

    Con este código puedo cambiar todo lo " XXXXXXX " por " prueba ". 

    Me pueden echar una mano?

    Muchas gracias como siempre.

    Saludos.

    • Cambiado Enrique M. Montejo viernes, 4 de agosto de 2017 6:59 Programación con Microsoft Word.
    jueves, 3 de agosto de 2017 12:27

Todas las respuestas