Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создание структуры документа. / 6 сообщений из 6, страница 1 из 1
18.03.2012, 19:35
    #37710779
AlarinPerfect
AlarinPerfect
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание структуры документа.
Доброго времени суток.
Пишу в Word 2010 макрос, записывающий в отдельный текстовый файл структуру документа.
Вопрос: можно ли при обходе всех абзацев через For Each Paragraph In ActiveDocument.Paragraphs определить, находится ли текущий абзац в таблице или нет?
Вопрос 2: как можно определить для всех изображений их положение в документе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.03.2012, 19:42
    #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:43
    #37710791
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание структуры документа.
AlarinPerfect,
Вопрос 2: как можно определить для всех изображений их положение в документе?
обсчитать место наождение х = ********.Start
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.03.2012, 20:45
    #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:49
    #37712453
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание структуры документа.
AlarinPerfect, тогда длинным путём обсчитать место нахождение чего-то и тогда считать находится ли оно в таблице
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.03.2012, 21:04
    #37712468
AlarinPerfect
AlarinPerfect
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание структуры документа.
катастрофа, не стоит - алгоритм и так не слишком быстро работает. Лучше оставлю как есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Создание структуры документа. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 478ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175891]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 184ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 215ms
total:  478ms
x
x
Закрыть


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