0
Αναίρεση
Ψηφοφορίες
Υπάρχει κάποιος συγκεκριμένος λόγος για τον οποίο τα κενά δεν αντικαθίστανται αυτόματα με υπογράμμιση κατά την επιλογή κειμένου σε ένα έγγραφο του Word και, στη συνέχεια, κάνοντας κλικ στο εικονίδιο Εισαγωγή σελιδοδείκτη κάτω από την καρτέλα Kutools; Αυτό φαίνεται σαν ένα εντελώς λογικό χαρακτηριστικό που εξοικονομεί χρόνο που το Kutools μπορεί και πρέπει να εφαρμόσει αμέσως. Θα περίμενα μια τέτοια δυνατότητα όταν αγόραζα το λογισμικό και καλωσόριζα τυχόν σχόλια ή/και σκέψεις άλλων για το ίδιο.
Γεια σου Laxerlager,
Έχω το ίδιο πρόβλημα/ενόχληση. Έτσι, αντί να χρησιμοποιήσω το Kutools για τη δημιουργία του σελιδοδείκτη, χρησιμοποιώ την ακόλουθη μακροεντολή. Θα με έκανε πολύ χαρούμενο αν κάποιος άλλος μπορούσε να επωφεληθεί από τη δουλειά μου!
Ξέρετε πώς να χρησιμοποιείτε μακροεντολές;
Έχω το ίδιο πρόβλημα/ενόχληση. Έτσι, αντί να χρησιμοποιήσω το Kutools για τη δημιουργία του σελιδοδείκτη, χρησιμοποιώ την ακόλουθη μακροεντολή. Θα με έκανε πολύ χαρούμενο αν κάποιος άλλος μπορούσε να επωφεληθεί από τη δουλειά μου!
Ξέρετε πώς να χρησιμοποιείτε μακροεντολές;
Sub InsertNewBookmark()
Dim MyData As DataObject
Dim strClip As String
Dim bkName As String
If Selection.Type = wdSelectionNormal Then
Selection.Copy
End If
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText
strClip = Trim(strClip)
strClip = Replace(strClip, " ", " ")
strClip = Replace(strClip, " ", " ")
strClip = Replace(strClip, " ", "_")
bkName = InputBox("Insert new bookmark name.", "Hello there.", strClip)
On Error GoTo Oops
If (StrPtr(bkName) = 0) Then
' MsgBox "You pressed cancel or [X]."
Exit Sub
ElseIf (bkName = "") Then
MsgBox "You have to name the bookmark. Try again."
Call InsertNewBookmark
Else
ActiveDocument.Bookmarks.Add _
Name:=bkName, Range:=Selection.Range
Exit Sub
End If
Oops:
MsgBox ("The bookmark could not be created. Remember to follow these guidelines :" & vbNewLine & vbNewLine & "• Names must begin with a letter of the alphabet." _
& vbNewLine & "• Names can contain only letters, numbers, and the underscore." & vbNewLine & "• Names cannot contain spaces or punctuation marks." & vbNewLine _
& vbNewLine & "Let's try it again. Ready?")
Call InsertNewBookmark
End Sub
0
Αναίρεση
Ψηφοφορίες
Γεια σου.
Νόμιζα ότι δεν θα έπαιρνα ποτέ απάντηση, πόσο μάλλον μια με μακροεντολή! Ευχαριστώ πολύ.
Δυστυχώς, το Macro δεν μου λειτουργεί. Όταν επιλέγω κείμενο και εκτελώ τη μακροεντολή, λαμβάνω συνέχεια ένα σφάλμα VBA "Δεν μπορώ να εκτελέσω κώδικα σε λειτουργία διακοπής".
Κάποιες σκέψεις ή διορθώσεις;
Ευχαριστώ και πάλι!
Νόμιζα ότι δεν θα έπαιρνα ποτέ απάντηση, πόσο μάλλον μια με μακροεντολή! Ευχαριστώ πολύ.
Δυστυχώς, το Macro δεν μου λειτουργεί. Όταν επιλέγω κείμενο και εκτελώ τη μακροεντολή, λαμβάνω συνέχεια ένα σφάλμα VBA "Δεν μπορώ να εκτελέσω κώδικα σε λειτουργία διακοπής".
Κάποιες σκέψεις ή διορθώσεις;
Ευχαριστώ και πάλι!
0
Αναίρεση
Ψηφοφορίες
ξέχασα να αναφέρω ότι μερικές φορές λαμβάνω επίσης το σφάλμα "Σφάλμα μεταγλώττισης: Ο τύπος που ορίζεται από το χρήστη δεν έχει οριστεί"
Απλά πρέπει να προσθέσετε την κατάλληλη αναφορά. Δεν χρειάζεται να καταλάβετε τι ακριβώς είναι, απλώς κάντε τα εξής:
- Μεταβείτε στον επεξεργαστή VBA (δηλαδή, πατήστε ALT+F11)[/*]Δημιουργήστε μια κενή φόρμα χρήστη (δείτε επισυναπτόμενο στιγμιότυπο οθόνης. Κάνετε δεξί κλικ στο αριστερό παράθυρο, επιλέξτε εισαγωγή και, στη συνέχεια, φόρμα χρήστη.) [/*]Κάντε κλικ στο Εργαλεία στη γραμμή μενού[/*]Κάντε κλικ στις Αναφορές[/*]Κάντε κύλιση προς τα κάτω στη Βιβλιοθήκη αντικειμένων Microsoft Forms 2.0[/*]Βεβαιωθείτε ότι το πλαίσιο είναι επιλεγμένο[/*]Κάντε κλικ στο OK[/*]
- σελίδα:
- 1
Δεν υπάρχουν ακόμη απαντήσεις για αυτήν την ανάρτηση.