B4J Question [SOLVED] Replace Text in a Word-Document-HEADER

[JOTHA]

Hello Community,
in this post here i used a code to generate a map (key/value) which is opening an existing WORD-document and replacing text at placeholders, but it does it only in the Text-BODY, not in the HEADER of the document.

Has anyone an idea, how to do that?

 

[Erel]

Updated code that replaces text in the headers and document body:

Dim m As Map = CreateMap("HEADER": "asdasd")

Dim doc As JavaObject = OpenDocx("C:\Users\H\Downloads\TEST1.docx", "")
Dim AllParagrpahs As List
AllParagrpahs.Initialize
Dim headers As List = doc.RunMethod("getHeaderList", Null)
For Each header As JavaObject In headers
   AllParagrpahs.AddAll(header.RunMethod("getParagraphs", Null))
Next
AllParagrpahs.AddAll(doc.RunMethod("getParagraphs", Null))
For Each p As JavaObject In AllParagrpahs
   Dim runs As List = p.RunMethod("getRuns", Null)
   If runs.IsInitialized Then
       For Each r As JavaObject In runs
           Dim text As String = r.RunMethod("getText", Array(0))
           If text <> Null Then
               For Each key As String In m.Keys
                   If text.Contains("$"&key&"$") Then
                       r.RunMethod("setText", Array(""&m.Get(key)&"", 0))
                   End If
               
               Next
               End If
       Next
   End If
Next
SaveDocument(doc, "C:\Users\H\Downloads\TEST2.docx", "")

 

[JOTHA]

Thank you Erel!
You are a genius!

 

[JOTHA]

... there is a new problem:
When i want to print out this WORD-document, there is the message:
Error! Reference source not found!

 

[Erel]

You need to provide more information. Does it happen after you replace the header text? Does it always happen?

 

[JOTHA]

It has nothing to do with the header text, it is always the same to all text.
Just open the attached file "output.docx".

The first time everything looks good, but ...
I am not able to print it

 

[Erel]

Please upload the input file.

 

[JOTHA]

Here it is ...

 

[Erel]

There is something special with the fields in your input file.

You can see it by clicking inside the replacement words. The complete word is selected.
Delete them and write them as regular text.