[lebn]

Hej
Jag har Office 2003 och jag undrar om någon kan skapa ett makro för att ge all text i ett dokument paranteser och understykning dvs. om text är i kursiv stil.

När jag gör ett makro, där jag gör följande, först använder jag Sök och Ersätt, kryssar i mönstermatchning och sedan skriver i Sök efter: [(]*[)] och sedan skriver /markerar understruken i Ersätt med ( trycker Ctrl+U)och sedan trycker på Ersätt alla, så blir all kursiverad text inom parantes och understruken, precis som jag vill ha.

MEN kör jag sedan detta makro, blir effekten att text försvinner istället för att bli inom parantes och understruken.
Kan någon hjälpa mig?
Tacksam för tips!
Leif

[lebn]

Upptäckte att jag skrivit fel.
Jag formulerar om mitt problem.
Jag vill kunna skapa ett makro, som sätter all kursiverad text, inom parentes och understryker samma (kursiverade) text i ett dokument. Någon som vet hur?
/Leif

[Pejo]

Hej,

Följande inställningar i Ersätt-dialogen fungerar för mig.

 snap.png (36,44Kb)
Antal nedladdningar: 0
Översatt till makro blir det:

Sub Macro1()
	With ActiveDocument.Content.Find
    	.Format = True
    	.MatchWildcards = True
    	.ClearFormatting
    	.Font.Italic = True
    	.Text = "<*>"
    	.Replacement.ClearFormatting
    	.Replacement.Font.Underline = wdUnderlineSingle
    	.Replacement.Text = "(^&)"
    	.Execute Replace:=wdReplaceAll
	End With
End Sub

Hälsningar
/Johan

[lebn]

Tack Johan!
Sök och ersätt metoden funkade inte för mig. Men makrot funkade!
Stort tack!
Leif