segezha.onego.ru

Изыди

Сам то попробуй... реально спасение...

_________________
И Жызднь - говно, Все бабы - 6лядu, a солнце ё6aный фонарь!

Не веришь - потом сам те покажу....

_________________
И Жызднь - говно, Все бабы - 6лядu, a солнце ё6aный фонарь!

ThisNic, а нахрена такой цикл длинный через With?

_________________
И Жызднь - говно, Все бабы - 6лядu, a солнце ё6aный фонарь!

Так вордом же макрос записан...
Оновное, в чем с самого начала состояла проблема для меня - это найти код знака табуляции.
Потому я и делал то, что потом описал Райве (...,Ctrl-C символа табуляции,...), а ворд в это время записывал макрос.
После записи я увидел, что есть такая переменная vbTab, но править макрос стал.
Уже потом нашел в инете, что код табуляции - 9.

Можно и почти в одну строчку все уместить (попробовал работает):
Sub DelTab()
Do While ActiveDocument.Content.Find.Execute(Chr(9), False, False, False, False, False, True, , , "") = True
Loop
End Sub

з.ы. Ты лучи меня не заводи, а то основная работа пойдет прахом...
з.ы.2 Я с объектной моделью ворда не очень знаком, раньше занимался больше в аксесе.

а нахрена ActiveDocument? можно же неявно в файл зайти.....

_________________
И Жызднь - говно, Все бабы - 6лядu, a солнце ё6aный фонарь!

Причем через переменную задавать имя файла и будет проще, тем более в VBA выскочит окно с запросом, куда лезть....

_________________
И Жызднь - говно, Все бабы - 6лядu, a солнце ё6aный фонарь!

Sub DelTab()
Set FD = Application.FileDialog(msoFileDialogOpen)
FD.Title = "Править файл..."
If FD.Show = -1 Then flName = FD.SelectedItems(1)
Do While Application.Documents(flName).Content.Find.Execute(Chr(9), False, False, False, False, False, True, , , "") = True
Loop
End Sub

Код не проверял.
Когда кончится экзамен?

Даёшь внедрёжь! (с) ДиДжей Дадуда...

А нахрена такие панты в зоопарке?

_________________
И Жызднь - говно, Все бабы - 6лядu, a солнце ё6aный фонарь!

и как я сюда со своим "совочком" умудрился влезть ...

Что есть зоопарк?

Вложение работает (по крайней мере у меня)

Да я ни чо не против.... всё красиво.... тока кнопки нахрена прилепила? ониж на печать тоже полезут.... в свойствах к кнопкам инвизибл задать надо.... эх маладёжь.....

_________________
И Жызднь - говно, Все бабы - 6лядu, a солнце ё6aный фонарь!

Гы... а тут я такой злобный из-за угла...
Помнится, топикстартеру надо было убрать ненужный таб именно в начале абзаца, а тут ему выданы рецепты убрать сразу все табы из документа. А если попадётся документ, в котором какое-нибудь сложное форматирование табами сделано?

_________________
Когда все умрут. Только тогда закончится большая игра. Р.Киплинг.

Тады ОЙ! От этого пережитка печатных машинок ещё не все документы избавлены. Господи, благослови того, кто создал функцию отмены последнего действия!

_________________
"Пока есть солнце и воздух, всегда будет ветер."

Не, пережиток печатной машинки - форматирование пробелами. Гадость, естественно. А вот форматирование табами, где позиции табуляции по строке расставлены - явление вполне нормальное. Я не зря выше по треду предлагал регекспы (регулярные выражения) использовать. С точки зрения регулярного выражения весь абзац от его начала и до перевода строки в конце - одна строка. Тогда по правилам формирования регекспов найти таб в начале абзаца можно выражением "^\t" ( "^" - признак начала строки, "\t" - знак табуляции). Заменить такую конструкцию на "пустое место" - обычно дело техники. Проблема в том, что в MS Word (и вообще - у MS) всё это несколько более загадочно сделано... Способ вроде как есть (ссылку я приводил).

_________________
Когда все умрут. Только тогда закончится большая игра. Р.Киплинг.