[Word] Tekst opslitsen in teksten van 3000 tekens *

[Verwijderd]

Beste Tweakers...


Ik ben al een paar uur aan het uitzoeken op welke manier ik stukken tekst in gelijke stukken kan verdelen (bedoeling is, dat ik mijn tekst in stukken van 3000 tekens verdeel).

Maar het lukt me echt niet! Ben ten einde raad, en hoop er stiekem op dat er hier iemand is die er toevallig iets van af weet.

Groetjes Martin!

[Maasluip]

Macrotje maken met 3000¹ keer het commando Selection.MoveRight unit:=wdCharacter, en van daaruit verder werken (copy-paste werkt ook in een macro)

_{1 of je zet dat in een loopje als je lui bent}

[ Voor 5% gewijzigd door Maasluip op 06-07-2004 14:56 ]

[orca]

de functie wordcount kan of in het hele document alle woorden tellen of in stuk tekst dat geselecteerd is.

maak een macro die net zolang woorden erbij selecteerd tot de gewenste wordcount waarde bereikt is..

plaats dan een vlaggetje en ga dan opnieuw selecteren voor het volgende blok..

ik weet niet of dit werkt, maar het is in ieder geval een idee...

[Spider.007]

Word hoort in SA, verder is dit geen normale titel natuurlijk;

^ MS Word, gelijk verdelen van tekst ^ > [Word] Tekst opslitsen in teksten van 3000 tekens *

[Sjakskus]

Maasluip... het kan ook zo

Selection.MoveRight Unit:=wdCharacter, Count:=3000

scheelt weer een loopje van 3000

[Sjakskus]

Do While Not 'einde van het bestand
Selection.MoveRight Unit:=wdCharacter, Count:=3000
Selection.TypeParagraph
Loop


dit loopje zet om de 3000 tekens een enter

hopelijk kun je er wat mee

[Verwijderd]

Allereerst excuses voor de topictitel, wist niet dat er hier zo streng op werd gelet.

Bedankt voor alle reacties tot nu toe!

Ik heb al 1 en ander geprobeerd met wordcount, alleen probleem hierbij is dat ik enkel de woorden kan tellen. De bedoeling is juist dat ik de tekens opsplits...

Heb ook al zitten worstelen met het macro-menuutje, maar dit gaat iets te ver boven mijn pet.

Waar moet ik dit: "Selection.MoveRight Unit:=wdCharacter, Count:=3000" invullen?

[Sjakskus]

je maakt een sub en daarin plaats je

Do While Not 'einde van het bestand
Selection.MoveRight Unit:=wdCharacter, Count:=3000
Selection.TypeParagraph
Loop


waar 'ende van het bestand vervangen moet worden met hoe men dit in msword regelt (dat weet ik namelijk niet)

[tullius]

extra - macro's - macro maken
naam geven aan de macro
Maken van de macro en daar de tekst intikken (copy-paste)
dan in de tekst de acro gaan uitvoeren

mvg
Tullius

[Verwijderd]

thanks sjakskus en tullius...

ben al een stuk verder, maar de macro geeft nu een foutmelding aan, en ik snap niet zo goed wat er verkeerd aan is.



moet ik nu de apostrof daar gewoon laten staan, en er iets achter zetten?

de help-functie van Word laat op dit gebied wat te wensen over..

[Fire69]

op de plaats van de ' moet een expressie komen die het einde van het document aanduid, EOF of zoiets.

[Verwijderd]

Pfff... de apostrof vervangen door EOF, en krijg nu de melding: argument is niet optioneel


Denk dat ik maar beter de tekens handmatig kan gaan tellen, van dit soort dingen snap ik dus echt helemaal niks.

Zijn er geen progjes die dit op een wat vrouwvriendelijkere manier kunnen uitvoeren?

[Sjakskus]

Sub test()

Dim doc_len As Long
doc_len = Selection.StoryLength - 1

Do While Selection.End < doc_len
Selection.MoveRight Unit:=wdCharacter, Count:=3000
Selection.TypeParagraph
Loop
End Sub


dat is em......

[Verwijderd]

Alsnog bedankt voor de moeite!!

Het is me alleen nog niet helemaal gelukt.. de macro-editor (of hoe het ook heet) blijft foutmeldingen geven waar de honden geen brood van lusten.

Als ik dat stukje tekst van jou kopieer naar mijn macro gaat er in ieder geval van alles mis.

Ik ga nog even verder met prutsen, en nogmaals hartelijk bedankt.

Gr. Martin