Uprava zahlavi word – Visual Basic – Fórum – Programujte.com

Potreboval bych zmenit zahlavi dokumentu. Takovou tu hlavicku, kam se 2x musi poklikat, aby se dala editovat.

Nasel jsem si, ze text by sel takto 

Set rng = ActiveDocument.Sections(1).Headers(1).Range
rng.text = "123"

Ja bych potreboval tam bud vlozit tabulku nebo vyhledat a prepsat text jinym textem. mam kod, kterym tam vypisu tabulku. Ale jedna se o A3, je to rozdelene tusim pres Word - Format - Sloupce = 2. To samozrejme nevim, jak se dela ve VBA :) Cili, mam tam 2 listy na jedne A3 a na druhe strance ma kazdy list zahlavi, stejnou tabulku. Na dalsich strankach by melo byt totez. Resp, nemela by nastat situace dalsich stranek. To se bude potom asi rucne zmensovat :)

A3
--------------------
         | logo  
         |  texty
         |
         |
--------------------
--------------------
zahlavi  | zahlavi  
 tabulky |   tabulky
  + text |  + text 
         |
--------------------

A v zahlavi je prave tabulka. A cele to zahlavi je jeste rozdelene asi Format-Sloupce-2.
Kod te tabulky je slozitejsi, ale je tam zhruba toto 

Set tbl = ActiveDocument.Tables.Add(Range:=rng, NumRows:=1, NumColumns:=3)
tbl.Range.Font.bold = False
tbl.Range.Font.ColorIndex = fontColor
tbl.Range.Font.Size = fontSize9
tbl.Columns(1).Cells(1).Range.text = "DIPLOMA SUPPLEMENT"
tbl.Columns(2).Cells(1).Range.text = att_node_list(2)(i).text & " " & att_node_list(1)(i).text '' jmeno prijmeni
tbl.Columns(3).Cells(1).Range.text = "Diploma No: " & att_node_list(0)(i).text ' cislo diplomu

tusim, ze jsem to i v jendnom pokusu vepsal, kod by mohl byt pro rng asi toto, ale nemelo to 2 sloupce a 2 tabulky: 

Set rng = ActiveDocument.Sections(1).Headers(1).Range
rng.text = ""
Set rng = ActiveDocument.Characters(rng.End + 1)

Vyreseno. 
wdReplaceAll pak nahradi vsechny vyskyty ve zvolenem zahlavi. Coz je presne to, co jsem potreboval. Nebo tam vykreslit celou tabulku, coz se mi nechtelo resit a taky se to spatne styluje.

Sub FnReplaceHeader(findString As String, replaceString As String, fontColor As Integer)
    With Selection.Find
        .text = findString
        .Replacement.text = replaceString
        .Replacement.Font.ColorIndex = fontColor
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
End Sub

' -------

        ' zahlavi na druhe strance - studentJmeno, studentPrijmeni, diplomCislo (najdi/nahrad)
        If ActiveDocument.Sections.Count > 0 And ActiveDocument.Sections(1).Headers.Count > 0 Then
            ActiveDocument.Windows(1).View.SeekView = wdSeekPrimaryHeader
            Call FnReplaceHeader("studentJmeno", att_node_list(2)(i).text, fontColor)
            Call FnReplaceHeader("studentPrijmeni", att_node_list(1)(i).text, fontColor)
            Call FnReplaceHeader("diplomCislo", att_node_list(0)(i).text, fontColor)
            ActiveDocument.Windows(1).View.SeekView = wdSeekMainDocument
        End If