kludne aj word sem hodte .) alebo powerpointcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Word VBA
pocitanie stran to nieje ale pocet ContentControls s Tagom "Cprot"citovat
MS Excel
Téma: Word VBA 
Zaslal/a Richard99 14.2.2014 8:24
Neví někdo o podobném fóru na Word VBA
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 EN
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 EN
Příloha: 
17867_zahlavi.zip (46kB, staženo 31x)
citovat17867_zahlavi.zip (46kB, staženo 31x)tak problem je v tom ze tie items v druhom headers su v objeckte schovane
teraz hladam ako sa dotoho dostat :)citovat
teraz hladam ako sa dotoho dostat :)citovat
jajj 2h som s tym stratil a pritom je to len 3 riadky kodu :)))
For Each pole In ActiveDocument.SelectContentControlsByTag("Cprot")
pole.Range = "14 - 001"
Nextcitovat
For Each pole In ActiveDocument.SelectContentControlsByTag("Cprot")
pole.Range = "14 - 001"
Nextcitovat
Dík !!!!!!!!!!
geeniální
ps.
jak jsem to narychlo nakopíroval, tak jsem zjistil, že už v office fungují objekty bez DIMcitovat
geeniální
ps.
jak jsem to narychlo nakopíroval, tak jsem zjistil, že už v office fungují objekty bez DIMcitovat
Taky to umožňuje počítat strany v určité části dokumentu
pocet_stran = ActiveDocument.SelectContentControlsByTag("Cprot").Countcitovat
pocet_stran = ActiveDocument.SelectContentControlsByTag("Cprot").Countcitovat
Richard99 napsal/a:
Taky to umožňuje počítat strany v určité části dokumentu
pocet_stran = ActiveDocument.SelectContentControlsByTag("Cprot").Count
pocitanie stran to nieje ale pocet ContentControls s Tagom "Cprot"citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články