sauvegarder base de données sur word

[invitef52166cd]

bonjour
voila depuis un certains nombre d'années, j'utilise ce traitement de texte pour mes cours universitaires et mes devoirs, de ce fait g agrémenté la correction automatique de nombreuses abréviations me permettant d'économiser la saisie de 30 a 40% des lettres
mais voila je vais changer d'ordinateur et aussi acheter une version plus récente de word.

j'aimerais dans ce cas savoir comment je pourrais sauvegarder la base de données de la correction automatique, je n'aimerais pas à rentrer de nouveau plus de 1000 abréviations sur le logiciel

"""c super imp svp"""
merci de vos réponses
-----

[invitedebe236f]

ca doit etre faisable
voila l idee ecrire un pgm avec l instruction suivante

AutoCorrect.Entries.Add Name:="test1", Value:="test2"

je te l ecrirais c est rien mais tu abreviation dans un fichier texte ??

[invitef52166cd]

je voit pas a qoi servirait defaire un programme, il faudrait que tu me l'explique

je me demande si il n'y a pas plutôt un fichier chargé de la base de données dans le répertoire d'office, mais aucun fichiers appellé abréviation ou correction automatique

[JPL]

je te l ecrirais c est rien mais tu abreviation dans un fichier texte ??

Traduit en français, cela veut dire quoi ?

[A voir en vidéo sur Futura]

[invitedebe236f]

et bien il y a 2 probleme
1 lire l ancienne base
2 l ecrire dans word

l ecrire dans word pas de probleme
reste lire l ancienne j ai besoin de savoir a quoi ca ressemble
donc si tu peux me laisser un lien vers ta base je te fait le programme
si ton fichier est reelement lisible il me faut 1 minute

il n y a pas de base lisible dans word

[invitedebe236f]

bon si tu as tes donnee au format texte comme ca
ex toto a remplacer par titi bonjour a remplacer par salut

toto;titi
bonjour;salut
chein;chien

sous word tu fait menu outil macro macros cree et tu copie les lignes suivantes entre le sub et end sub le fichier de donnee doit s appeler a.a sur c:\ puis tu tape la touche F5 et c est tout

Dim t As String
Dim t1 As String
Dim t2 As String

Open "c:\a.a" For Binary As #1
t = String(1000, " ")
While Not (EOF(1))
Line Input #1, t
t1 = Mid(t, 1, InStr(1, t, ";") - 1)
t2 = Mid(t, InStr(1, t, ";") + 1)
AutoCorrect.Entries.Add Name:=t1, Value:=t2
Wend
Close

[invitef52166cd]

merci de tes réponses je vais directement essayer

[invitef52166cd]

a priori on ne peut pas enregistrer les corrections, ils ne sont donc pas au format txt, je sais pas de quelle format sont les informations de la boîte de dialougue