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.
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
Sub MAIN
MsgBox "Non, ce n'est pas la commande couper !", "Information d'entrainement", 16
End Sub
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