kludne aj word sem hodte .) alebo powerpoint
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Word VBA
pocitanie stran to nieje ale pocet ContentControls s Tagom "Cprot"
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 32x)
17867_zahlavi.zip (46kB, staženo 32x)tak problem je v tom ze tie items v druhom headers su v objeckte schovane
teraz hladam ako sa dotoho dostat :)
teraz hladam ako sa dotoho dostat :)
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"
Next
For Each pole In ActiveDocument.SelectContentControlsByTag("Cprot")
pole.Range = "14 - 001"
Next
Dík !!!!!!!!!!
geeniální
ps.
jak jsem to narychlo nakopíroval, tak jsem zjistil, že už v office fungují objekty bez DIM
geeniální
ps.
jak jsem to narychlo nakopíroval, tak jsem zjistil, že už v office fungují objekty bez DIM
Taky to umožňuje počítat strany v určité části dokumentu
pocet_stran = ActiveDocument.SelectContentControlsByTag("Cprot").Count
pocet_stran = ActiveDocument.SelectContentControlsByTag("Cprot").Count
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"
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