Pátek, 14 února 2020
  5 Odpovědi
  5.3 tis. Návštěv
0
Hlasy
Zrušit
Existuje nějaký konkrétní důvod, proč se při výběru textu v dokumentu aplikace Word a následném kliknutí na ikonu Vložit záložku na kartě Kutools mezery automaticky nenahrazují podtržítky? Zdá se to jako zcela logická funkce šetřící čas, kterou Kutools může a měl by okamžitě implementovat. Očekával bych takovou funkci při nákupu softwaru a uvítám jakékoli komentáře a myšlenky ostatních.

Kutools_Insert_Bookmark_ScreenShot.png
Před 3 let
·
#2077
0
Hlasy
Zrušit
Ahoj laxerlagere,
Mám stejný problém/nepříjemnost. Takže místo použití Kutools k vytvoření záložky používám následující makro. Udělalo by mi velkou radost, kdyby z mé práce mohl mít prospěch i někdo jiný! 
Víte, jak používat makra?

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
Před 3 let
·
#2078
0
Hlasy
Zrušit
Nazdárek.

Myslel jsem, že nikdy nedostanu odpověď, natož takovou s makrem! Díky moc.

Makro mi bohužel nefunguje. Při výběru textu a spouštění makra se mi stále zobrazuje chyba VBA „Nelze spustit kód v režimu přerušení“.

Nějaké nápady nebo opravy?

Ještě jednou díky!
Před 3 let
·
#2079
0
Hlasy
Zrušit
zapomněl jsem zmínit, že se mi také někdy zobrazuje chyba „Chyba kompilace: Uživatelsky definovaný typ není definován“
Před 3 let
·
#2080
0
Hlasy
Zrušit
Páni, všechna ta písmena a číslice tam být nemají. Zkusme dát ten snímek obrazovky znovu.
Před 3 let
·
#2081
0
Hlasy
Zrušit
Stačí přidat správnou referenci. Není třeba přesně rozumět, co to je, stačí udělat následující: 
  1. Přejděte do editoru VBA (tj. stiskněte ALT+F11)[/*]
  2. Vytvořte prázdný uživatelský formulář (viz přiložený snímek obrazovky. Klikněte pravým tlačítkem do levého panelu, vyberte vložit a poté Userform.) [/*]
  3. Klikněte na Nástroje na liště nabídek[/*]
  4. Klikněte na Reference[/*]
  5. Přejděte dolů na Microsoft Forms 2.0 Object Library[/*]
  6. Ujistěte se, že je políčko zaškrtnuté[/*]
  7. Klikněte na OK[/*]
Zkuste makro znovu.
  • Stránka:
  • 1
Na tento příspěvek zatím nebyly učiněny žádné odpovědi.