Forum

Forum (https://www.ms-office.gr/forum/)
-   Word samples - Χρήσιμα αρχεία & παραδείγματα (https://www.ms-office.gr/forum/word-samples-xrisima-arxeia-paradeigmata/)
-   -   Δημιουργία, αρχείων με αύξοντα αριθμό πρωτοκόλλου. (https://www.ms-office.gr/forum/word-samples-xrisima-arxeia-paradeigmata/3842-dimioyrgia-arxeion-me-aiksonta-arithmo-protokolloy.html)

Spirosgr 21-09-15 21:55

Δημιουργία, αρχείων με αύξοντα αριθμό πρωτοκόλλου.
 
2 Συνημμένο(α)
Δημιουργός: Τσιλιγιάννης Σπύρος
Έτος: 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


Η ώρα είναι 22:25.

Ms-Office.gr - ©2000 - 2021, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2