[ snajperista @ 22.03.2011. 20:46 ] @
Imam tabelu u word 2010. I u jednoj ćeliji je datum a u drugoj događaji koji su se dogodili tog datuma odvojeni mali enterima (shift+enter). Kada to prebacim u excel on npr datum ubaci u A1 a događaje u B1, B2, B3...
Kako da ga nateram da datum ostane u A1 a svi događaji da budu u B1 kao tekst takođe odvojen enterima?
Moželi se iz word 2010 exportovati csv fajl? Kako?
[ EmmaR @ 22.03.2011. 22:18 ] @
Mislim da je to nemoguća misija zbog različitih oznaka za kraj reda / paragrafa. U Word-u je to Shift+Enter / Enter, a u Excel-u (na nivou ćelije) ALT+Enter. Obrnuto funkcioniše.

Moraćeš ručno.

Postoji jedno prelazno rešenje: Preko OpenOffice. Kao kraj reda u ćeliji tabele koristiš samo ENTER (shift+enter kao rezultat daje sve redove ispisane u istoj ćeliji ali u jednom redu). Dokument (word) otvoriš preko OpenOffice (ver 3.x podržava i docx format) a odatle kopiraš u OpenOffice Calc pa taj dokument sačuvač u .xls format (ili odatle kopiraš u Excel).
PROBLEM: U Excelu su Formula bar-u se vidi samo prvi red ćelije koja sadrži više redova i samo on može da se menja i da se ispod njega uz pomoć ALT+Enter dodaju novi redovi (pre "nevidljivih redova"). Enter briše "nevidljive redove".U OpenOffice se ponaša normalno.

Za verzije do 2007: Ne mogu se iz Word-a snimati csv datoteke direktno.


P.S. Ako misliš da nešto naknadno radiš sa tim podacima u Excel-u, bolje ti je rešenje da kopiraš standardno a onda da prazne "datumske" ćelije popuniš odgovarajućim datumom.
[ Jpeca @ 23.03.2011. 07:35 ] @
Pre svega, kao što je EmmaR odlično napomenula u Excelu je možda bolje da ostaviš kako jeste i popuniš prazne datumske ćelije.

Ako ti to ne odgovara postupak bi mogao da bude sledeći:
1/ Kroz standardni Replace dijalog, sa Replace All zameni u Word tabeli Manual Line Break (iz liste Special) sa ###
2/ Uvezi takavu tabelu u Excel i u tom slučaju se neće pojaviti višak redova.
3/ Sada treba niz karaktera ### zameniti sa Alt+Enter - odnosno char(10). Ovo nije moguće napraviti pomoću standardnog Replace dijaloga, pa možeš koristiti makro:
Code:
Sub Zameni()
' Zamenjuje sva pojavljivanja ### u koloni B sa Alt+Enter
   ActiveSheet.Range("B:B").Replace "###", vbLf
End Sub

[ snajperista @ 23.03.2011. 09:14 ] @
Hvala na savetima pomoglo mi je dosta