Сохранение в txt

[kain151]

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

Подскажите, пожалуйста, код, для удаления, например, 2-ого и 3-его столбцов в таблице документа.
Таблиц, может быть несколько. Т.е. для удаления Всех 2-х, 3-х столбцов.
Затем проверить какое имя у этого документа и сохранить с нужным в формате .txt (если имя такое, то сохраняем с таким-то, если другое, то с таким и т.д.)

Спасибо.

[viter.alex]

Перебрать все таблицы и удалить третий и второй столбцы:

Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
  oTbl.Columns(3).Delete
  oTbl.Columns(2).Delete
Next

Определить имя документа и выполнить нужно действие:

Select Case ActiveDocument.Name
  Case 'Если имя одно
    ActiveDocument.SaveAs
  Case 'Если имя другое
    ActiveDocument.SaveAs
  Case 'Если имя третье
    ActiveDocument.SaveAs
End Select

[kain151]

Спасибо Вам!