ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как из VBA узнать координаты узлов многоугольника в Word2003?
17 сообщений из 17, страница 1 из 1
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905103
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий П.
Участник
Я нарисовал многоугольник в Word2003. Мне нужно узнать координаты узлов. В справке есть пример:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Set myDocument = ActiveDocument
With myDocument.Shapes(3).Nodes
    pointsArray = .Item(2).Points
    currXvalue = pointsArray(1, 1)
    currYvalue = pointsArray(1, 2)
    .SetPosition 2, currXvalue + 200, currYvalue + 300
End With


Я немного его переделал, сообразно моему рисунку:
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim pointsArray(1, 2), currXvalue, currYvalue
With ActiveDocument.Shapes(1).Nodes
    pointsArray = .Item(2).Points
    currXvalue = pointsArray(1, 1)
    currYvalue = pointsArray(1, 2)
End With


Однако при запуске возникает сообщение "Can't assign to array" на строке:
Код: vbnet
1.
pointsArray = .Item(2).Points


Как в VBA правильно использовать свойство Points для получения координат узла?
...
Рейтинг: 0 / 0
15.03.2015, 10:52
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905107
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Дмитрий П.,

поппробуй Dim pointsArray As Variant
...
Рейтинг: 0 / 0
15.03.2015, 11:00
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905120
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий П.
Участник
Shocker.Pro,
В этом случае выдается "Type mismatch"
...
Рейтинг: 0 / 0
15.03.2015, 11:12
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905126
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
дайте документ с примером и неработающим кодом, чтобы не гадать.
...
Рейтинг: 0 / 0
15.03.2015, 11:27
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905216
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Дмитрий П.,
Код: vbnet
1.
Dim pointsArray() As Single
...
Рейтинг: 0 / 0
15.03.2015, 14:19
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905218
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Или просто Dim pointsArray , в Variant можно засунуть что угодно, хоть массив, хоть объект...
...
Рейтинг: 0 / 0
15.03.2015, 14:21
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905222
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
КазанскийИли просто Dim pointsArray , в Variant можно засунуть что угодно, хоть массив, хоть объект...Shocker.Proпоппробуй Dim pointsArray As VariantДмитрий П.В этом случае выдается "Type mismatch"
...
Рейтинг: 0 / 0
15.03.2015, 14:38
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905224
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий П.
Участник
КазанскийДмитрий П.,
Код: vbnet
1.
2.
Dim pointsArray() As Single
Или просто Dim pointsArray

В обоих случаях выдается "Type mismatch"

Даю документ "Многоугольник.doc"
...
Рейтинг: 0 / 0
15.03.2015, 14:43
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905225
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Дмитрий П.Даю документ "Многоугольник.doc"упс
...
Рейтинг: 0 / 0
15.03.2015, 14:48
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905229
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий П.
Участник
Shocker.Pro,

Переслал документ на Email, т.к. тут пока не получилось
...
Рейтинг: 0 / 0
15.03.2015, 14:58
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905230
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Дмитрий П.Переслал документ на Email, т.к. тут пока не получилосьпри предварительном просмотре приложенный документ стирается. Вы - старый пользователь, включите в профиле новый дизайн и быстрый ответ - там такого глюка нет. Ну или прикладывайте файл после предварительного просмотра
...
Рейтинг: 0 / 0
15.03.2015, 15:01
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905232
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что интересно, pointsArray тут вообще не причем, ругается на правую часть оператора присваивания. Пытаюсь понять, в чем прикол
...
Рейтинг: 0 / 0
15.03.2015, 15:04
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905235
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProЧто интересно, pointsArray тут вообще не причем, ругается на правую часть оператора присваивания. Пытаюсь понять, в чем приколв 2010 код выполняется без проблем
...
Рейтинг: 0 / 0
15.03.2015, 15:08
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905237
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий П.
Участник
Даю документ "Многоугольник.doc" (попытка №2)
...
Рейтинг: 0 / 0
15.03.2015, 15:09
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905238
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProShocker.ProЧто интересно, pointsArray тут вообще не причем, ругается на правую часть оператора присваивания. Пытаюсь понять, в чем приколв 2010 код выполняется без проблемв 2003 при любой попытке любым способом обратиться к свойству Points выдает ошибку
...
Рейтинг: 0 / 0
15.03.2015, 15:11
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905242
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Вот тут решение
https://groups.google.com/forum/#!topic/microsoft.public.word.vba.general/37QCKvVR3fc

решение странное, но оно работает, проверил в 2003
...
Рейтинг: 0 / 0
15.03.2015, 15:22
| Ответить | Цитировать | Написать  
Как из VBA узнать координаты узлов многоугольника в Word2003?
    #38905282
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий П.
Участник
Shocker.Pro,
Спасибо за ссылку!
Я сообразно подправил свой код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim pointsArray As Variant

Set Tbox = ActiveDocument.Shapes(1)
With Tbox.Nodes
    pointsArray = .Item(1).Points
    currXvalue = pointsArray(1, 1)
    currYvalue = pointsArray(1, 2)
End With


Он работает! Получается, для 2003, необходимо явно задать (промежуточный) объект Shapes (Tbox)
...
Рейтинг: 0 / 0
15.03.2015, 16:42
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как из VBA узнать координаты узлов многоугольника в Word2003?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38905232&tid=2156000]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 10ms
total:  135ms
созд. / загр.: 135ms
x
x
Закрыть


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