Jak vytisknout jen liché řádky?

[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?

[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

[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.