Mangler en Word makro, der kan følgende

Mon ikke du skal oprette spørgsmålet under Programmer > Tekstbehandling > Word ?

Nok meget bedre chance for hurtig hjælp dér! ;-D

Kan du hjælpe i stedet?

Her kommer noget af det:

Vælg Vis > Værktøjslinier > Kontrolelementer. Vælg en knap og peg ind i dit dokument. Nu skifter din markør til et sigtekorn. Peg dér, hvor du vil have din knap, klik på musen og træk, til knappen har den ønskede størrelse.

Højreklik på knappen, vælg Vis Programkode og kopier nedenstående tekst ind mellem Sub og End sub. Tryk CTRL + S for at gemme dit dokument med makroen.

Hvis du vil have en anden tekst på knappen, så højreklik på knappen igen, men vælg Egenskaber denne gang, under Caption kan du ændre, hvad der skal stå på knappen.

Herfra:
‘ Erstat punktum + mellemrum med punktum + tvungent sideskift
  With Selection.Find
    .Text = "."
    .Replacement.Text = ".^m"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll


‘Erstat tabulatorstop med mellemrum
  With Selection.Find
    .Text = "^t"
    .Replacement.Text = " "
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll

‘ Indsæt tvungent linieskift efter spørgsmålstegn
  With Selection.Find
    .Text = "?"
    .Replacement.Text = "?^l"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll

‘ Erstat to mellemrum med ét – gentag ti gange

For I = 1 to 10

  With Selection.Find
    .Text = " "
    .Replacement.Text = " "
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll

Next I

Hertil

Denne udgave gentager kun erstatningen af dobbelte mellemrum 10 gange. Du kan selv ændre tallet, men denne gentagelse sløver makroen. Jeg kunne ikke umiddelbart få den til at gentage indtil der ikke var flere.

Heller ikke den med forkortelserne + et tvungent linieskift kunne jeg umiddelbart klare.

Hvis du selv vil arbejde videre med det og kan engelsk, er der god hjælp at hente på http://www.vbatutor.com

Husk at markere den tekst, der skal "behandles", før du trykker på knappen!

Det kan også være, at du skal have knappen ud af designtilstand, før den virker (tryk på knappen med tegnetrekanten på værktøjslinien Kontrolelementer).

Det er bare super. Venter lige lidt, og ser om der kommer et bud på det med forkortelserne.

Er det ikke bare at søge på "bl. + manuelt linieskift", der så erstattes med "bl."
Så vil a'et fra næste linie hoppe op på sin plads igen.
Herved bliver bl.a restaureret.

Jo, det burde virke! Men det gør det bare ikke! Og jeg ved ikke rigtig, hvad der går galt.

Nå, havde håbet lidt på en copy'n'paste løsning. Men har da nu noget at arbejde ud fra.

Giv lige et svar, da der er noget jeg godt kan bruge.

Jamen, s'føli! §;-D - men 200 p er helt klart i overkanten for dette spm. - eller i hvert fald for den hjælp du har fået!

Vi deler :)