Anonymní profil peter – 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)