Keresés

Részletes keresés

joco32 Creative Commons License 2010-09-08 09:47:12 446
Nagyon köszönöm, a segítséget, de úgy néz ki a dolog, hogy ez sajnos meghaladja a képességeim határát! :)
először is, ezt a kódot hová kell begépelni?
és mi az a normal.dot?
Nem tudom, hogy amiket kérdezek alapdolgoknak számítanak-e, és ha úgy gondolod, hogy jobb ezt nem erőltetni, az én szintemen, egyáltalán nem haragszok meg érte.
A leírásod második részét képes voltam azt hiszem felfogni,:) és nekem pontosan, arra lenne szükségem, hogy az entereket szó közre cserélje, csak hát ugye ez a programnyelv vagy miféle, ne lenne benne.
A hozzászólás:
Jimmy the Hand Creative Commons License 2010-09-06 22:31:43 445
Itt egy darab kód:

Sub MergeParagraphs()
Dim P As Paragraph, D As Document
Dim R As Range
Dim i As Long

Set D = ActiveDocument
Set R = Selection.Range
For i = R.Paragraphs.Count - 1 To 1 Step -1
Set P = R.Paragraphs(i)
D.Characters(P.Range.End) = " "
Next
End Sub

Szerintem az a legjobb, ha berakod a Normal.dot -ba, egy kódmodulra, aztán készítesz hozzá egy eszköztárat egy gombbal.
Használni úgy kell, hogy kijelölöd a megfelelő szövegrészt, aztán rákattintasz a gombra, és a makró a kijelölt szövegrészen belül minden bekezdést összevon (a sorvégi Entereket szóközre cseréli).

Természetesen az egész szöveget is kijelölheted, de szerintem hülyén mutat, ha egy könyv egy bekezdés ;-)

Mielőtt használod, csinálj biztonsági másolatot.
Előzmény:
joco32 Creative Commons License 2010-09-06 16:31:30 444
segítsen valaki, legyen szíves, ha tud!
olyan gondom lenne, hogy van egy könyvem, ami word alatt fut, és egy kicsit kiakarom csinosítani a sorokat(azaz összébb szeretném egy kicsit húzni). A gondom csak az, hogy minden egyes sor vége, le van zárva enterrel.
Hogy lehetne kivenni innen az „entereket” könnyűszerrel, és nem egyenként minden sort végignyálazva.
köszönöm szépen a segítséget!
(remélem, hogy jó helyen vetettem fel a problémám, és nem kérek nagy húlyeséget, ha mégis bocsánt)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!