ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / word изменить свойства файла
37 сообщений из 37, показаны все 2 страниц
  все  
word изменить свойства файла
    #36742135
vera_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vera_t
Участник
В word есть меню Файл/Свойства. На вкладке "Документ" есть реквизит "Название" не подскажет ли кто-нибудь как изменить это свойство програмно?
...
Рейтинг: 0 / 0
15.07.2010, 02:24
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36742149
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
activedocument.BuiltInDocumentProperties(wdPropertyTitle)
...
Рейтинг: 0 / 0
15.07.2010, 02:50
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36742154
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Не завершил
activedocument.BuiltInDocumentProperties(wdPropertyTitle)="ххх"
...
Рейтинг: 0 / 0
15.07.2010, 02:57
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36742185
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
vera_t,

подскажите пожалуйста в Вашем случае, Вы для чего меняете? Я про себя думаю, что этим можно добиться?
...
Рейтинг: 0 / 0
15.07.2010, 05:51
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36743674
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Ципихович Эндрю,

Мало ли зачем нада - к примеру:
а)есть пакет документов со всякой фигней,
б)одни документы в названии файлов имеют "Эндрю"
в)и есть прога, которая должна как то обработать енти файлы и для будущего обозвать их (документы, а не файлы) "Ципихович". Как ключевое слово и т.п.
поентому и мона использовать для обрабатываемого документа: activedocument.BuiltInDocumentProperties(wdPropertyTitle)="Ципихович"
...
Рейтинг: 0 / 0
15.07.2010, 16:41
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36743985
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Stepler,

Доходчиво!!
Я вобще то Веру спрашивал, уже скоко её клею, нифига не получается, для неё бы сделать смайлик "Вера в норке"
А если серьёзно, что ещё наподобии этого есть
activedocument.BuiltInDocumentProperties(wdPropertyTitle)="ххх"
Чего там можно поменять, присвоить???

А также правильно ли у меня в скрипте указаны свойства файлов, и есть ли ещё какие свойства???
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
If Расширение_файла = "txt" Then
Set fo = fso.OpenTextFile(f.Path)
title = fo.ReadLine() 'заголовок файла
text = fo.ReadAll 'весь текст файла
'Свойство_или_данные3=???????????????????????? возможно ещё есть свойства или данные?????????
End If

If Расширение_файла = "doc" Then
Set fo = fso.OpenTextFile(f.Path)
title = fo.ReadLine() 'заголовок файла бред, какой то занесло в переменную???????????
text = fo.ReadAll 'весь текст файла бред, какой то занесло в переменную???????????
'Свойство_или_данные3=???????????????????????? возможно ещё есть свойства или данные?????????
End If
...
Рейтинг: 0 / 0
15.07.2010, 19:33
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36744305
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюwdPropertyTitle
Чего там можно поменять, присвоить???
я уже говорил, учи F2

Ципихович ЭндрюА также правильно ли у меня в скрипте указаны свойства файлов, и есть ли ещё какие свойства???
а я не нашел у тебя в скрипте вообще никаких свойств.
...
Рейтинг: 0 / 0
16.07.2010, 02:02
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36744339
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

Называйте это как хотите, но у меня
title =
text =
это свойства файла, есть что по существу??
...
Рейтинг: 0 / 0
16.07.2010, 05:50
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746016
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюНазывайте это как хотите, но у меня
title =
text =
это свойства файла, есть что по существу??
отнюдь.
это ты их называешь, как хочешь, а по сути это первая строка файла и все остальные строки файла. разбери код и проанализируй, что делают команды в первой части примера, прежде чем дописывать глупости
...
Рейтинг: 0 / 0
16.07.2010, 22:27
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746136
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

Я говорю, что иногда я пишу ересь, а Вы всё на своём: я бы сказал, что иногда ты не пишешь ересь, а так вегда ересь
Не знаю ума не хватает, поэту и обращаюсь
...
Рейтинг: 0 / 0
17.07.2010, 01:04
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746147
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрю,

Тем не менее, в данном случае - это ересь.
Ты решил называть первую строку текстового файла его свойством - пожалуйста.
Ну тогда никакого бреда при обработке файла DOC нет (в твоей терминологии) - в переменную title заносится первая строка файла - она именно такова. То есть то, что ты захотел, то и получил.

Другой вопрос, что обычные люди называют свойствами файла другие вещи. И свойства документа ворда - это тоже вполне конкретные и другие вещи. Но тебе закон не писан, общепринятые термины - тоже. Так что все в порядке с твоим скриптом.
...
Рейтинг: 0 / 0
17.07.2010, 01:15
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746625
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

Ничего там не в порядке, если бы залетало в переменную то что надо, а то ведь в переменную ни тебе заголовка файла, ни тебе всего текста
Код: plaintext
1.
2.
title = fo.ReadLine() 'заголовок файла бред, какой то занесло в переменную???????????
text = fo.ReadAll 'весь текст файла бред, какой то занесло в переменную???????????
Ну тогда закомментируйье эти строки как оно есть на самом деле, пожалуйста
...
Рейтинг: 0 / 0
17.07.2010, 20:57
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746768
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
title = fo.ReadLine() 'считывает первую строку текстового файла в переменную title
text = fo.ReadAll 'считывает весь оставшийся текст файла в переменную text
...
Рейтинг: 0 / 0
18.07.2010, 00:02
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746791
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

как всё просто!!! В том то и дело, что у меня этого непроисходит, не считывает первую строку текстового файла в переменную title, а в неё попадает:РП аЎ± б, в переменную text попадают одни буквы у с двумя точками вверху
...
Рейтинг: 0 / 0
18.07.2010, 00:50
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746795
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрюкак всё просто!!! В том то и дело, что у меня этого непроисходит, не считывает первую строку текстового файла в переменную title, а в неё попадает:РП аЎ± б, в переменную text попадают одни буквы у с двумя точками вверху
это наверное потому, что ты считаешь doc-файл текстовым файлом
...
Рейтинг: 0 / 0
18.07.2010, 00:56
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746862
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

а как же это: If Расширение_файла = "doc" Then
Да и нет в той папке где идёт поиск файлов текстовых файлов вообще
...
Рейтинг: 0 / 0
18.07.2010, 06:07
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746954
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Proсчитывает первую строку текстового файла в переменную title
Ципихович ЭндрюДа и нет в той папке ... текстовых файлов вообще
что еще непонятно?
...
Рейтинг: 0 / 0
18.07.2010, 11:47
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36746958
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Shocker.Proчто еще непонятно?
Видимо, Эндрю думает, что если файл "doc", то OpenTextFile волшебным образом распознает его структуру.

Назову собаку кошкой, пусть помяучит мне немножко.
...
Рейтинг: 0 / 0
18.07.2010, 11:54
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747110
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
mds_world,

с кошкой и собакой это неудчное сравнение
...
Рейтинг: 0 / 0
18.07.2010, 15:54
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747113
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

Это называется, приехали, если использовать Вашу правильную терминологию, тогда
If Расширение_файла = "txt" Then это какой файл? Я его называю Текстовый
If Расширение_файла = "doc" Then это какой файл? Я его называю Вордовский
...
Рейтинг: 0 / 0
18.07.2010, 15:57
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747120
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюЭто называется, приехали, если использовать Вашу правильную терминологию, тогда
If Расширение_файла = "txt" Then это какой файл? Я его называю Текстовый
If Расширение_файла = "doc" Then это какой файл? Я его называю Вордовский
все верно. и в чем вопрос? в том что заносится бред НЕ из текстового файла? А кто обещал?
...
Рейтинг: 0 / 0
18.07.2010, 16:15
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747141
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

Начнём понемножку:Да и нет в той папке ... текстовых файлов вообще - это откуда Вы взяли??
...
Рейтинг: 0 / 0
18.07.2010, 16:44
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747148
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюНачнём понемножку:Да и нет в той папке ... текстовых файлов вообще - это откуда Вы взяли??
ну начни понемножку
перечитай все что тут написано
найди, где я говорил, что у тебя в папке есть текстовые файлы
научись цитировать
процитируй

но судя по всему, вопросов у тебя либо не осталось, либо ты уже сам забыл, чего хотел. Так что можно считать тему закрытой.
...
Рейтинг: 0 / 0
18.07.2010, 16:59
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747167
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,
Так вот я уже понял что эти переменные title и text в Вордовском файле не будут брать значение то, которое происходит в текстовом файле, но там в двух блоках относительно Вордовского файла и текстового файла, есть строка:
Код: plaintext
1.
'Свойство_или_данные3=???????????????????????? возможно ещё есть свойства или данные?????????
Подскажите если есть такие
И ещё я спрашивал:
что то ещё наподобии этого есть
activedocument.BuiltInDocumentProperties(wdPropertyTitle)="ххх"
Чего там можно поменять, присвоить???
...
Рейтинг: 0 / 0
18.07.2010, 17:47
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747175
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Как я понял можно поупражняться только с двумя свойствами кроме уже одного указанного в прсте выше, а именно:

Activedocument.CustomDocumentProperties ‘обычай, традиция, заказ, таможенная пошлина, пошлина обыкновение, нрав, заказной, таможенный, изготовленный
какое оставляем???
Activedocument.PasswordEncryptionFilePropertiesProperties ‘это что такое??
Подскажите каков скрипт с ними упражняясь?? Спасибо
...
Рейтинг: 0 / 0
18.07.2010, 18:12
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747201
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрючто то ещё наподобии этого есть
wdPropertyTitle
а я тебе уже говорил - возьми F2 или F1 и посмотри
...
Рейтинг: 0 / 0
18.07.2010, 19:31
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36747204
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюActivedocument.CustomDocumentProperties
это те свойства документа, которые ты можешь задать самостоятельно. И пример их использования я тебе уже приводил ранее
Ципихович ЭндрюActivedocument.PasswordEncryptionFilePropertiesProperties ‘это что такое??
а что говорит хелп?
Ципихович ЭндрюПодскажите каков скрипт с ними упражняясь??
Магистр Йода? 8-о
...
Рейтинг: 0 / 0
18.07.2010, 19:37
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765016
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

что то не могу совладать, строка скрипта
Activedocument.BuiltInDocumentProperties(wdPropertyTitle)="ххх"
это в активном документе, а как будет в другом файле:
Путь_файла & "\" & Имя_файла_без_расширения & ".doc"
...
Рейтинг: 0 / 0
28.07.2010, 21:23
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765026
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрючто то не могу совладать, строка скрипта
Activedocument.BuiltInDocumentProperties(wdPropertyTitle)="ххх"
это в активном документе, а как будет в другом файле:
Путь_файла & "\" & Имя_файла_без_расширения & ".doc"

вместо Activedocument будет Documents("блаблабла")
...
Рейтинг: 0 / 0
28.07.2010, 21:38
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765031
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

попробовал так:
Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle) = "ххх"
в = Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle)
Увы ничерта не получилось
...
Рейтинг: 0 / 0
28.07.2010, 21:45
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765035
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro,

попробовал так:
Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle) = "ххх"
в = Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle)
Увы ничерта не получилось
Коллекция Documents содержит только открытые файлы.
...
Рейтинг: 0 / 0
28.07.2010, 21:49
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765039
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,
то есть сообщение от сегодня, 21:38 ошибочно?
...
Рейтинг: 0 / 0
28.07.2010, 21:52
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765040
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro,
то есть сообщение от сегодня, 21:38 ошибочно?
Нет, с чего ты взял?
...
Рейтинг: 0 / 0
28.07.2010, 21:53
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765043
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

не путайте меня на ночь глядя, тогда снова:
попробовал так:
Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle) = "ххх"
в = Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle)
Увы ничерта не получилось, как же надо???
...
Рейтинг: 0 / 0
28.07.2010, 21:56
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765044
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюShocker.Pro,

не путайте меня на ночь глядя, тогда снова:
попробовал так:
Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle) = "ххх"
в = Documents(Путь_файла & Имя_файла_с_расширением).BuiltInDocumentProperties(wdPropertyTitle)
Увы ничерта не получилось, как же надо???
Путь файла не надо. И расширение, вроде бы, тоже.
...
Рейтинг: 0 / 0
28.07.2010, 21:57
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765055
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

попробую, но это цирк будет, если сложится, фокус, в том плане, если нет пути, а если их несколько файлов с одинаковым именем, если нет расширения, а если он текстовый или ещё какой?
...
Рейтинг: 0 / 0
28.07.2010, 22:10
| Ответить | Цитировать | Написать  
word изменить свойства файла
    #36765060
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович Эндрюпопробую, но это цирк будет, если сложится, фокус, в том плане, если нет пути, а если их несколько файлов с одинаковым именем, если нет расширения, а если он текстовый или ещё какой?
а ты попробуй открыть и просмотри саму коллекцию Documents
...
Рейтинг: 0 / 0
28.07.2010, 22:13
| Ответить | Цитировать | Написать  
37 сообщений из 37, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / word изменить свойства файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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