Question : Dossier d'économie dans MS Word

J'ai entendu à un certain point qu'en sauvant un dossier dans MS Word, il sauve seulement les changements vous avez fait depuis la dernière époque où vous avez épargnée, au lieu de sauver le document entier à nouveau (afin de raccourcir l'éonomiseur de temps). Est-il ce vrai ? le
If ainsi, y a-t-il une manière d'examiner le document pour voir les révisions ?
Is là une manière de faire un « propre » sauf, enlevant toutes les révisions précédentes ?

class= de

Réponse : Dossier d'économie dans MS Word

Patrick,

Quelques choses, qui sont adressées dans mon http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/A_3391-Using-the-Dictionary-Class-in-VBA.html d'article

1) À la différence d'une collection, vous ne pouvez pas se référer à des articles dans un dictionnaire using un index.  En revanche, dans un dictionnaire, vous pouvez seulement chercher un article simple si vous fournissez sa clef.  Ainsi, votre boucle :

    Pour I = 1 à dic. Compte
        . Cellules (I, « C ») = dic. Article (i)
    Après i

ne retirera pas des articles du dictionnaire.  En effet, en raison du dictionnaire « implicite ajouter » le comportement, cette boucle ajoute réellement de nouveaux articles au dictionnaire :)

2) Vous ajoutiez réellement la gamme comme clef, et pas la valeur de la cellule, dans votre première boucle :

    Pour chaque celle dans le rng
        Sinon dic.exists (celle) puis
            dic. Ajouter le celle, celle
        Finir si
    Prochain celle

Puisque chaque cellule est un objet différent, vous avez fini réellement vers le haut d'ajouter toutes ces cellules en tant que l'article et clef

******************

Ainsi, pour fixer le code :

1) Passer explicitement les valeurs des cellules, et pas les cellules elles-mêmes, au dictionnaire.  Ou, employer un transfert de rangée pour créer une rangée dans la mémoire, et puis faire une boucle par la rangée et passer les valeurs de rangée au dictionnaire

2) Faire du dumping sur les articles dans une rangée

3) Faire un transfert de rangée pour écrire les valeurs à la feuille de travail

Patrick

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 :

Dict_test secondaires () Faible rng comme gamme Faible celle comme gamme Faibles dic_items comme variante Obscurcir I en tant que longtemps Obscurcir x comme variante Obscurcir dic comme Scripting.Dictionary Placer Scripting.Dictionary dic = nouveau dic.CompareMode = 1 Avec les feuilles (« Sheet1 ») Placer le rng = la gamme (. Cellules (1, « A »). Cellules (. Rows.Count, « A »). Extrémité (xlUp)) Pour chaque celle dans le rng Sinon dic.exists (celle. Valeur) puis dic. Ajouter le celle. Valeur, celle. Valeur Finir si Prochain celle dic_items = dic. Articles . [c : c] .ClearContents . [c1]. Remettre à la côte (dic. Compter, 1) = Application.Transpose (les dic_items) Finir avec Placer dic = rien Finir le sous-marin