Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Jak odstanit prázdné řádky z konce Dokumentu |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 10.10.2003
| Publikováno: 10.10.2003
| Čtenářů: 3337
| Unikátních: 3288
|
Tip pro MS Word
Spusťte toto makro a máte po posledních řádcích :o)
Sub DelLastNewLines()
'Oznacime posledni radek
Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
'Dokud je posledni radek odradkovani
Do While Asc(Mid(Selection.Text, 1, 1)) = 13
'Smaz ho
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
'Oznacime posledni radek
Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Loop
End Sub
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu