Byta rättstavningsspråk i PowerPoint

Har du haft behov av att skriva på ett annat språk än vad PowerPoint tycker känns normalt så kanske du har upplevt att PowerPoint inte är fullt så flexibelt som Word.

I Word så byter ju dokumentet själv språk om du skriver mer än en mening på ett annat språk varpå rättstavningsprogrammet övergår till att kontrollera språket som du skriver på. (förutsatt att rättstavningsordlistorna är installerade).

Så här ser alltså scenen ut: Du har en presentation på ett antal sidor där den föreslår svenska. Du skriver på engelska och får massor av röda vågor under dina ord och skulle nu vilja att PowerPoint ändrade språk på din redan inskrivna text till engelska så att rättstavningen kontrollerar orden på rätt språk?

Det här låter kanske inte så komplicerat men utmaningen är att du normalt sett bara kan markera en textruta i taget i PowerPoint och därför kan det blir lite halvjobbigt att sitta och byta språk på varenda textruta för sig.

Vill du komma förbi det och komma en bit på vägen så kan du göra så här:

  1. Klicka på fliken Visa och välj Knappen Dispositionsvy
  2. Nu visas all text som är inskriven i rubrikrutor och ordinarie textrutor till vänster om den aktuella bilden.
  3. Klicka i detta område och välj CTRL+<A
  4. Nu markeras all din ordinarie text i presentationen.
  5. Klicka på språket som står längst ner i statusfältet i PowerPoint och välj önskat språk samt OK.
  6. Klart.
  7. Återgå genom att välja Normal på Visafliken.

Du ändrar raskt stora delar av texten i din presentation på det här sättet. Handritade textrutor och ritobjekt behöver ändras manuellt men du kommer en bit på väg i alla fall!

 

 

2 reaktion på “Byta rättstavningsspråk i PowerPoint

  1. Hei

    Jeg snappet opp denne vba-snutten en gang, som endrer korrekturspråk til engelsk i alle tekstbokser.

    Jeg har ikke testet den i nyere versjoner av PPT, men vær så god å prøv 🙂

    mvh THOR

    Sub LangInFrames()

    scount = ActivePresentation.Slides.Count
    For j = 1 To scount
    fcount = ActivePresentation.Slides(j).Shapes.Count
    For k = 1 To fcount
    If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
    ActivePresentation.Slides(j).Shapes(k).TextFrame.TextRange _
    .LanguageID = msoLanguageIDEnglishUK
    End If
    Next k
    Next j
    End Sub

Kommentera

E-postadressen publiceras inte. Obligatoriska fält är märkta *