Questione : Lima di risparmio in MS Word

Ho sentito ad un certo punto che quando conserva una lima in MS Word, conserva soltanto i cambiamenti avete fatto dall'ultima volta che avete risparmiato, invece di salvataggio del documento intero di nuovo (per per ridurre il risparmiatore di tempo). È questo allineare?
If così, è ci un senso esaminare il documento per vedere le revisioni?
Is là un senso fare “un pulito„ salvo, rimuovendo tutte le revisioni precedenti?

class= del

Risposta : Lima di risparmio in MS Word

Patrick,

Alcune cose, che sono indirizzate nel mio http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/A_3391-Using-the-Dictionary-Class-in-VBA.html dell'articolo

1) Diverso di una collezione, non potete riferirti agli articoli in un dizionario using un indice.  Piuttosto, in un dizionario, potete andare a prendere soltanto un singolo articolo se fornite la relativa chiave.  Così, il vostro ciclo:

    Per i = 1 a dic. Conteggio
        . Cellule (i, “C„) = dic. Articolo (i)
    Dopo i

non estrarrà gli articoli dal dizionario.  Effettivamente, a causa del dizionario “implicito aggiungere„ il comportamento, quel ciclo realmente sta aggiungendo i nuovi articoli al dizionario:)

2) Realmente stavate aggiungendo la gamma come la chiave e non il valore della cellula, nel vostro primo ciclo:

    Per ogni celle nel rng
        Se non dic.exists (celle) allora
            dic. Aggiungere il celle, celle
        Concluder se
    Celle seguente

Poiché ogni cellula è un oggetto differente, realmente vi siete concluso sull'aggiunta delle tutte quelle cellule come sia l'articolo che chiave

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

Così, riparare il codice:

1) Passare esplicitamente i valori delle cellule e non le cellule essi stessi, al dizionario.  O, usare un trasferimento di allineamento per generare un allineamento nella memoria ed allora collegare con l'allineamento e passare i valori di allineamento al dizionario

2) Fare uscire gli articoli in un allineamento

3) Fare un trasferimento di allineamento per scrivere i valori al manuale

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:

Più dict_test secondari ()
    
    Rng fioco come gamma
    Celle fioco come gamma
    Dic_items fiochi come variante
    Oscurare la i come lungamente
    Oscurare la x come variante
    
    Oscurare dic come Scripting.Dictionary
    Regolare Scripting.Dictionary dic = nuovo
    dic.CompareMode = 1
    
    Con gli strati (“Sheet1„)
        Regolare il rng = la gamma (. Cellule (1, “A„). Cellule (. Rows.Count, “A„). Estremità (xlUp))
    
        Per ogni celle nel rng
            Se non dic.exists (celle. Valore) allora
                dic. Aggiungere il celle. Valore, celle. Valore
            Concluder se
        Celle seguente
        
        dic_items = dic. Articoli
        
        . [c: c] .ClearContents
        . [c1]. Ridimensionare (dic. Contare, 1) = Application.Transpose (dic_items)
    Concluder con
    
    Regolar dic = niente
    
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us