Verktygsknappar för Markeringsfärg för text

[Mikael63]

Sitter då och då med dokument där jag ofta behöver markera text gul, grön, röd och "ingen".

Skulle vilja ha en färdig knapp för varje färg. Går det att fixa?

[Monshi]

Vilken version av Word?

jag tror oavsett att du får skapa lite VBA-kod som du kopplar till en knapp. Det senare är lite olika för om du har Word med ribbon eller ej.

 

Kod som denna:

Public Sub MarkYellow()
Selection.Range.HighlightColorIndex = wdYellow
End Sub

som helt enkelt markerar den valda texten med gul färg.

Alternativt kan du skapa dessa makron och koppla dem till snabbknappar.

 

Få rätt färg? Spela in makro när du stryker över, ta bort den onödiga koden (allt annat än det ovan) och ge funktionen ett bättre namn.

[Avicii]

Vilken version av Word?

Jag satsar på att det gäller Word 2010 (se beskrivning)....men har inget förslag till lösning.

[Mr Andersson]

Jag satsar på att det gäller Word 2010 (se beskrivning)....men har inget förslag till lösning.

 

Monshi skrev en lösning åt dig.

[Mikael63]

Vilken version av Word?

jag tror oavsett att du får skapa lite VBA-kod som du kopplar till en knapp. Det senare är lite olika för om du har Word med ribbon eller ej.

 

Kod som denna:

Public Sub MarkYellow()
Selection.Range.HighlightColorIndex = wdYellow
End Sub

som helt enkelt markerar den valda texten med gul färg.

Alternativt kan du skapa dessa makron och koppla dem till snabbknappar.

 

Få rätt färg? Spela in makro när du stryker över, ta bort den onödiga koden (allt annat än det ovan) och ge funktionen ett bättre namn.

 

Funkar perfekt - TACK!!

Fanns ju också lämpliga "ikoner" att använda till knapparna!

[Mikael63]

Fortsätter i denna tråd även fast det nu gäller Excel 2010.

 

Jag har gjort samma procedur, alltså detta med färgerna, i Excel och först valde jag att spara mina makron i Arbetsboken egna makron. Då kunde jag inte välja in dessa till fältet snabbåtkomst.

Så valde jag att spara makron i Aktuell arbetsbok och då kunde jag koppla mina knappar.

När jag ville redigera makrot tilläts jag inte att spara.

Nu när jag öppnar arbetsboken finns inga makron.

 

Vad är rätt väg att gå?

Har inte använt makron sedan Office97..

[Tune]

Du måste spara excelfilen där du lägger dina macron i XLSM-format (Macroaktiverat excelarbetsboksformat), annars händer precis det du beskriver.

 

Om du använder macron ofta så lägg filen med dessa i mappen "C:\Program Files (x86)\Microsoft Office\Office12\XLSTART" så startas filen automatiskt när du startar excel.

 

Om du har excel 2010 så får du nog leta efter mappen nedan istället:

 

"C:\Program Files (x86)\Microsoft Office\Office13\XLSTART"

Redigerad 30 november, 2011 av Tune

[Mikael63]

Tack!
Jag valde åter att spara dessa i "Arbetsboken egna makron" som är den föreslagna.
Den boken är dold och jag var tvungen att ta fram den för att kunna lägga till själva knapparna, något jag har för mig att jag hade gjort förra gången med. Sedan kan jag dölja den.

Varför jag inte kunde spara tidigare vet jag inte än men nu fungerar det.
Antar att just den arbetsboken laddas automatiskt? Min C:\Program\Microsoft Office\Office14\XLSTART\ är tom.

Edit, på förekommen anledning: "Arbetsboken egna makron" (Excel) verkar vara C:\Users\[namn]\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB

Makron i Word ligger i C:\Users\[namn]\AppData\Roaming\Microsoft\Templates\ och troligen i filen Normal.dotm
Tillägg: För mig tycks det som att det även finnas en Normal.dotm i mappen C:\SAFE\[Företagsnamn]Mallar som verkar vara den dokumentmall som styr. (?)

Redigerad 30 juni, 2017 av Mikael63

[Mikael63]

Nu har jag tänkt mig att använda samma makro, som i Word, att fungera i Outlook.

Där får jag:

Citat

 

Körfel nr '424'.:

Objekt krävs.

 

Hur behöver koden modifieras för att passa i Outlook?

[Anjuna Moon]

Om du har tillgång till Outlook-objektet i koden, ex. oOut så behöver du använda en referens till det Word-liknande fönstret och sedan gå tillväga på samma sätt (tror jag). Typ:

 

Set OutMail = oOut.ActiveExplorer.Selection.Item(1)
    With OutMail
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        wdDoc.Application.Selection.Range.HighlightColorIndex = någonfärg

 

EDIT: Om du inte har en egen referens till Outlook redan så pröva med

Set oOut = GetObject(, "Outlook.Application")

Redigerad 23 januari, 2020 av Anjuna Moon

[Mikael63]

Jag har inte tillgång till jobbardatorn förrän i morgon men som ytterligare info så öppnade jag "VBA-kod" i Outlook, under fliken Utvecklare(?), infogade en modul och i fönstret klistrade jag in koden från Monshi:

Public Sub MarkYellow()
Selection.Range.HighlightColorIndex = wdYellow
End Sub

(och för andra färger)

 

Det är i/från Outlook jag kör makrot, när jag skriver/svarar.

[Mikael63]

20 timmar sedan, skrev Anjuna Moon:

Om du har tillgång till Outlook-objektet i koden, ex. oOut så behöver du använda en referens till det Word-liknande fönstret och sedan gå tillväga på samma sätt (tror jag). Typ:

 

Set OutMail = oOut.ActiveExplorer.Selection.Item(1)
    With OutMail
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        wdDoc.Application.Selection.Range.HighlightColorIndex = någonfärg

 

EDIT: Om du inte har en egen referens till Outlook redan så pröva med

Set oOut = GetObject(, "Outlook.Application")

Nix, jag får fortfarande samma felmeddelande.

[Mikael63]

På 2020-01-24 på 18:05, skrev MH_resurrected:

Det går att ändra textfärgen med Anjunas metod. förenklat :

Sub test2()
    Set OutApp = GetObject(, "Outlook.Application")
    Set OutMail = OutApp.ActiveExplorer.Selection.Item(1)
    With OutMail
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        wdDoc.Application.Selection.Font.color = vbYellow
    End With
End Sub

Japp, det funkar och det skulle även kunna vara tillräckligt med bara textfärg, i Outlook.

Det är dock bara gul och röd som jag får att fungera, om jag använder samma namn på färgerna som jag använder i Word/Excel. (och gul går bort)

[Mikael63]

Ja, Cyan hann jag med att testa men den blir också svårläst.

 

I Outlook ska jag alltså använda detta för att lite enklare markera text där man svarar i en befintlig brevväxling.

 

Citat

Hej!

Se nedan.

 

Varför....

Därför...

Men...

Ja...

 

osv

 

 

[Mikael63]

2 minuter sedan, skrev MH_resurrected:

Går det att lägga till egna knappar i Outlook ???

Jadå, det funkar.

[Mikael63]

På 2020-01-24 på 18:05, skrev MH_:

vbYellow

vs. wdYellow ?

[Mikael63]

En början, en knapp för att ändra text till röd, en knapp för "överstrykning" grå. Funkar bra i kombo dessutom.