Forum - Δημιουργία, αρχείων με αύξοντα αριθμό πρωτοκόλλου.

Δημιουργός: Τσιλιγιάννης Σπύρος
Έτος: 2015/9
Βαθμός δυσκολίας: Προχωρημένοι χρήστες Word.

Έστω, ότι θέλουμε να δημιουργήσουμε, μια σειρά αρχείων Word,
με έναν αριθμό πρωτοκόλλου, της μορφής:

Αριθ.Πρωτ./002001/GR/21.9.15

όπου 002001 ένας αριθμός, μορφοποιημένος ανάλογα με τις ανάγκες μας και ταυτόχρονα,
αυξανόμενος κατά 1 σε κάθε νέο αρχείο, που δημιουργούμε.
Βήμα 1
Δημιουργούμε, ένα πρότυπο αρχείο και στο σημείο που θέλουμε τον αριθμό πρωτοκόλλου,
πληκτρολογούμε: Αριθ.Πρωτ./|/GR/21.9.15
Βήμα 2
Βάζουμε τον κέρσορα του ποντικιού, στο κόκκινο σημείο του κειμένου και δημιουργούμε έναν σελιδοδείκτη, (bookmark) με όνομα πχ ■ ProtoCol.
Βήμα 3
Δημιουργούμε, έναν φάκελο στην επιφάνεια εργασίας, με όνομα ■ MyProto
Βήμα 4
Μέσα σε αυτόν, δημιουργούμε, ένα αρχείο .txt με όνομα ■ Settings
και πληκτρολογούμε:

[MacroSettings]
ProtoCol = 002000

σε δύο σειρές, όπου 002000 ο αριθμός εκκίνησης -1 (θέλω η αρίθμηση να αρχίζει από 2001)
Βήμα 5
Σε μια module του πρότυπου Word αρχείου, βάζουμε τον κώδικα:

Κώδικας:

Sub AutoNew()

    Dim ProtoCol As String

    ProtoCol = System.PrivateProfileString("Πλήρης Διαδρομή", "MacroSettings", "ProtoCol")

    If ProtoCol = "" Then

        ProtoCol = 2000

    Else

        ProtoCol = ProtoCol + 1

    End If

    System.PrivateProfileString("Πλήρης Διαδρομή", "MacroSettings", "ProtoCol") = ProtoCol

    ActiveDocument.Bookmarks("ProtoCol").Range.InsertBefore Format(ProtoCol, "00000#")

    'Αυτό το format θα δώσει 002001. Αλλάξτε το όπως θέλετε.

    ActiveDocument.SaveAs FileName:="MyNewDoc" & Format(ProtoCol, "00000#")

End Sub

όπου "Πλήρης Διαδρομή" η διαδρομή του .txt αρχείου μέσα σε εισαγωγικά.

Έχοντας ολοκληρώσει και αποθηκεύσει τα πάντα, κάθε φορά, που θα κάνουμε
διπλό κλικ, στο πρότυπο Word, ένα νέο αρχείο θα δημιουργείται, με αύξοντα αριθμό +1
στο πρωτόκολλο.

Σημείωση:
Στο αρχείο που ακολουθεί, θα πρέπει να εισάγετε,
την διαδρομή στον κώδικα και να τον ενεργοποιήσετε.
Για να «φτάσετε» τον κώδικα, πιέστε Alt + F11

*Αν επιθυμείτε, άλλη αρίθμηση, αλλάξτε:
1. Στον κώδικα την γραμμή ▬ ProtoCol = 2000 και την μορφοποίηση.
2. Στο .txt την γραμμή ▬ ProtoCol = 002000