[Løst]Fryktelig treg makro

[norbat]

Dim Avsnitt As Paragraph

 For Each Avsnitt In ActiveDocument.Paragraphs 
       Avsnitt.LineSpacingRule = wdLineSpaceDouble 
       Avsnitt.FirstLineIndent = CentimetersToPoints(1) 
 Next

 

Denne makroen lager dobbel linjeavstand samt innrykker første linje i hvert avsnitt med 1 cm. Det funker, men den er fryktelig treg. Har noen et tips på hvordan denne bør være?

[aadnk]

Jeg er usikker på hvorledes koden kan forbedres i ytelse, men du kan vel alltids bedre brukergrensesnittet gjennom en framdriftsviser (Progress bar):

 

http://hacks.oreilly.com/pub/h/2607

 

Det burde i hvert fall spare eventuelle brukere for unødvendig frustrasjon dersom de oppfatter den lange ventetiden som et tegn på at programmet har klikket.

[Alexen]

Heisann! Nå har jeg ikke akkurat testet hvor lang tid din bruker men her er en annen løsning som kanskje vil fungere bedre..

 

-------

 

Selection.WholeStory ' merk dokument

With Selection.ParagraphFormat

.SpaceBeforeAuto = False

.SpaceAfterAuto = False

.LineSpacingRule = wdLineSpaceDouble

.FirstLineIndent = CentimetersToPoints(1)

.CharacterUnitFirstLineIndent = 0

End With

 

Selection.MoveRight Unit:=wdCharacter, Count:=1 ' fjern merking

 

------------------------------