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: 1331
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.5
Level 3.5
Příspěvky: 724
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
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1331
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 0 hostů