Re: excel és word

[Feca]

Köszönöm szépen a makrót.
De mint írtam volt egy közös jellemzője minden második sornak (bekezdésnek). 
Volt benne zárójel. Na! Én áttettem excelbe az egészet és kiszűrtem azokat, 
ahol nincs zárójel. ezeket kimásoltam és betettem egy új Word-be. És már meg 
is volt a helyes eredmény.
A makró akkor hasznos, ha nincs kapaszkodó az xceles megoldáshoz.


> Ez a makro azt csinálja, hogy minden második bekezdést átrak egy új 
> dokumentumban:
> (ahhoz, hogy jól működjön:
> - csinálsz egy másolatot az eredetiből....biztos, ami biztos.
> - elnditod a wordot megnyitott benne a másolatot /más dokumentum ne legyen 
> nyitva!!
> - nyitsz egy uj lapot - oda fogja tenni a páros bekezdéseket...
> - vissza a másolatra - eszkozok, makrok, létrehozás és oda bemásolod a 
> sub-ok közti részt...
> majd lefuttado és már kész is...
> - A K értékét a fornál állítsd be a bekezdések számának a felére vagy 
> valai jó nagy számra...
>
> Sub masodikmasolas()
> For K = 1 To 10
>    Selection.Paragraphs(1).Range.Select
>    Selection.Delete Unit:=wdCharacter, Count:=1
>    Selection.Paragraphs(1).Range.Select
>    Selection.Cut
>    Windows(2).Activate
>    Selection.PasteAndFormat (wdPasteDefault)
>    Windows(1).Activate
> Next K
> End Sub