Education with Word Macros

The tamplates mo-pos-f.dot (French version) and mo-pos.dot (German version) will let you teach cut and paste and drag and drop together with the write positioning of adjectivs in French. Glossary entries hold the information and the excercises. Execution is controlled by the macros shown here after.

The glossary entries are:

AutoNew and AutoOpen

Sub MAIN
AfficherTout 0
OutilsOptionsEdition .RemplacerSélection = 1, .GlisserDéplacer = 0, .SélectionDesMotsAuto = 0, .Refrappe = 0, .CouperCollerGestionEsp = 1
AffichageBarresOutils .BoutonsCouleur = 1, .BoutonsAgrandis = 1, .InfoBulles = 1
AffichageBarresOutils .BarreOutils = "Standard", .Masquer
AffichageBarresOutils .BarreOutils = "Mise en forme", .Masquer
AffichageBarresOutils .BarreOutils = "Cut and Paste", .Masquer
DéfinirInsertionAuto "iCounter", "1", 1
EditionSélectionnerTout
EditionEffacer
EditionInsertionAuto .Nom = "Intro", .Contexte = 1, .InsertionComme = 0, .Insérer
EditionInsertionAuto .Nom = "Part01", .Contexte = 1, .InsertionComme = 0, .Insérer
End Sub

EditionCopier

Sub MAIN
	MsgBox "Non, ce n'est pas la commande couper !", "Information d'entrainement", 16
End Sub

EditionColler

Sub MAIN
iCounter = Val(LitInsertionAuto$("iCounter", 1))
EditionColler
sCell$ = LitSignet$("\Cell")
sCell$ = Left$(sCell$, Len(sCell$) - 2)
CarGauche 2
EditionRechercher .Rechercher = sCell$, .Sens = 0, .RespecterLaCasse = 1, .MotEntier = 0, .CritresSpéciaux = 0, .Réservé23 = 0, .Format = 0, .RenvoiLigneAuto = 0
sHit$ = LitSignet$("\Sel")
If Len(sHit$) = Len(sCell$) Then
	FormatCaractres .Couleur = 0
	CelluleSuiv
	CarGauche 1
	If iCounter = 4 Then
		OutilsPersonnaliserBarreMenus .Contexte = 1, .TypeMenu = 0, .Menu = "&Edition", .Retirer
		AffichageBarresOutils .BarreOutils = "Cut and Paste", .Afficher
		EditionSélectionnerTout
		EditionEffacer
		EditionInsertionAuto .Nom = "Intro", .Contexte = 1, .InsertionComme = 0, .Insérer
		EditionInsertionAuto .Nom = "Part02", .Contexte = 1, .InsertionComme = 0, .Insérer
	ElseIf iCounter = 8 Then
		AffichageBarresOutils .BarreOutils = "Cut and Paste", .Masquer
		EditionSélectionnerTout
		EditionEffacer
		EditionInsertionAuto .Nom = "Intro", .Contexte = 1, .InsertionComme = 0, .Insérer
		EditionInsertionAuto .Nom = "Part03", .Contexte = 1, .InsertionComme = 0, .Insérer
	ElseIf iCounter = 12 Then
		EditionSélectionnerTout
		EditionEffacer
		EditionInsertionAuto .Nom = "Bravo", .Contexte = 1, .InsertionComme = 0, .Insérer
	End If
	iCounter = iCounter + 1
	DéfinirInsertionAuto "iCounter", Str$(iCounter), 1
Else
	MsgBox "Non, cette position n'est pas juste !", "Information d'entrainement", 16
	EditionAnnuler
	EditionAnnuler
End If
End Sub