Jak vytisknout jen liché řádky?

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Jak vytisknout jen liché řádky?

Příspěvekod atari » 01 led 2017 19:04

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?

Reklama
guest
Pohlaví: Nespecifikováno

Re: Jak vytisknout jen liché řádky?

Příspěvekod guest » 01 led 2017 21:31

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

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Jak vytisknout jen liché řádky?

Příspěvekod atari » 01 led 2017 22:13

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. :thumbup:


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů