ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / min и max слово в документе Word
20 сообщений из 45, страница 2 из 2
  2  все
min и max слово в документе Word
    #36643353
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Да он вообще чё то этот Like не робит
...
Рейтинг: 0 / 0
22.05.2010, 20:49
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643367
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wooferДа он вообще чё то этот Like не робит

все там робит
Код: plaintext
1.
2.
3.
4.
5.
?Not "s" Like "[A-Za-zА-Яа-яЁё]"
False
?Not "Ё" Like "[A-Za-zА-Яа-яЁё]"
False
?Not "!" Like "[A-Za-zА-Яа-яЁё]"
True

это вы в логике навертели лишнего. А так как полностью текст программы с Like-ом вы не привели, сказать где - не могу.
...
Рейтинг: 0 / 0
22.05.2010, 20:59
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643399
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Я так понимаю это нужно слово по буквам перебирать. Сразу слово сравнить я не смогу?
...
Рейтинг: 0 / 0
22.05.2010, 21:31
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643405
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wooferЯ так понимаю это нужно слово по буквам перебирать. Сразу слово сравнить я не смогу?

нет. Если только не размножите шаблон столько раз, сколько букв в слове. Еще в него надо включть разного рода дефисы...

Но я считаю, что достаточно проверить первую букву слова, чтобы принять решение, считать это словом или нет.
...
Рейтинг: 0 / 0
22.05.2010, 21:37
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643423
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Shocker.Pro
Но я считаю, что достаточно проверить первую букву слова, чтобы принять решение, считать это словом или нет.

Вот спасибо тебе большое. Проверить первый символ то что надо.
...
Рейтинг: 0 / 0
22.05.2010, 21:59
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643445
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Вот ещё вопрос. Я открываю файлы вот так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public d As Object, Doc1 As Object

Private Sub CommandButton1_Click()

fileToOpen = Application _
    .GetOpenFilename("Text Files (*.doc), *.doc")
If fileToOpen <> False Then
    TextBox1 = fileToOpen
Set d = CreateObject("Word.Application")
 
Set Doc1 = d.Documents.Open(fileToOpen)

Если я открыл несколько файло , как закрыть тот который мне не нужен и как запретить повторное открытие файла.
...
Рейтинг: 0 / 0
22.05.2010, 22:39
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643453
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wooferIf fileToOpen <> False

Почему вы текст сравниваете с лоигческой переменной? вы php-шник?

wooferSet Doc1 = d.Documents.Open(fileToOpen)
как закрыть

Вы не поверите. Методом Close.

wooferкак запретить повторное открытие файла.

Ну надо вести массив или коллекцию ранее открытых файлов и проверять, не открывался ли он ранее.
...
Рейтинг: 0 / 0
22.05.2010, 22:48
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643474
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Shocker.ProwooferIf fileToOpen <> False

Почему вы текст сравниваете с лоигческой переменной? вы php-шник?


Да какой я php-шник... Я просто в VBA никогда не работал, а этот пример открытия нашёл.

Shocker.ProВы не поверите. Методом Close.

так не получилось, закрыл так
Код: plaintext
1.
d.Quit
Set d = Nothing
Но мне это не подходит. Если я открою например 3 документа как закрыть 2 ?
...
Рейтинг: 0 / 0
22.05.2010, 23:38
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643481
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wooferЯ просто в VBA никогда не работал, а этот пример открытия нашёл.
"Впредь избегайте этих мест" (с)анекдот

Shocker.Proтак не получилось, закрыл так
...
Но мне это не подходит. Если я открою например 3 документа как закрыть 2 ?
Что значит "не получилось"? Не надо оставлять место для догадок.
Documents("документ.doc").Close - не получается?
Как писали, какая ошибка? Вы так до второго пришествия консультироваться будете.
...
Рейтинг: 0 / 0
22.05.2010, 23:48
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643486
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
автор Shocker.Pro Documents("документ.doc").Close
Documents - Sub or Function not defined
...
Рейтинг: 0 / 0
22.05.2010, 23:53
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643494
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wooferDocuments - Sub or Function not defined

это ваш код:
Код: plaintext
Set Doc1 = d.Documents.Open(fileToOpen)

Ну сложите 2 и 2 сами, ну пожалуйста.
...
Рейтинг: 0 / 0
23.05.2010, 00:00
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643504
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Код: plaintext
d.Documents(fileToOpen).Close
так?
...
Рейтинг: 0 / 0
23.05.2010, 00:12
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643506
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
woofer
Код: plaintext
d.Documents(fileToOpen).Close
так?

так.
Только почему fileToOpen?
Последний файл у вас и так живет в Doc1, вы его и так можете закрыть методом Close. А если требуется несколько каких-то других файлов то и имена их надо брать из другого места.
...
Рейтинг: 0 / 0
23.05.2010, 00:15
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643510
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Код: plaintext
d.Documents(fileToOpen).Close
Но документ всё равно не закрывается
...
Рейтинг: 0 / 0
23.05.2010, 00:25
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643512
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
woofer
Код: plaintext
d.Documents(fileToOpen).Close
Но документ всё равно не закрывается

Ну что я могу сказать? у меня закрывается.
...
Рейтинг: 0 / 0
23.05.2010, 00:27
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643517
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public d As Object, Doc1 As Object

Private Sub CommandButton1_Click()

fileToOpen = Application _
    .GetOpenFilename("Text Files (*.doc), *.doc")
If fileToOpen <> False Then
Set d = CreateObject("Word.Application") 
Set Doc1 = d.Documents.Open(fileToOpen)
   TextBox1 = fileToOpen
d.Documents(fileToOpen).Close

Вот по идеи должен закрывать, но он продолжает висеть в процесах
...
Рейтинг: 0 / 0
23.05.2010, 00:38
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643520
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wooferВот по идеи должен закрывать, но он продолжает висеть в процесах

Кто?
В процессах вы можете видеть только Word, а не документ.
Вы же просили закрыть документ, а не Word. Или не понимаете, в чем разница?
...
Рейтинг: 0 / 0
23.05.2010, 00:45
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643529
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Это я понимаю. Но если я закрыл документ нафига мне нужен Word в процессах.
И если я открываю ещё один документ то появляется и ещё один процесс Word.
...
Рейтинг: 0 / 0
23.05.2010, 00:54
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643530
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
wooferИ если я открываю ещё один документ то появляется и ещё один процесс Word.

Это необязательно. Если вы не создаете новый объект Word.Application, то и других вордов в процессах появляться не будет. Открывайте все документы одним вордом, закрывайте соответственно Close, а когда закончите обработку, закроете Ворд через Quit.
...
Рейтинг: 0 / 0
23.05.2010, 00:57
| Ответить | Цитировать | Написать  
min и max слово в документе Word
    #36643536
woofer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
woofer
Гость
Спасибо понял. Но думаю завтра будут новые вопросы...
Спокойной ночи!
...
Рейтинг: 0 / 0
23.05.2010, 01:06
| Ответить | Цитировать | Написать  
20 сообщений из 45, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / min и max слово в документе Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36643453&tid=2159751]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 59ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 76ms
get tp. blocked users:
 2ms
others: 242ms
total:  432ms
созд. / загр.: 432ms
x
x
Закрыть


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