Hmm... det lyder spidsfindigt... men jeg vil lige kigge på det.
Dog vi jeg mener at det bliver nødvendigt at bruge en font hvor alle bogstaver fylder det samme. Eller måske felter - hvor man sætter en begrænsning... men jeg har ikke prøvet det før - så nu går jeg igang.
Ok - hvis vi antager at vi skriver i Courier - burde vi kunne fastslå margner eller spalte størrelse. Men kravet er vel ikke at alle linier skal være lige præcis 69 anslag - de må blot ikke være MERE end 69 ??
jlc>>> Min pointe var bare at der dæleme er stor forskel på en artikels længde med 69 anslag pr. linie skrevet med 12 pt. Courier, end en med 8 pt. Courier...
Jeg har forsøgt med at lave en spalte på 14,75 cm. Og jeg har brugt Courier new 10P - så passer det med 69 tegn.
Men alt dette vil jo ændres, hvis han bruer en anden størrelse. Men det må næsten være vejen frem.
Slå alle 69 tegn ind - kig i linialen og se hvad det fylder, lav der efter 2 spalter - hvor den ene har den ønskede størrelse (sidstnævnte fordi jeg ellers ikke kunne få den størrelse jeg ønskede)
jlc>>> Ja, med dine mål og skriftstørrelse passer det selvfølgeligt.
Men hvis jeg fik sådanne håbløse oplysninger fra et forlag/ugeblad ville jeg nok drille dem lidt ved at sætte hele møllen i 20 pt. med 69 anslag pr. linie... ;-)
nerøs>>> Ja måske, men det løser jo stadig ikke problemet med hensyn til hvilken skriftstørrelse du må bruge. Det pågældende ugeblad må have en "standard" størrelse de forventer materialet i. Disse oplysninger ville hjælpe os med at besvare dette spm. korrekt....
Courier er ikke en proportionalskrift, det vil derfor være sådan at hvis man en gang for alle laver passsende margener og bruger dem, vil der altid være max 69 tegn på en linie. EKS med A4 papir en vmargen på 4cm og en hmargen på 2,3 cm giver med courier 10 pt 69 tegn pr linie
Du er nok nødt til at gøre det i en makro, følgend makro indsætter et lineskift for hvert 69 anslag i teksten, eller ved ordet før :
Sub line() ' ' Makro 04-06-00 '
Set MyRange = ActiveDocument.Range a = MyRange.Start b = MyRange.End While a < b ' Kontroller værdien Selection.MoveRight Unit:=wdCharacter, Count:=69 Selection.MoveLeft Unit:=wdWord, Count:=1 Selection.TypeParagraph a = a + 69 Wend ' Afslut
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.