Выделить текст между скобками (Word)

[MaryM]

Возникла такая задача - нужно выделить текст между двумя квадратными скобками. Как делать - ума не приложу. Между скобками может быть о-очень длинное слово, а может быть и совсем короткое. Нужно то, что стоит между скобками, вырезать и вставить в канец абзаца (с этой задачей я сама кое-как справилась).
И еще вопрос, как сделать так, чтобы он нашел Все скобки, вырезал из них Все слова и вставил в концы всех абзацев?
Может, кто поможет?

[inq]

Код: Выделить всё

    Dim i As Integer
   
    For i = 1 To Words.Count - 2
        If Words(i) = "[" And Words(i + 2) = "]" Then
            Words(i + 1).Select
          ..............
        End If
    Next


[RayShade]

Не. Это невалидно.

Искать и выделять все слова в [] надо так:

Код: Выделить всё

End Sub
Sub doFindBracedWords()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "\[*\]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Do While Selection.Find.Execute
        Selection.MoveStart wdCharacter, 1
        Selection.MoveEnd wdCharacter, -1
        Debug.Print Selection.Range.Text
        Selection.Collapse wdCollapseEnd
    Loop
End Sub

Вот. Ну а как вставлять в конец абзаца, это уже второй вопрос

[inq]

Это невалидно

RayShade, чем же? Разве что проверку на Words>3 еще поставить

[RayShade]

Медленно очень

Перебор коллекции Words - это самый медленный способ.

[GSerg]

RayShade
А вот тут он раз в 10 быстрее

[RayShade]

GSerg

Да, но новичку я думаю, непонятно? Хотя....