Поиск между символами в документе

[viter.alex]

Есть документ с разнообразным содержимым. В нем в произвольном порядке стоят специальные символы-разделители, например «#». Как получить выделение между двумя такими символами?
ЗЫ: под разнообразным содержимым я понимаю, что в документе есть и текст и рисунки и таблицы.

[Sasha_Smirnov]

Это что, зачёт?!..

Sub SeekSmthAndSelect()
'КОГДА ЕСТЬ ПУСТЫЕ СТРОКИ - ДАЛЬШЕ ПОЧЕМУ-ТО НЕ ИЩЕТ'
Selection.HomeKey wdStory 'КУРСОР - В НАЧАЛО'

With Selection.Find
.Text = "#*#" 'выделяем часть файла между # и #, включая их самих'
.Wrap = wdFindStop 'дальше не продолжаем (пытаться выделить следующий кусок)'
.MatchWildcards = True 'подстановочные знаки включены (в окне по Ctrl-F)'
.Execute
End With

End Sub

А что до положения курсора — оно отражено (Line ..., Col ...) в строке состояния.
Как это свойство вызывается программно, не знаю (пока). Оказывается, никак! StatusBar write-only (по справке).

Но если вам надо в символах — выделите от курсора до начала и...

Selection.ComputeStatistics

Правда, сам не пробовал.

[viter.alex]

Нет, просто жизнь такая
Проблема в определении положении курсора в символах до начала документа. Хотя может быть есть и другой метод.
А зачеты я свои посдавал 10 лет назад

[viter.alex]

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

…А что до положения курсора — оно отражено (Line ..., Col ...) в строке состояния.
Как это свойство вызывается программно, не знаю (пока). Оказывается, никак! StatusBar write-only (по справке)…

То, что отображается в статусной строке можно достать через Selection.Information()

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

…Но если вам надо в символах — выделите от курсора до начала и...

Selection.ComputeStatistics

Правда, сам не пробовал.

Попробую
Добавлено позже
Попробовал. Метод с поиском работает лучше.
Также работает и Selection.ComputeStatistics, но при этом символы абзаца как-то странно считаются

[tolikman]

вот я на днях тоже с этим столкнулся, посмотри как я решил:
задача:
пример текста:
Здраствуйте меня зовут #Имя#, я родился "#Дата рождения&дд#" #Дата рождения&месяц# #Дата рождения&гггг#г.
Все что между двумя "#" заменить нужным текстом, если встречается "&" то воспринять как все что после "&" и до "#" как формат вывода того что до "&".
Должно получиться:
Здраствуйте меня зовут Анатолий, я родился "26" июня 1989г.
Результат:

Public doc As Word.Document
Type returned
    finded As Boolean
    range As Word.range
    retType As String
End Type
Public findCounter As Integer
Public findStartI As Long
Public finded As returned
Public Sub lunchFind()
    findCounter = 0
    findStartI = 1
End Sub
Public Function find(doc As Word.Document) As returned
    Dim i As Long, e As Long, str As String
    Dim ret As returned
    str = doc.range
    e = Len(str)
    For i = findStartI To e
        If Mid(str, i, 1) = "#" Then
            str = Mid(str, i + 1)
            Exit For
        End If
    Next i
    findStartI = i - 1
    If i < e Then
        e = Len(str)
        For i = 1 To e
            If Mid(str, i, 1) = "#" Then
                str = Left(str, i - 1)
                Exit For
            End If
        Next i
        e = Len(str)
        ret.retType = "ñòàíäàðò"
        For i = 1 To e
            If Mid(str, i, 1) = "&" Then
                ret.retType = Mid(str, i + 1)
            End If
        Next i
        ret.finded = True
        Set ret.range = doc.range(findStartI, findStartI + i + 1)
        findStartI = findStartI + i + 2
        findCounter = findCounter + 1
    Else
        ret.finded = False
    End If
    finded = ret
    find = ret
End Function

разберись, у меня в ret.range возвращает Range начиная с символа "#" и заканчивая символом"#" (например: ret.range.text = "#Имя#"), а ret.retType равно всему что посел "&" и до "#"

[viter.alex]

Я решил эту проблему. Ищу по методу, предложеному Sasha_Smirnov. Затем сохраняю выбор в переменную, а дальше уже разбираю по косточкам, вернее по стилям. Весь код слишком ного места занимает. Поэтому только часть:

With Selection.Find
  .Text = "#*#" 'выделяем часть файла между # и #, включая их самих'
  .Wrap = wdFindStop 'дальше не продолжаем (пытаться выделить следующий кусок)'
  .MatchWildcards = True 'подстановочные знаки включены (в окне по Ctrl-F)'
  bFound = .Execute
End With
'Debug.Assert Not bFound
If Not bFound Then Exit Sub
Set oRange = Selection.Range 'запоминаем зону 
Selection.Collapse wdCollapseEnd
Selection.HomeKey

Кстати, сейчас делаю генератор формы с вопросами теста. Тест находится в документе. Читаю вопросы, вывожу их на форму. Считываю ответы, сравниваю с правильными ответами, которые тоже в документе находятся и выставляю оценку. Так вот, диезами разделены вопросы к тесту.

[andreyGO]

а не подскажете, почему @ нельзя использовать как отметку?
У меня такая ситуация: между символами "@" и "=" в начале абзацев (не всех) расставлены стили, которые необходимо применить к абзацам, а саму отметку стереть. Вот, например: @MIH_HEAD_F = АУДИТОРСКОЕ ЗАКЛЮЧЕНИЕ. После работы макроса получаем:"АУДИТОРСКОЕ ЗАКЛЮЧЕНИЕ" стилем MIH_HEAD_F. При этом в тексте могут встречаться и простые @ (например e-mail), по-этому не хочется менять @ на др. отметки.
Буду очень признателен за помощь!

[andreyGO]

отвечу сам себе: Если вам нужно найти или заменить один из символов, который используется для обозначения подстановочных знаков, скажем, @ - то поставьте перед ним обратную косую черту - "\"