0
расстегивать
Голосов
Есть ли конкретная причина, по которой пробелы автоматически не заменяются символами подчеркивания при выборе текста в документе Word, а затем при нажатии на значок «Вставить закладку» на вкладке Kutools? Это кажется совершенно логичной, экономящей время функцией, которую Kutools может и должен реализовать быстро. Я ожидал такой функции при покупке программного обеспечения и приветствую любые комментарии и / или мысли других людей по этому поводу.
0
расстегивать
Голосов
Привет лаксерлагер,
У меня такая же проблема/раздражение. Поэтому вместо использования 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
расстегивать
Голосов
Привет всем.
Думал, что никогда не получу ответа, не говоря уже о макросе! Большое спасибо.
К сожалению, макрос у меня не работает. При выборе текста и запуске макроса я продолжаю получать ошибку VBA «Не удается выполнить код в режиме приостановки».
Есть мысли или поправки?
Еще раз спасибо!
Думал, что никогда не получу ответа, не говоря уже о макросе! Большое спасибо.
К сожалению, макрос у меня не работает. При выборе текста и запуске макроса я продолжаю получать ошибку VBA «Не удается выполнить код в режиме приостановки».
Есть мысли или поправки?
Еще раз спасибо!
0
расстегивать
Голосов
забыл упомянуть, что я также иногда получаю сообщение об ошибке «Ошибка компиляции: пользовательский тип не определен»
0
расстегивать
Голосов
Ого, всех этих букв и цифр там быть не должно. Давайте попробуем снова поставить этот скриншот.
0
расстегивать
Голосов
Вам просто нужно добавить соответствующую ссылку. Не нужно точно понимать, что это такое, достаточно сделать следующее:
- Перейдите в редактор VBA (то есть нажмите ALT+F11)[/*]Создайте пустую пользовательскую форму (см. прикрепленный скриншот. Щелкните правой кнопкой мыши на левой панели, выберите «Вставить», затем «Пользовательская форма».) [/*]Нажмите «Инструменты» в строке меню[/*]Нажмите на ссылки[/*]Прокрутите вниз до библиотеки объектов Microsoft Forms 2.0[/*]Убедитесь, что флажок установлен[/*]Нажмите ОК[/*]
- Страница:
- 1
Там нет ответов, сделанные на этот пост пока нет.