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 4
Level 4
Příspěvky: 1093
Registrován: říjen 08
Pohlaví: Muž

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
xlnc
Level 3
Level 3
Příspěvky: 649
Registrován: červenec 11
Pohlaví: Muž

Re: Jak vytisknout jen liché řádky?

Příspěvekod xlnc » 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
lektor, vývojář a zaříkávač pro Microsoft Excel, Excelplus.NET

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1093
Registrován: říjen 08
Pohlaví: Muž

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:


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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host