These programs may be of interest especially to people who are teaching online or are preparing tutorial videos.

Det er små AutoHotKey scripts, der giver lidt udvidelser til bl.a. PowerPoint

Men også en avanceret highlighter til musen.

Free keyboard macro program. Supports hotkeys for keyboard, mouse, and joystick. Can expand abbreviations as you type them (AutoText).

Definitionsliste i MS Word

I forbindelse med udarbejdelse af en skabelon til driftsplaner fandt jeg en sub-rutine på nettet der kan hjælpe med at generere en liste med definition af ord/begreber.

I driftsplans-skabelonen er den implementeret i en makro: OrdTilListe med følgende anvisning:

Der kan med denne skabelon benyttes en makro: OrdTilListe.
Markér et ord, der skal indgå i tabellen, og brug tastekombinationen: Ctrl+Alt+o
Herved indsættes ordet, alfabetisk ordnet, i listens første kolonne, og der kan tilføjes forklaring i den anden.

Selve sub-rutinen - med min tilretning - ser således ud:

         Sub OrdTilListe()
         '
         ' OrdTilListe Makro
         ' Indsætter ord i ordliste samt sorterer listen alfabetisk efter første kolonne
         '
         Dim BookMarkName As String
         Dim ChooseWord As String
         Dim LastCellInColumn As Long
         Dim ListTable As Range
         Dim SourcePlace As Range

         On Error Resume Next

         BookMarkName = "OrdListe"

         Set SourcePlace = Selection.Range

         ChooseWord = SourcePlace.Words(1).Text

         Set ListTable = _
         ActiveDocument.Bookmarks(BookMarkName).Range.Tables(1).Range

         LastCellInColumn = ListTable.Columns(1).Cells.Count

         With ListTable.Columns(1).Cells(LastCellInColumn)
         .Range = ChooseWord
         .Select
         Selection.MoveRight Unit:=wdCell, Count:=2
         End With

         ListTable.Sort excludeheader:=True, fieldnumber:=1

         SourcePlace.Select

         On Error GoTo 0

         End Sub

Her er Leo Heuser's anvisning til den oprindelige rutine:

1. Opret en tabel med 1 række og 2 kolonner et tilfældigt sted (fx bagest i dokumentet).
2. Markér tabellen og opret den som bogmærke med navnet "UdvalgteOrd" (fx). Skal dog være det samme som i subrutinens BookMarkName = ""
3. Indsæt subrutinen WordToTable i et modul.
4. Opret en knap, der kalder denne rutine.
5. Klik på et ord, du vil have i tabellen og klik på knappen.

Ordet bliver nu indsat i første kolonne i tabellen med stort forbogstav, tabellen sorteres efter første kolonne, og der indsættes en ny
række i tabellen.
Gå videre med punkt 5.

I anden kolonne indtastes forklaringerne til de forskellige ord.

Min implementering

Jeg har i øvrigt valgt at indarbejde en tastatur-kombination som er gemt i skabelonen. (Og altså kun virker i dokumenter baseret på skabelonen.)
https://support.office.com/da-dk/article/tilpasse-tastaturgenveje-9a92343e-a781-4d5a-92f1-0f32e3ba5b4d

https://word.tips.net/T001723_Converting_Text_to_Uppercase_in_a_Macro.html
https://www.thedoctools.com/wordtips/om-makroer-og-goere-makroer-tilgaengelige-for-andre/

Beskyt formler

I tidligere nævnte Excell VBA kursus demonstrerer Alan Murray oprettelsen af en ret brugbar makro til beskyttelse af formler i et ark.

Makroen har jeg tilpasset og benyttet i flere distribuerede regneark - her er koden:

         Sub Beskyt_formler_i_ark()
         '
         ' Beskyt_formler_i_ark Makro
         ' Beskytter beregnings celler i aktuelle ark.
         ' Idé fra Computergaga.com.
         ' BEMÆRK: Det er det enkelte ARK, der beskyttes - ikke hele projektmappen !
         ' Skal et andet ark beskyttes, må arket aktiveres og makro køres for det ark.
         '
             If ActiveSheet.ProtectContents = True Then

                 MsgBox "Det aktuelle ark er allerede beskyttet!", vbOKOnly + vbInformation, "Beskyttet!"
                 Exit Sub
             End If

             Cells.Select
             Selection.Locked = False
             Selection.FormulaHidden = False
             Selection.SpecialCells(xlCellTypeFormulas, 23).Select
             Selection.Locked = True
             Selection.FormulaHidden = False
             Range("A2").Select
             ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
         End Sub

Makroen kan gemmes som 'global' i den lokale Personal.xlsb og kan dermed kaldes i alle arbejdsmapper, der åbnes på computeren.
Omvendt behøver makroen ikke distribueres sammen med regnearket, når først den har gjort sin gerning. (Og giver dermed ikke sikkerhedsadvarsler når andre åbner arket)

Optagelse af makro

Makroen blev først 'optaget' inden redigering i vb med følgende trin:

1. Højreklik øverst v. 'Select all'
2. Format Cells
3. Protection - unprotect -> ok
4. Søg - formler
5. Højreklik - format - lås
6. Klik A2
7. Beskyt ark
8. Afslut makro optagelse

Måske lidt indforstået med denne korte beskrivelse - fuld beskrivelse i Murray's gennemgang.

Learn Excel VBA and take your spreadsheets to the next level.
The first part of the course is free and can be acccessed without registering.
That gives an introduction to basic macro recording.

Alan Murray (Computergaga) shares some splendid tips - and demonstrates how to make two very useful macros.

1. Protect the cells on a worksheet that contain a formula
2. Consolidates data onto one worksheet (Cut and paste data to the end of a 'table')