Подсобите написать код VBA для MS OFFICE?

Question

[Zulkund]

Господа, помогите решить следующую задачу. Нужен макрос, который в файле word нашел бы нужную строку, например "@here" и вставил бы сюда содержание из буфера. Заранее спасибо!

Answer 1

[TomasHuk]

Вроде работает:

Sub Replace()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "@here"
        .Replacement.Text = "^c"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Comments

[Zulkund]

А как эту ошибку избежать? Текст планирую вставить длинный.

[TomasHuk]

Больше 255 символов?

[Zulkund]

Да, таблицу большую вставить планирую.

[TomasHuk]

Тогда не могу сказать, нужно гуглить дальше.

[Zulkund]

А если вместо реплейса использовать простую вставку, ошибка останется? И как будет выглядеть код?

[TomasHuk]

Все оказалось намного проще. Clipboard можно было не делать, а заменить его на "^c". Я сверху отредактировал свой ответ.