Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 21-09-15, 21:55
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή Δημιουργία, αρχείων με αύξοντα αριθμό πρωτοκόλλου.

Δημιουργός: Τσιλιγιάννης Σπύρος
Έτος: 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
Συνημμένα Αρχεία
Τύπος Αρχείου: dotm ProtoCol.dotm (32,3 KB, 185 εμφανίσεις)
Τύπος Αρχείου: txt Settings.txt (32 Bytes, 105 εμφανίσεις)
Απάντηση με παράθεση