1

選択したテキストの場所と名前に場所のブックマークを作成するマクロを作成しようとしています。

以下のコードがありますが、ブックマーク名が悪いと言っています。

 Sub AddBookMark()

 Dim sText As String
 sText = Application.Selection.Text
 sText = Replace(sText, vbCrLf, "")
 sText = Replace(sText, Chr(10), " ")
 sText = Replace(sText, Chr(182), " ")

With ActiveDocument.Bookmarks
    .Add Range:=Selection.Range, Name:=sText
    .DefaultSorting = wdSortByName
    .ShowHidden = False
End With
End Sub

選択したテキストに基づいてブックマーク名を変数として設定する方法はありますか？

4

1 に答える 1

2

これを試して

「 @#$1_qwerty@#@!# _1234 」のような文字列でテストしました。CleanText関数はそれを「qwerty_1234」に変更します

しおりは、最初の文字と残りの文字としてName受け入れられます。a-z/A-Za-z/A-Z/0-1/_

Option Explicit

 Sub AddBookMark()
    Dim sText As String

    sText = CleanText(Application.Selection.Text)

    If sText = "" Then
        MsgBox "Invalid Name"
        Exit Sub
    End If

    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=sText
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

Function CleanText(strInput As String) As String
    Dim i As Long, strTemp As String

    strInput = Trim(strInput)

    Do Until (Asc(Left(strInput, 1)) > 65 And Asc(Left(strInput, 1)) < 90) Or _
    (Asc(Left(strInput, 1)) > 97 And Asc(Left(strInput, 1)) < 122) Or Len(strInput) = 0
        Select Case Asc(Left(strInput, 1))
            Case 65 To 90, 97 To 122
            Case Else: strInput = Mid(strInput, 2)
        End Select
    Loop

    strTemp = Left(strInput, 1)

    For i = 2 To Len(strInput)
        Select Case Asc(Mid(strInput, i, 1))
            Case 65 To 90, 97 To 122, 95, 48 To 57
                strTemp = strTemp & Mid(strInput, i, 1)
        End Select
    Next
ExitF:
    CleanText = strTemp
End Function
于 2012-05-31T14:18:22.450 に答える