0
odpiąć
Głosów
Czy istnieje szczególny powód, dla którego spacje nie są automatycznie zastępowane podkreśleniami podczas wybierania tekstu w dokumencie programu Word, a następnie kliknięcia ikony Wstaw zakładkę pod zakładką Kutools? Wydaje się to być całkowicie logiczną, oszczędzającą czas funkcją, którą Kutools może i powinien szybko wdrożyć. Spodziewałem się takiej funkcji przy zakupie oprogramowania i chętnie przyjmę komentarze i/lub przemyślenia innych osób na ten temat.
Witaj laxerlager,
Mam ten sam problem/irytację. Więc zamiast używać Kutools do tworzenia zakładki, używam następującego makra. Bardzo bym się ucieszył, gdyby ktoś inny mógł skorzystać z mojej pracy!
Wiesz, jak korzystać z makr?
Mam ten sam problem/irytację. Więc zamiast używać Kutools do tworzenia zakładki, używam następującego makra. Bardzo bym się ucieszył, gdyby ktoś inny mógł skorzystać z mojej pracy!
Wiesz, jak korzystać z makr?
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
odpiąć
Głosów
No hej.
Myślałem, że nigdy nie otrzymam odpowiedzi, nie mówiąc już o makro! Dzięki wielkie.
Niestety Macro nie działa dla mnie. Podczas wybierania tekstu i uruchamiania makra otrzymuję błąd VBA „Nie można wykonać kodu w trybie przerwania”.
Jakieś przemyślenia lub poprawki?
Dzięki jeszcze raz!
Myślałem, że nigdy nie otrzymam odpowiedzi, nie mówiąc już o makro! Dzięki wielkie.
Niestety Macro nie działa dla mnie. Podczas wybierania tekstu i uruchamiania makra otrzymuję błąd VBA „Nie można wykonać kodu w trybie przerwania”.
Jakieś przemyślenia lub poprawki?
Dzięki jeszcze raz!
0
odpiąć
Głosów
zapomniałem wspomnieć, że czasami pojawia się błąd „Błąd kompilacji: niezdefiniowany typ zdefiniowany przez użytkownika”
Wystarczy dodać odpowiednie odniesienie. Nie musisz dokładnie rozumieć, co to jest, po prostu wykonaj następujące czynności:
- Przejdź do edytora VBA (czyli naciśnij ALT+F11)[/*]Utwórz pusty formularz użytkownika (patrz załączony zrzut ekranu. Klikasz prawym przyciskiem myszy w lewym okienku, wybierz wstaw, a następnie formularz użytkownika.) [/*]Kliknij Narzędzia na pasku menu[/*]Kliknij Referencje[/*]Przewiń w dół do biblioteki obiektów Microsoft Forms 2.0[/*]Upewnij się, że pole jest zaznaczone[/*]Kliknij OK[/*]
- Strony:
- 1
Nie ma jeszcze odpowiedzi na ten post.