Jak převést TXT s nahečmanejma slovama na normální TXT?

I když bude možná moje odpověď pro někoho pobuřující, stejně to zkusím.

Otevři si text v MS Word, stiskni alt+F11. V horní liště vyber Insert → Module. V levo by se ti měl objevit takový strom a u něj ikonka čehosi, co vypadá jako „pavouk“. To rozklikni a zkopíruj tam text níže.

sub makro1()
For Each rng_story In ActiveDocumen­t.StoryRanges
With rng_story.Find
.text = „SEM ZADEJ CO BUDEŠ NAHRAZOVAT“
.Replacement.text = Chr(13)
.Wrap = wdFindContinue
.Execute Replace:=wdRe­placeAll
End With
Next rng_story
end sub

Namísto SEM ZADEJ CO BUDEŠ NAHRAZOVAT ty znaky, co ti oddělují jednotlivá slova (kostičky mohou být kvůli kódování problematické, proto bych napřed pomocí Ctrl+F nahradil kostičky např. za #^# a kódem zpracoval tento řetězec).
Ctrl+S, zavři okno, přejdi zpět do Wordu.

Nyní Alt+F8, vyber makro1, dej spustit a mělo by ti to odřátkovat jednotlivé položky. V podstatě to nedělá nic jiného, než že to projde celý text a vybraný řetězec to nahradí ascii 13, tzn. to vyrobí odřádkování. Takže pokud máš něčím oddělená jednotlivá slova, tak to tam místo něčeho vloží return – výsledkem by mělo být to, že každé slovo bude na jiném řádku.

Have fun!