Шаблон word и закладки

[hackPNZ]

Доброго времени суток!

У меня есть шаблон ворд, который автоматически заполняется данными из excel - в шаблоне места вставки помечены закладками. Но есть проблема - при вставке непосредственно в закладку, закладка удаляется.
И если мне потребуется обновить данные в документе, то макрос не поймет куда их вставить (закладок то больше нет). Пока что юзаю InsertAfter, но при таком варианте новый текст вставляется, но тот что уже был остается.

Что можете посоветовать, как решить проблему?

[БуреВестник]

Напиши часть кода, как ты вставляешь в закладку.

[hackPNZ]

Вот так я делаю

    'text to find
    fnd = Array("dog_num", "dog_valobj", "dog_pass", "dog_pass1", _
                "dog_fio", "dog_fio1", "dog_cost", "dog_cost1")
                
    'text to replace
    repl = Array(Range("B5"), Range("B15"), Range("B10"), Range("B10"), _
                 Range("B11"), Range("B11"), Range("B25"), Range("B25"))
    
    Set wrd = CreateObject("Word.Application")
    st = ThisWorkbook.Path & "\Договор.dot"
    toSave = ThisWorkbook.Path & "\Договор " & Range("B11") + " " & Range("B5") & ".doc"

    With wrd
            .Documents.Add(st).Activate
            .Visible = True
      
    'text
    For i = LBound(fnd) To UBound(fnd) Step 1
        .ActiveDocument.Bookmarks(fnd(i)).Select
        .Selection.InsertAfter repl(i)
    Next i
     
    .ActiveDocument.SaveAs toSave
    .Quit
        
    End With

    Set wrd = Nothing

[viter.alex]

Ты неправильно изменяешь закладку. Здесь я писал, как ее нужно изменять

[БуреВестник]

А закладки у тебя в Word вот такого типа [ ]?
Если так, то получается, что вот эта часть кода

.ActiveDocument.Bookmarks(fnd(i)).Select

выделяет вот это [ ] и в выделенное вставляет. Чтобы этого не было, надо сделать смещение на один знак вправо (чтобы снять выделение), а затем на один знак налево (чтобы войти в [ ]).
Код этих движений можете сами записать, использую макрорекордер и клавиши на клавиатуре со стрелками, а затем полученный код добавьте после этой строчки:

.ActiveDocument.Bookmarks(fnd(i)).Select

[hackPNZ]

Спасибо большое за ваши ответы))) В целом идея понятна, буду творить)))

[hackPNZ]

А не подскажете как мне удалить содержимое закладки(если там есть что, текстовая строка) и вставить новое?

[viter.alex]

Если ты ходил по ссылке, которую я дал, то проблем не должно быть, просто задай пустую строку и содержимое будет удалено

[hackPNZ]

@viter.alex Посмотрел повнимательнее твой код и все получилось, вроде как))) Сейчас тестирую. Еще раз спасибо)))

[novak_26]

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

Доброго времени суток!

У меня есть шаблон ворд, который автоматически заполняется данными из excel - в шаблоне места вставки помечены закладками. Но есть проблема - при вставке непосредственно в закладку, закладка удаляется.

Можете выложить примерный код?
Сейчас решаю аналогичную задачу: из excel открывается файл word и заполняется данными. Нужно, чтобы документ word открывался из специального шаблона (чтобы в шапке были реквизиты организации), при этом остальные файлы word открывались (в меню word) из стандартного пустого шаблона word.
Пример, того, что есть (без форматирования в word) приведен ниже.
Закладки тоже интересны, но шаблон пока больше.