powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выравнивание
6 сообщений из 6, страница 1 из 1
Выравнивание
    #33649873
TL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте!
у меня текстовый документ, который открываеться с помощью Ворда, в нем некоторое заглавие и таблица, но таблица не "таблица ворд", а строки вида

номер | заглавие
----------------------
1 | заглавие1
2 | заглавие2

так вот символы " | " не выстраиваються друг пол другом, а гуляют хаотично, в итоге красивой "таблички" не получаеться.
подскажите как можно их выровнять, чтобы они шли друг под другом.
...
Рейтинг: 0 / 0
Выравнивание
    #33649963
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Преобразуй в нормальную табличку.

1. Выдели текст.
2. Таблица->Проеобразовать в таблицу.
3. Разделитель - "|".
...
Рейтинг: 0 / 0
Выравнивание
    #33650174
TL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
получаеться довольно симпатично. только мне это надо сделать в макросе.
только вот не понятно как....
...
Рейтинг: 0 / 0
Выравнивание
    #33650196
TL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уточню немножко: непонятно как в макросе выделить только нужный мне участок? начинаться он будет неизвестно с какой строчки и сколько строк в таблице, тоже заранее неизвестно....

а и еще попутный вопрос - макрос, написанный в 2000офисе будет работать под 97-м Вордом?
...
Рейтинг: 0 / 0
Выравнивание
    #33650481
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TLначинаться он будет неизвестно с какой строчки
Ты уж определись.

TLи сколько строк в таблице, тоже заранее неизвестно....
Достаточно выделить участок текста, количество строк автоматически определится.

TLа и еще попутный вопрос - макрос, написанный в 2000офисе будет работать под 97-м Вордом?
Библиотеки разных версий Word'а не совместимы между собой. В новых версиях появляются новые возможности, функции, которых нет в предыдущих. Например, в более поздней версии добавляются новые объекты, методы, свойства, о которых ранняя версия ничего не знает и, соответсвенно, будут возникать ошибки при попытке доступа к ним. Поэтому для корректной работы твоих макросов в разных версиях, вооружись соответсвующими версиями ворда, справкой по этим версиям, и, используя, свойство Version объекта Application приводи код к надлежащему виду. Например, для Excel эта проверка выглядела бы так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim ExcelVersion As Integer
    
    ExcelVersion = Val(Application.Version)
    
    If ExcelVersion >=  8  Then      ' Microsoft Excel 97, 2000, 2002.
        Application.Close False
    ElseIf ExcelVersion <  8  Then   ' Microsoft Excel 5.0 or 7.0.
        Application.Parent.Close False
    End If
...
Рейтинг: 0 / 0
Выравнивание
    #33650558
TL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ashton TLначинаться он будет неизвестно с какой строчки
Ты уж определись.

TLи сколько строк в таблице, тоже заранее неизвестно....
Достаточно выделить участок текста, количество строк автоматически определится.

TLа и еще попутный вопрос - макрос, написанный в 2000офисе будет работать под 97-м Вордом?
Библиотеки разных версий Word'а не совместимы между собой. В новых версиях появляются новые возможности, функции, которых нет в предыдущих. Например, в более поздней версии добавляются новые объекты, методы, свойства, о которых ранняя версия ничего не знает и, соответсвенно, будут возникать ошибки при попытке доступа к ним. Поэтому для корректной работы твоих макросов в разных версиях, вооружись соответсвующими версиями ворда, справкой по этим версиям, и, используя, свойство Version объекта Application приводи код к надлежащему виду. Например, для Excel эта проверка выглядела бы так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim ExcelVersion As Integer
    
    ExcelVersion = Val(Application.Version)
    
    If ExcelVersion >=  8  Then      ' Microsoft Excel 97, 2000, 2002.
        Application.Close False
    ElseIf ExcelVersion <  8  Then   ' Microsoft Excel 5.0 or 7.0.
        Application.Parent.Close False
    End If


Количество выделяемого текста, который будет помещён в таблицу будет каждыйаз разным. Как определить до какого места делать Selection?
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выравнивание
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]