MS Excel

Díky za nabídku,

mám následující kód, který mi aktualizuje záhlaví.

Sub header()
Dim pole As ContentControl
For i = 1 To ActiveDocument.Sections.Count
For Each pole In ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range.ContentControls
If pole.Tag = "Cprot" Then pole.Range = "14 - 001"
Next pole
End Sub


To mi skvěle funguje na stránkách na výšku, na stránkách na šířku to nedikážu rozchodit.

Word 2010 ENcitovat

Dík,

vygooglil jsem toho hodně, ale tohle fakt nešlocitovat

Dík !!!!!!!!!!
geeniální

ps.

jak jsem to narychlo nakopíroval, tak jsem zjistil, že už v office fungují objekty bez DIMcitovat

pocitanie stran to nieje ale pocet ContentControls s Tagom "Cprot"citovat