Keresés

Részletes keresé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.
A hozzászólás:
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!