Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Kaliostro82
61 / 5 / 1
Регистрация: 09.09.2012
Сообщений: 73
1

Скрипт для удаления свойств файла Word

04.02.2018, 13:57. Просмотров 291. Ответов 9
Метки нет (Все метки)

Здравствуйте!
Имеется вот такой скрипт для удаления свойств файла Excel.\
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Dim sSrc, oWB, oProp
With CreateObject("Excel.Application")
  .Visible = False
  .DisplayAlerts = False
  For Each sSrc in WScript.Arguments
    On Error Resume Next
    Set oWB = .Workbooks.Open(sSrc)
    On Error Goto 0
    If .Workbooks.Count > 0 Then
      For Each oProp In oWB.BuiltinDocumentProperties
        oProp.Value = Empty
      Next
      .UserName = " "
      oWB.Save
      oWB.Close
    End If
  Next
  .Quit
End With
CreateObject("WScript.Shell").PopUp "Completed", 1, , 64
Помогите его исправить для того, чтобы он делал тоже самое, но для файлов Word.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2018, 13:57
Ответы с готовыми решениями:

Скрипт для удаления файлов и папок
Собрал из кусков скрипт для удаления файлов и папок. Но проблема такая, если...

Скрипт для удаления виртуальных сом портов
Здравствуйте. Собственно вопрос. Имеется компьютер, на котором конфигурируются...

Скрипт для удаления антивируса "Dr.Web"
Добрый день! Мне нужен скрипт или пример как в тихом режиме удалить программу....

Как правильно написать скрипт для копирования файла?
пишу этот код : filecopy "c:\fch.vbs","c:\fch.vbs" . Потом...

Скрипт для перемещения файлов с созданием лог-файла
Уважаемые форумчане, В этой сфере я полный чайник.. и поэтому прошу Вас помочь...

9
FlasherX
734 / 292 / 112
Регистрация: 06.06.2017
Сообщений: 1,092
04.02.2018, 15:40 2
Да по сути то же самое. Только вместо Excel пишем Word, а 9 и 14 в обоих случаях удалить, ибо бессмысленны.
0
Kaliostro82
61 / 5 / 1
Регистрация: 09.09.2012
Сообщений: 73
23.02.2018, 21:51  [ТС] 3
Цитата Сообщение от FlasherX Посмотреть сообщение
Да по сути то же самое. Только вместо Excel пишем Word, а 9 и 14 в обоих случаях удалить, ибо бессмысленны.
не удаляются никакие свойства файла. никаких изменений абсолютно.
0
FlasherX
734 / 292 / 112
Регистрация: 06.06.2017
Сообщений: 1,092
23.02.2018, 21:57 4
Kaliostro82, а вы путь в качестве параметра какой указали?
0
Kaliostro82
61 / 5 / 1
Регистрация: 09.09.2012
Сообщений: 73
23.02.2018, 22:02  [ТС] 5
Цитата Сообщение от FlasherX Посмотреть сообщение
Kaliostro82, а вы путь в качестве параметра какой указали?
вопрос не понял.
поясняю как используется скрипт - лежит скрипт в формате *.vbs в папке, на скрипт кидается файл в формате *.doc и вуаля, появляется сообщение "Completed", а сам файл уже чистый, с пустыми полями в окне свойств.
0
FlasherX
734 / 292 / 112
Регистрация: 06.06.2017
Сообщений: 1,092
23.02.2018, 23:58 6
Ну, параметры могут и через D&D подставляться, не суть. Кое-что забыл указать:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit: Dim sSrc, oWB, oProp
With CreateObject("Word.Application")
  On Error Resume Next
  For Each sSrc in WSH.Arguments
    Set oWB = .Documents.Open(sSrc)
    For Each oProp In oWB.BuiltinDocumentProperties
      oProp.Value = ""
    Next
    oWB.Save : oWB.Close
  Next
  .Quit
End With
CreateObject("WScript.Shell").PopUp "Completed", 1,, 64
0
Kaliostro82
61 / 5 / 1
Регистрация: 09.09.2012
Сообщений: 73
24.02.2018, 05:49  [ТС] 7
Цитата Сообщение от FlasherX Посмотреть сообщение
Ну, параметры могут и через D&D подставляться, не суть. Кое-что забыл указать:
странно, но изменений по-прежнему нет. все свойства на месте.
0
FlasherX
734 / 292 / 112
Регистрация: 06.06.2017
Сообщений: 1,092
24.02.2018, 07:31 8
Удаляются:
1. Описание: все.
2. Источник: Авторы, Номер версии, Организация, Руководитель.
3. Содержание: Состояние содержимого, Тип содержимого, Язык.
0
Kaliostro82
61 / 5 / 1
Регистрация: 09.09.2012
Сообщений: 73
24.02.2018, 09:12  [ТС] 9
Цитата Сообщение от FlasherX Посмотреть сообщение
Удаляются:
1. Описание: все.
2. Источник: Авторы, Номер версии, Организация, Руководитель.
3. Содержание: Состояние содержимого, Тип содержимого, Язык.
Если бы озвученное Вами удалялось, это было бы ИДЕАЛЬНО.
Но я не вижу изменений в свойствах файла. Я проверяю работу и не вижу изменений.
Объясните пожалуйста как используете этот скрипт Вы, и я сделаю точно также.
0
FlasherX
734 / 292 / 112
Регистрация: 06.06.2017
Сообщений: 1,092
24.02.2018, 15:49 10
Нажатием кнопки (с параметром %P%S) в ТС после выделения в активной панели doc/docx-файлов.
Ваш способ с перетягиванием на vbs в окнах Проводника также проверял, без разницы.
0
24.02.2018, 15:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.02.2018, 15:49

Создать vbs скрипт для загрузки файла с сервера на жёсткий диск
как создать vbs скрипт для загрузки файла с сервера на жёсткий диск нужен...

Подтверждение удаления файла
Доброго времени суток, уважаемые форумчане. Есть скрипт, который удаляет все...

нужен скрипт который постоянно сканит папку и при появлении в ней определённого файла сразу бы выдавал сообщение с содержанием того файла
Народ хэлп!нужен скрипт который постоянно сканит папку и при появлении в ней...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru