Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Текст из ячейки Word для имени файла / 9 сообщений из 9, страница 1 из 1
02.02.2012, 13:17
    #37643709
indy2000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
Посредством Scripting.FileSystemObject нужно переименовывать файлы, используя текст в ячейке таблицы.
Табличка состоит из двух колонок и одной строки, данные берутся из второй ячейки
Такой фрагмент VBA Word, NUMB из которой будет формировать полный путь, возвращает пустое значение...(
NUMB = dst.Tables(1).Cell(1, 2).Range.Words(1).Text
Подскажите как поправить.
И как предусмотреть передачу только корректного текста (без абзаца и "мусора")?
...
Рейтинг: 0 / 0
02.02.2012, 13:29
    #37643743
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
выложи тестовый файл
...
Рейтинг: 0 / 0
02.02.2012, 13:44
    #37643792
indy2000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
Нужно из таблички извлекать ФИО.
затруднение в методе его программного извлечения, и еще заморочка в удалении концевых непечатаемых символов типа Chr(13)
...
Рейтинг: 0 / 0
02.02.2012, 14:26
    #37643906
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
indy2000,
кто-то кому-то врёт. Код, показаный Вами в первом посте, возвращает именно "корректного текст", без всякого мусора. Разве что Вы обращаетесь не к тому файлу.
...
Рейтинг: 0 / 0
02.02.2012, 14:54
    #37643994
indy2000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
скукотища,

Извиняюсь, писал несколько вариантов, не обратил внимания - действительно при сохранении только с первым словом сохраняется нормально, но при сохранении всего текста из ячейки как-то надо убирать непечатаемый хвост в конце, а то "не удается завершить сохранение из-за ошибки доступа к файлу"
...
Рейтинг: 0 / 0
02.02.2012, 16:16
    #37644233
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
indy2000,
если нужен весь текст ячейки, то:
Код: vbnet
1.
2.
NUMB = dst.Tables(1).Cell(1, 2).Range.Text
NUMB = Left(NUMB, Len$(NUMB)-1)
...
Рейтинг: 0 / 0
02.02.2012, 17:27
    #37644469
indy2000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
скукотища,

оказалось хитрее, правильно так:
Код: vbnet
1.
2.
NUMB = dst.Tables(1).Cell(1, 2).Range.Text
NUMB = Left(NUMB, Len(NUMB) - 2)


т.к. даже пустая ячейка в таблице содержит два непечатаемых символа - Chr(13) & Chr(7)
...
Рейтинг: 0 / 0
11.02.2012, 20:07
    #37657336
GrafBerkut
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
Кто знает как файл .doc программно сохранить в .txt c расстановкой переносов?
...
Рейтинг: 0 / 0
11.02.2012, 20:16
    #37657343
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Текст из ячейки Word для имени файла
GrafBerkutc расстановкой переносов?не очень понятно, то, что делает Ворд при "Сохранить как..." не устраивает?
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Текст из ячейки Word для имени файла / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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