ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выводит имя открытого документа
20 сообщений из 20, страница 1 из 1
Не выводит имя открытого документа
    #39311191
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
Пишу скрипт в Кореле (X6, 64bit):
Код: vbnet
1.
2.
3.
Sub DocName()
MsgBox ActiveDocument.Name
End Sub



В окошке выводит Untitled-1, хотя у меня открыт документ с другим именем.

Пробую так:
Код: vbnet
1.
2.
3.
Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
End Sub



Всё равно выводит Untitled
Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
19.09.2016, 11:17
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311197
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Для затравки
Код: vbnet
1.
MsgBox ThisDocument.FullFileName

(с vba в кореле не работал - методом тыка)
...
Рейтинг: 0 / 0
19.09.2016, 11:28
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311241
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
NemoSUN,

вообще надо бы уточнить откуда запускается код и имя документы какой программы надо получить. Это тоже документ корела или это может, вообще Word?
...
Рейтинг: 0 / 0
19.09.2016, 12:52
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311311
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
Shocker.ProДля затравки
Код: vbnet
1.
MsgBox ThisDocument.FullFileName

(с vba в кореле не работал - методом тыка)
"FullFileName" не подходит. Мне же нужно только ".Name"

The_PristNemoSUN,

вообще надо бы уточнить откуда запускается код и имя документы какой программы надо получить. Это тоже документ корела или это может, вообще Word?
Код запускается в программе CorelDraw X6 (64bit). Документ Корела.

Всё !!! Работает. Оказывается пока файл находился в директории "D:\!!! Distr\Temp" скрипт не мог получить имя. Как только перенёс в другой директорий сразу заработало. Почему так может быть ?
...
Рейтинг: 0 / 0
19.09.2016, 15:11
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311316
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
NemoSUN"FullFileName" не подходит. Мне же нужно только ".Name"Ну так у вас для этого есть GetBaseName.

У меня корел для ThisDocument.Name выдает "ThisDocument", а для ActiveDocument.Name - пустую строку, при том, что у меня открыт только один документ. Фиг его знает, как должно быть.
...
Рейтинг: 0 / 0
19.09.2016, 15:15
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311370
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
Shocker.ProNemoSUN"FullFileName" не подходит. Мне же нужно только ".Name"Ну так у вас для этого есть GetBaseName.

У меня корел для ThisDocument.Name выдает "ThisDocument", а для ActiveDocument.Name - пустую строку, при том, что у меня открыт только один документ. Фиг его знает, как должно быть.

Можно тогда попробовать CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
...
Рейтинг: 0 / 0
19.09.2016, 16:12
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311476
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Какой смысл, если аргумент - пустая строка?

msdnThe GetBaseName method works only on the provided path string. It does not attempt to resolve the path, nor does it check for the existence of the specified path.
...
Рейтинг: 0 / 0
19.09.2016, 19:06
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311493
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
NemoSUN.GetBaseName(ActiveDocument.Name)Тут какой момент-то...Метод GetBaseName принимает в качестве аргумента полный путь к файлу , имя которого надо получить. Т.е. когда Вы подсовываете ActiveDocument.Name - угадайте, где он чего должен искать? Поэтому правильнее так получать имя:
Код: vbnet
1.
2.
3.
Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.FullName)
End Sub
...
Рейтинг: 0 / 0
19.09.2016, 19:31
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311734
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
The_PristNemoSUN.GetBaseName(ActiveDocument.Name)Тут какой момент-то...Метод GetBaseName принимает в качестве аргумента полный путь к файлу , имя которого надо получить. Т.е. когда Вы подсовываете ActiveDocument.Name - угадайте, где он чего должен искать? Поэтому правильнее так получать имя:
Код: vbnet
1.
2.
3.
Sub DocName()
MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.FullName)
End Sub



А вот не выводит имя таким методом. Старый метод работает. Причём, если ставлю ActiveDocument.FullName, то вообще окошко не выходит. При этом система не говорит о каких-либо ошибках.
...
Рейтинг: 0 / 0
20.09.2016, 10:37
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311785
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
NemoSUNто вообще окошко не выходит. При этом система не говорит о каких-либо ошибках.значит где-то стоит On Error Resume Next - чудес не бывает

Пробуй строку в Immediate
...
Рейтинг: 0 / 0
20.09.2016, 11:24
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311824
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Shocker.Pro, +1

FSO в любой среде один синтаксис имеет. И если не выводит - значит либо доступа к папке нет, либо у файла тупо еще нет полного пути(обычно это касается только что созданных и еще не сохраненных файлов).
...
Рейтинг: 0 / 0
20.09.2016, 11:49
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311843
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
The_PristShocker.Pro, +1

FSO в любой среде один синтаксис имеет. И если не выводит - значит либо доступа к папке нет, либо у файла тупо еще нет полного пути(обычно это касается только что созданных и еще не сохраненных файлов).
А почему тогда в этом случае работает ActiveDocument.Name ?
...
Рейтинг: 0 / 0
20.09.2016, 12:08
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311853
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
Shocker.ProПробуй строку в Immediate
Это где ? Я не профи. Мне программка нужна как пользователю для упрощения работы в Корел. А то иногда зашиваюсь.
...
Рейтинг: 0 / 0
20.09.2016, 12:16
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311866
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ctrl+G
Появится окошко Immediate Window, где можно непосредственно выполнять команды VBA
...
Рейтинг: 0 / 0
20.09.2016, 12:23
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311868
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
Разобрался. В сообщении The_Prist закралась ошибка. Надо было написать FullFileName , а не FileName .
...
Рейтинг: 0 / 0
20.09.2016, 12:25
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311872
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
NemoSUNРазобрался. В сообщении The_Prist закралась ошибка. Надо было написать FullFileName , а не FileName .Я ж говорю - надо убрать On Error Resume Next - иначе с каждой мелочью по полдня разбираться будешь
...
Рейтинг: 0 / 0
20.09.2016, 12:28
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311893
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
Shocker.ProЯ ж говорю - надо убрать On Error Resume Next - иначе с каждой мелочью по полдня разбираться будешь

Где его искать ?
...
Рейтинг: 0 / 0
20.09.2016, 12:42
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311935
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
NemoSUNГде его искать ?Вам виднееNemoSUNПишу скрипт
...
Рейтинг: 0 / 0
20.09.2016, 13:32
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39311936
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
NemoSUN FullFileName , а не FileName я предлагал не FileName, а FullName :)
Вероятно в кореле это свойство просто иначе называется.
NemoSUNГде его искать ?
В коде. Нажмите Ctrl+F, укажите Current Project и в поле Find What напишите: On Error Resume Next.
...
Рейтинг: 0 / 0
20.09.2016, 13:32
| Ответить | Цитировать | Написать  
Не выводит имя открытого документа
    #39312273
NemoSUN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NemoSUN
Гость
The_Pristя предлагал не FileName, а FullName :)

Сорри, в суматохе всё перепутал (
...
Рейтинг: 0 / 0
20.09.2016, 20:51
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выводит имя открытого документа
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39311935&tid=2155427]:
 0ms
get settings:
 11ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 56ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 332ms
total:  491ms
созд. / загр.: 491ms
x
x
Закрыть


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