Jak vytisknout jen liché řádky?
Napsal: 01 led 2017 19:04
od atari
Mám text ve Wordu, kdy liché řádky jsou čeština a sudé řádky angličtina. Potřebuji vytisknout jen ty liché řádky (neboli každý druhý) tak, aby místo těch sudých zůstala mezera. Poradí někdo jak to udělat?
Re: Jak vytisknout jen liché řádky?
Napsal: 01 led 2017 21:31
od guest
Máte dobré nápady... jen to chce předem trochu myslet... v daném případě to znamenalo dát lichým a sudým odstavcům různé styly a pak stačilo změnit barvu fontu ve stylu.
Dokážete si pohrát s tímhle?
Kód: Vybrat vše
Sub SelectAlternateParagraphs()
Dim par As Paragraph
Dim Odd As Boolean
For Each par In ActiveDocument.Paragraphs
Odd = Not Odd
If Odd Then
par.Range.Font.ColorIndex = wdBlack
Else
par.Range.Font.ColorIndex = wdWhite
End If
Next par
End Sub
Re: Jak vytisknout jen liché řádky?
Napsal: 01 led 2017 22:13
od atari
To je ještě lepší řešení, že si ty jazyky můžu rozdělovat na odstavce, a nemusí to být jen po řádkách. A ještě si u toho můžu vybírat který jazyk vytisknu - super. A to makro je v pohodě a funguje mě tak jak potřebuji.
Díky za nápad.
