金曜日、14 2月2020
  5 返信
  5.3K訪問
Wordドキュメント内のテキストを選択し、Kutoolsタブの下にあるブックマークの挿入アイコンをクリックすると、スペースが自動的にアンダースコアに置き換えられない特別な理由はありますか? これは、Kutoolsがすぐに実装できる、そしてそうすべきである、完全に論理的で時間の節約的な機能のように思えます。 私はソフトウェアを購入するときにそのような機能を期待していたので、それに関する他の人のコメントや考えを歓迎します。

Kutools_Insert_Bookmark_ScreenShot.png
3年前
·
#2077
ラクサーラガーさん、こんにちは。
私も同じ問題/悩みを抱えています。 したがって、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
ちょっと、そこ。

マクロでの返信どころか、返信も来ないと思っていました。 本当にありがとう。

残念ながら、マクロは機能しません。 テキストを選択してマクロを実行すると、「ブレーク モードではコードを実行できません」という VBA エラーが発生し続けます。

何か考えや修正はありますか?

おかげで再び!
言い忘れていましたが、「コンパイル エラー: ユーザー定義型が定義されていません」というエラーが発生することもあります。
3年前
·
#2080
ああ、これらすべての文字と数字はそこにあるべきではありません。 もう一度そのスクリーンショットを貼り付けてみましょう。
添付ファイル(1)
3年前
·
#2081
適切な参照を追加するだけです。 それが何であるかを正確に理解する必要はありません。次のことを行うだけです。 
  1. VBA エディタに移動します (つまり、ALT+F11 を押します)[/*]
  2. 空のユーザーフォームを作成します (添付のスクリーンショットを参照してください。左ペインで右クリックし、[挿入]、[ユーザーフォーム] の順に選択します。) [/*]
  3. メニューバーの「ツール」をクリックします[/*]
  4. 「参考文献[/*]」をクリックします。
  5. Microsoft Forms 2.0 オブジェクト ライブラリ[/*]までスクロールします。
  6. チェックボックスがオンになっていることを確認してください[/*]
  7. 「OK」をクリックします[/*]
マクロをもう一度試してください。
添付ファイル(1)
  • ページ:
  • 1
この投稿に対する返信はまだありません。