Byta ut citationstecken

[Cognatus]

Hej!

Jag försöker skapa ett makro för att byta ut en del tecken i wordfiler.

En sak jag vill göra är att kunna byta dubbla citationstecken (”  nior) mot vinkelcitationstecken (« gåsögon). Jag kan inte förmå sök/ersätt att göra skillnad på dessa tecken, hur bär jag mig åt?

Mvh
 

[Mikael63]

Om du skippar just makro-delen, fungerar sök och ersätt om du i sök klistrar in det du kopierar ex. från texten ovan?

[Cognatus]

Nej, den betraktar båda varianterna som ett och samma tecken när man söker och fyller i dubbla citationstecken (”  nior).

[Gäst]

Det är förmodligen autokorrigeringen som jävlas med dig.

Word 2010

Arkiv->Alternativ->språkkontroll->alternativ för autokorigering->Autoformatera vid inskrivning: ta bort krysset vid "Raka citattecken med typografiska"...

 

Eventuellt måste du börja med att köra en ersätt  " med "

 

 

om vi antar att du aldrig börjar en mening med citat så borde det här fungera

sök efter : <mellanslag>"

ersätt med: <mellanslag>»

och för slut

sök efter : "<mellanslag>

ersätt med: «<mellanslag>

 

Samt kanske en omgång med punkt och ^p istället för mellanslag om du vill täcka in de fallen

 

För att mata in gåsögonen i Ersätt med så kan du köra words teckenkodsfunktion, dvs:

» =Vänster [ALT] + 0187 

«  = Vänster [ALT] + 0171  

 

En makro-skiss där du börjar med att slå av autoformat, byt ut " mot "  Fixar dina gåsögon och sätter på autokorrigeringen igen.

Sub Makro1()
    With Options
        .AutoFormatAsYouTypeReplaceQuotes = False
    End With
    
    With Selection.Find
        .Text = """"
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    
    
    With Selection.Find
        .Text = " """
        .Replacement.Text = " »"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
        .Text = """ "
        .Replacement.Text = "« "
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Options
        .AutoFormatAsYouTypeReplaceQuotes = True
    End With
End Sub

[Cognatus]

Works like a charm. thanks a lot!