ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создание структуры документа.
6 сообщений из 6, страница 1 из 1
Создание структуры документа.
    #37710779
AlarinPerfect
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlarinPerfect
Гость
Доброго времени суток.
Пишу в Word 2010 макрос, записывающий в отдельный текстовый файл структуру документа.
Вопрос: можно ли при обходе всех абзацев через For Each Paragraph In ActiveDocument.Paragraphs определить, находится ли текущий абзац в таблице или нет?
Вопрос 2: как можно определить для всех изображений их положение в документе?
...
Рейтинг: 0 / 0
18.03.2012, 19:35
| Ответить | Цитировать | Написать  
Создание структуры документа.
    #37710790
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
AlarinPerfect,
Код: vbnet
1.
2.
3.
4.
 'условие если выделенное, курсор находится в таблице, тогда ...
        If Selection.Information(wdWithInTable) = True Then
            'номер таблицы в документе где выделено
            IntegerCursor_table = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
...
Рейтинг: 0 / 0
18.03.2012, 19:42
| Ответить | Цитировать | Написать  
Создание структуры документа.
    #37710791
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
AlarinPerfect,
Вопрос 2: как можно определить для всех изображений их положение в документе?
обсчитать место наождение х = ********.Start
...
Рейтинг: 0 / 0
18.03.2012, 19:43
| Ответить | Цитировать | Написать  
Создание структуры документа.
    #37712449
AlarinPerfect
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlarinPerfect
Гость
катастрофаAlarinPerfect,
Код: vbnet
1.
2.
3.
4.
 'условие если выделенное, курсор находится в таблице, тогда ...
        If Selection.Information(wdWithInTable) = True Then
            'номер таблицы в документе где выделено
            IntegerCursor_table = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count



Не хотел делать через выделение, но нечего выпендриваться.
А вообще спасибо, помогло!
...
Рейтинг: 0 / 0
19.03.2012, 20:45
| Ответить | Цитировать | Написать  
Создание структуры документа.
    #37712453
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
AlarinPerfect, тогда длинным путём обсчитать место нахождение чего-то и тогда считать находится ли оно в таблице
...
Рейтинг: 0 / 0
19.03.2012, 20:49
| Ответить | Цитировать | Написать  
Создание структуры документа.
    #37712468
AlarinPerfect
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlarinPerfect
Гость
катастрофа, не стоит - алгоритм и так не слишком быстро работает. Лучше оставлю как есть.
...
Рейтинг: 0 / 0
19.03.2012, 21:04
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создание структуры документа.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37712468&tid=2175891]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 166ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 255ms
total:  533ms
созд. / загр.: 533ms
x
x
Закрыть


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