sneltoetsen voor symbolen

lw87 · 6 okt 2005

Op http://www.microsoft.com/netherlands/ondernemers/tips_trucs_of fice/top_10_tips_word.aspx vond ik een toetscombinatie voor het diameter-teken:
druk op Ctrl+/ en typ vervolgens de letter o voor een klein symbool of hoofdletter O voor een groot symbool.

Kennelijk zijn al sneltoetsen toegekend aan diverse symbolen.
Hoe maak ik daarvan een lijst?
Ook handig om niet de weg kwijt te raken in zelf toegekende sneltoetsen.

Ik heb wel een lijst kunnen maken met andere sneltoetsen m.b.v. LijstOpdrachten maar daar staan de symbolen niet bij.

Guus abc † · 6 okt 2005

Geplaatst door lw87
Kennelijk zijn al sneltoetsen toegekend aan diverse symbolen.
Hoe maak ik daarvan een lijst?

Als je in Word naar het menu Invoegen > Symbool gaat, krijg je een venster met alle vreemde tekens en symbolen te zien.
Wanneer je een van die tekens/symbolen selecteert en er is een sneltoetscombinatie voor, dan wordt die onderin dat venster aangegeven - zie bijlage.
Heeft een symbool geen sneltoetscombinatie, dan kun je er zelf een voor dat symbool maken via de knop Sneltoets onderin het venster.

Guus.

lw87 · 6 okt 2005

Hallo Guus
Bedankt voor je reactie.
Jouw uitleg van hoe ik kan zien of een sneltoets is toegekend aan een symbool is me duidelijk.

Met Ctrl+Alt+8 krijgt je 3/4, met Ctrl+Shift+/+o een groot diameterteken, enz.

Met Word-opdracht LijstOpdrachten kun je een lijst gegeneren van Opdrachten.

Wat ik wil is het genereren van een lijst met alle aan Symbolen toegekende combinaties.

Guus abc † · 6 okt 2005

Geplaatst door lw87
Met Word-opdracht LijstOpdrachten kun je een lijst gegeneren van Opdrachten.

Wat ik wil is het genereren van een lijst met alle aan Symbolen toegekende combinaties.

Dat kan helaas niet.
Je kunt wel op zoek gaan naar sites als deze of zelf een lijst maken aan de hand van het venster Symbool.

Guus.

Jan van Asseldonk · 6 okt 2005

Een groot deel kun je uit de help halen, die werken ook met de ALT-GR toets.
Kies Help en zoek op trefwoord toetsenbord
kijk vervolgens bij ALT-GR-toets.
De meeste speciale tekens staan hier bij.
Uitgangspunt is toetsenbord instelling US-internationaal.

elandwaard · 7 okt 2005

Misschien een u bocht maar:

Printscreen en bewerken n paint?

ik kijk nog even bij Bill

Niet geprobeet echter:

http://www.microsoft.com/downloads/...a8-a2c6-4152-a6ad-5978c3532295&displaylang=nl

wie weet.

Jan van Asseldonk · 7 okt 2005

ik kijk nog even bij Bill

Niet geprobeet echter:

http://www.microsoft.com/downloads/...&displaylang=nl

Inmiddels geprobeerd, wel een handig bestandje voor alle sneltoetsen maar speciale tekens staan er jammer genoeg niet in.

DIEZEL · 8 okt 2005

Kijk hier maar eens:
http://office.webforums.nl/forum/viewtopic.php?t=14632

Jan van Asseldonk · 9 okt 2005

Vraag lijkt van dezelfde Loes te zijn.

DIEZEL · 9 okt 2005

Dat vermoeden had ik ook al.

lw87 · 9 okt 2005

Aan Jan en de anderen

Er zijn er kenneliijk meer die twee forums in de gaten houden: ik heb mijn vraag inderdaad hier en op office.webforums geplaatst.
Twee ijzers in het vuur zogezegd.

Maar nu de antwoorden.

Op office.webforums bracht Oele me met zijn excel bestand op een idee.
Ik heb een macro gemaakt waarmee ik heel veel tekens van de ALT + getal soort in beeld kan brengen voor verschillende lettertypen.

Eigenlijk zijn het er twee: een voor de waarden 30 t/m 999 en een voor waarden die met een nul beginnen.
De eerste kolom geeft de cijferwaarde weer, de volgenden het symbool in 7 lettertypes.

Wat moet je er mee? Je kunt speciale tekens toevoegen aan macro's, maar het is een heel gezoek om uit te vinden welk teken je waarmee weergeeft. Mijn tabel geeft een uitgebreid overzicht!

Hier is de listing:

Code:

Sub ALTtekens()
'
' ALTtekens Macro
' Macro opgenomen op 8-10-2005 door Loes
'
    Dim Waarde As Integer
    Dim MyChar
    
'   tabelkop maken

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
        8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Tabelraster" Then
            .Style = "Tabelraster"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.TypeText Text:="ALT + getal"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Arial"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WebDings"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Symbol"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WingDings"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WingDings2"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WingDings3"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="MonotypeSorts"
    
'   Cellen vullen
    For Waarde = 30 To 999
    MyChar = ChrW(Waarde)
    
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:=Waarde
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Webdings"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Symbol"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Wingdings"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Wingdings 2"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Wingdings 3"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Monotype Sorts"
    Selection.TypeText Text:=MyChar
    
    Next Waarde

' Eerste regel herhalen

    Selection.Tables(1).Select
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Rows.HeadingFormat = wdToggle
End Sub

en de tweede:

Code:

Sub ALTtekens0000()
'
' ALTtekens Macro
' Macro opgenomen op 8-10-2005 door Loes
'
    Dim Waarde As Integer
    Dim MyChar
    
'   tabelkop maken

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
        8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Tabelraster" Then
            .Style = "Tabelraster"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Selection.TypeText Text:="ALT + getal"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Arial"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WebDings"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Symbol"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WingDings"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WingDings2"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="WingDings3"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Monotype"

'   Cellen vullen
    For Waarde = 30 To 999
    MyChar = ChrW("0" & Waarde)
    
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="0" & Waarde
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Webdings"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Symbol"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Wingdings"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Wingdings 2"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Wingdings 3"
    Selection.TypeText Text:=MyChar
    Selection.MoveRight Unit:=wdCell
    Selection.Font.Name = "Monotype Sorts"
    Selection.TypeText Text:=MyChar
    
    Next Waarde

' Eerste regel herhalen

    Selection.Tables(1).Select
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Rows.HeadingFormat = wdToggle
End Sub

Wat nog niet lukt is zoiets maken voor de combinaties met de toetsen Shift, Ctrl en Alt.
Iemand een idee? Dan krijg je zaken als Ctrl + Alt + 8 geeft 3/4.

sneltoetsen voor symbolen

lw87

Gebruiker

Guus abc †

Meubilair

lw87

Gebruiker

Guus abc †

Meubilair

Jan van Asseldonk

Terugkerende gebruiker

elandwaard

Gebruiker

Jan van Asseldonk

Terugkerende gebruiker

DIEZEL

Gebruiker

Jan van Asseldonk

Terugkerende gebruiker

DIEZEL

Gebruiker

lw87

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy