пакетная обработка doc файлов

[kibernetics]

Скажите, а какой принцип пакетной обработки вордовских документов?
Мне нужно добавить в каждый отмеченный документ в листбоксе, допустим, какойто текст и перенести его в другую папку.
делаю так:

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

    Set objDoc = CreateObject("Word.Application")
   
    For i = 0 To lstFrom.ListCount - 1
        If lstFrom.Selected(i) Then
            sPath1 = TxtBoxFrom.Text & lstFrom.List(i)
            sPath2 = TxtBoxTo.Text & lstFrom.List(i)
           
            With objDoc
                .Documents.Open sPath1
           
                .Selection.TypeText "тестовый текст"
                .Documents.Add.SaveAs (sPath2) 'вот тут начинается какая-то жуткая ошибка, чтото про автоматизацию и прочее.
           
            End With

        End If
    Next   
    objDoc.Quit
   
    Set objDoc = Nothing

скажите, кто сталкивался, как верно сделать алгоритм?
если создавать всегда постоянно объект objDoc, то есть заторможения.
ещё, если это важно, на машине стоит два офиса: 2003 и 2007

[alibek]

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

            With objDoc
                .Documents.Open sPath1
           
                .Selection.TypeText "тестовый текст"
                .Documents.Add.SaveAs (sPath2) 'вот тут начинается какая-то жуткая ошибка, чтото про автоматизацию и прочее.
           
            End With


Чье воспаленное сознание породило этот код?
Переменную objDoc надо назвать objWord, чтобы не путаться.
Смысл .Documents.Add.SaveAs от меня ускальзывает.

[kibernetics]

alibek, это я породил.
сори, так, что первое нашёл на поиске...
подскажи плиз советом

[viter.alex]

Я бы это делал так.

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

  Set objWord = CreateObject("Word.Application")

  For i = 0 To lstFrom.ListCount - 1
    If lstFrom.Selected(i) Then 'Допустим ты определил путь откуда читать и куда сохранять
      sPath1 = TxtBoxFrom.Text & lstFrom.List(i)
      sPath2 = TxtBoxTo.Text & lstFrom.List(i)
      With Documents.Open(sPath1)
        .Range.InsertAfter "тестовый текст"
        .SaveAs sPath2 'сохранение
      End With
    End If
  Next
  objWord.Quit

  Set objWord = Nothing

[Alec]

Я бы это делал так.

А я бы еще добавил

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

...
  With Documents.Open(sPath1)
        .Range.InsertAfter "тестовый текст"
        .SaveAs sPath2 'сохранение
        .Close 'закрываем текущий документ
  End With
...