Ο δικτυακός τόπος έχει πάψει να ενημερώνεται
και σύντομα η λειτουργία του πρόκειται να διακοπεί.

Τα περισσότερα από τα άρθρα του έχουν αναθεωρηθεί και,
μαζί με τις νέες δημοσιεύσεις, μπορείτε να τα βρείτε εδώ ➦

κλείσιμο

εκτύπωση θέματος   βρείτε μας στο facebook   σχόλια - παρατηρήσεις
Θέση: Ενότητες θεμάτων / Ρυθμίσεις του Word / Προσθήκη της Ειδικής επικόλλησης στο μενού συντομίας του Word 2007
  
αναζήτηση σε adaeion.gr

σχετικά θέματα Σχετικά θέματα

Τι πρέπει να γνωρίζετε για τις μακροεντολές

Γνωριμία με τον Visual Basic Editor

Εγκατάσταση μακροεντολής

Ταξινόμηση μακροεντολών

Προσθήκη της Ειδικής επικόλλησης στο μενού συντομίας του Word 2007

Χρησιμοποιήστε τον ακόλουθο κώδικα, για να προσθέσετε την εντολή Ειδική επικόλληση στο μενού συντομίας του Word 2007 (εικ. 1).

η εντολή ειδική επικόλληση στο μενού συντομίας

Εικ. 1 Η εντολή Ειδική επικόλληση στο μενού συντομίας

Sub AutoExec()
    Call AddPasteSpecial
End Sub
Sub AddPasteSpecial()
    Dim cb As CommandBar
    Dim c As CommandBarButton
    Set cb = Application.CommandBars("Text")
    Set c = cb.FindControl(, , "VBAxPasteSpec")
    If c Is Nothing Then
        Set c = cb.Controls.Add(msoControlButton, 755, , 4, True)
        With c
            .Caption = "Ειδική επικόλληση..."
            .Style = msoButtonCaption
            .TooltipText = "Ειδική επικόλληση"
            .Tag = "VBAxPasteSpec"
        End With
    End If
End Sub

Αντιγράψτε τον κώδικα [1] σε ένα module του βασικού πρότυπου (Normal.dotm). Για να ενεργοποιηθεί η εντολή θα χρειαστεί να κλείσετε και να ξανα-ανοίξετε το Word, καθώς η εντολή AutoExec() εκτελείται κατά το άνοιγμα του προγράμματος.

ΣΗΜΕΙΩΣΗ Έχει αναφερθεί ότι μετά την χρήση του κώδικα, σε έναν χρήστη η εντολή Ειδική επικόλληση εμφανιζόταν τέσσερις φορές! Παρόλο που ο κώδικας το "απαγορεύει" αυτό (If c Is Nothing), μπορείτε να δοκιμάσετε την ακόλουθη αλλαγή:

Αντί: Set c = cb.FindControl(, , "VBAxPasteSpec")
Γράψτε: Set c = cb.FindControl(, 755)

Παραπομπές δεσμών θέματος

[1] www.adaeion.gr/word/c/install_macro.html

Δημοσίευση: Τρίτη, 16 Φεβ 2010