быстрый очень быстрый переход в документе

[forumWord]

Вождь,

' ищем закладку
If ActiveDocument.Bookmarks.Exists(N) <> True Then

Это не поиск закладки, а система защиты от удаления нужного: удалится должна только закладка. Хотя сейчас подумал, если в документе есть текст, совпадающий с именем закладки, то тогда и текст может удалится нужный. Значит надо усовершенствовать систему защиты.

[Окоча Юра]

Сообщение от Вождь

Развил идею (см. комментарии):

Public Sub Bookmark_TypedGo()
' переход к закладке по имени набранному в документе
' - если выбран текст, то считаем его именем
' - ничего не выбрано, то имя перед курсором,
'   начиная с начала абзаца или заданного символа

Const c_StartChars$ = " >" ' набор символов начала закладки

Dim R As Range
Dim N$
Dim L&
    
    ' область имени закладки
    Set R = Selection.Range
    If R.Start < R.End Then
        ' уже выбрана
        N = R.Text ' имя
    Else
        ' перед курсором
        L = R.Paragraphs.First.Range.Start - R.Start
        If R.MoveStartUntil(Cset:=c_StartChars, Count:=L) < 0 Then
            N = R.Text ' имя
            R.MoveStart Unit:=Word.wdCharacter, Count:=-1
        Else
            R.MoveStart Unit:=Word.wdCharacter, Count:=L
            N = R.Text ' имя
        End If
    End If
    N = Trim$(N) ' чистим имя
    
    ' ищем закладку
    If ActiveDocument.Bookmarks.Exists(N) <> True Then
        ' нет закдаки
        StatusBar = "Нет закладки c именем """ & N & """"
    Else
        ' удаляем имя
        L = R.Characters.Count
        R.Collapse Direction:=Word.wdCollapseStart
        R.Delete Unit:=Word.wdCharacter, Count:=L
        ' переход к закладке
        ActiveDocument.Bookmarks(N).Range.Select
        Selection.Collapse Direction:=Word.wdCollapseStart
    End If
    
End Sub

макрос хорош, но еще немножко до совершенства:
когда я ввожу название закладки, нажимаю макрос, автоматом перехожу в начало нужной закладки при этом набранное название закладки автоматом удаляется, то заодно с названием закладки удаляется пробел что стоит перед этим словом, можно ли сделать чтобы пробел оставался на месте...
например: пишу "Украина - наша аародина" нажимаю макрос, курсор переходит в начало нужной закладки, при этом слово "аа" удаляется вместе с пробелом между словами "наша" и "родина" и получается такое: "Украина - нашародина", а нужно чтобы пробел между ними остался...

[Окоча Юра]

Сообщение от forumWord

Окоча Юра, вот это

Selection.MoveLeft

надо поместить после

Selection.GoTo What:=wdGoToBookmark, Name:=vИмяЗакладки

спасибо...

[forumWord]

Окоча Юра, я тестировал коды при условии, что имя закладки вводится в конце абзаца. Если имя закладки вводится в другом месте, то нужна доработка кода. Т.к. если ввести имя закладки, а затем поставить пробел, чтобы отделить имя закладки от текста в документе, то тогда третий код не будет работать.

Завтра ещё посмотрю.

[Окоча Юра]

Сообщение от forumWord

Окоча Юра, я тестировал коды при условии, что имя закладки вводится в конце абзаца. Если имя закладки вводится в другом месте, то нужна доработка кода. Т.к. если ввести имя закладки, а затем поставить пробел, чтобы отделить имя закладки от текста в документе, то тогда третий код не будет работать.

Завтра ещё посмотрю.

ок., тогда пока будем использовать 2-ой макрос и не ставить "_" в названиях закладки...еще хороший макрос написал товарищ по форуму...

[Sasha_Smirnov]

Про контрол-шифт-F5 забыли?

http://programmersforum.ru/showthread.php?t=109084

[Окоча Юра]

Сообщение от Sasha_Smirnov

Про контрол-шифт-F5 забыли?

http://programmersforum.ru/showthread.php?t=109084

ghj контрол-шифт-F5 не забыл - а зачем он...если оказывается есть прекрасные макросы, думаю не только мне будут полезные...лучше помогите добить эти макросы своим свежим взглядом

[forumWord]

Не знаю, что ещё добавить. Обязательное условие применения макроса: вставка пробела перед именем закладки. После пробел не нужен.

Sub Макрос6()
Dim vИмяЗакладки As String
Do While InStr(Selection.Text, " ") = 0
    Selection.MoveLeft unit:=wdCharacter, Extend:=wdExtend
Loop
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
vИмяЗакладки = Selection.Text
If ActiveDocument.Bookmarks.Exists(vИмяЗакладки) = True Then
    Selection.Delete
    Selection.GoTo What:=wdGoToBookmark, Name:=vИмяЗакладки
    Selection.MoveLeft
Else
    MsgBox "Такой закладки нет"
End If
End Sub

[Окоча Юра]

Сообщение от forumWord

Не знаю, что ещё добавить. Обязательное условие применения макроса: вставка пробела перед именем закладки. После пробел не нужен.

Sub Макрос6()
Dim vИмяЗакладки As String
Do While InStr(Selection.Text, " ") = 0
    Selection.MoveLeft unit:=wdCharacter, Extend:=wdExtend
Loop
Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
vИмяЗакладки = Selection.Text
If ActiveDocument.Bookmarks.Exists(vИмяЗакладки) = True Then
    Selection.Delete
    Selection.GoTo What:=wdGoToBookmark, Name:=vИмяЗакладки
Else
    MsgBox "Такой закладки нет"
End If
End Sub

а больше и не надо ничего добавлять - то что надо! - макрос супер...думаю многим будет полезен..Спасибо...

[Окоча Юра]

все макросы работают отлично...всем спасибо.