|
|
|
|
 |
Jimmy the Hand
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. |
|
A hozzászólás:
 |
joco32
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!
|