0
Kibont
Szavazatok
Van valami különös oka annak, hogy a szóközöket nem helyettesíti automatikusan aláhúzás, amikor szöveget választ ki egy Word-dokumentumban, majd a Kutools lapon a Könyvjelző beszúrása ikonra kattint? Ez egy teljesen logikus, időtakarékos funkciónak tűnik, amelyet a Kutools azonnal be tud és kell is végrehajtania. Vártam volna egy ilyen funkciót a szoftver megvásárlásakor, és szívesen fogadok mások ezzel kapcsolatos megjegyzéseit és/vagy gondolatait.
Szia Laxerlager!
Nekem is ugyanez a problémám/bosszantásom. Tehát a Kutools használata helyett a könyvjelző létrehozásához a következő makrót használom. Nagyon boldoggá tennék, ha valaki más is profitálna a munkámból!
Tudod, hogyan kell makrókat használni?
Nekem is ugyanez a problémám/bosszantásom. Tehát a Kutools használata helyett a könyvjelző létrehozásához a következő makrót használom. Nagyon boldoggá tennék, ha valaki más is profitálna a munkámból!
Tudod, hogyan kell makrókat használni?
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
Kibont
Szavazatok
Halihó.
Azt hittem, soha nem kapok választ, nemhogy makróval! Köszönöm szépen.
Sajnos a makró nekem nem megy. Szöveg kijelölésekor és a makró futtatásakor folyamatosan VBA hibaüzenetet kapok: "Nem lehet kódot végrehajtani szünet módban".
Valami gondolat, korrekció?
Köszönöm mégegyszer!
Azt hittem, soha nem kapok választ, nemhogy makróval! Köszönöm szépen.
Sajnos a makró nekem nem megy. Szöveg kijelölésekor és a makró futtatásakor folyamatosan VBA hibaüzenetet kapok: "Nem lehet kódot végrehajtani szünet módban".
Valami gondolat, korrekció?
Köszönöm mégegyszer!
0
Kibont
Szavazatok
elfelejtettem megemlíteni, hogy néha a "Fordítási hiba: Felhasználó által definiált típus nincs megadva" hibaüzenetet is kapok
Csak hozzá kell adnia a megfelelő hivatkozást. Nem kell pontosan megérteni, mi ez, csak tegye a következőket:
- Lépjen a VBA szerkesztőbe (vagyis nyomja meg az ALT+F11 billentyűt)[/*]Hozzon létre egy üres felhasználói űrlapot (lásd a mellékelt képernyőképet. Kattintson a jobb gombbal a bal oldali panelen, válassza a beszúrást, majd a Felhasználói űrlapot.) [/*]Kattintson az Eszközök elemre a menüsorban[/*]Kattintson a Referenciákra[/*]Görgessen le a Microsoft Forms 2.0 Object Library részhez[/*]Győződjön meg arról, hogy a négyzet be van jelölve[/*]Kattintson az OK gombra[/*]
- Oldal:
- 1
Erre a bejegyzésre még nem válaszoltak.