|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2007 - [решено] Долго открываются документы MS Word. |
|
2007 - [решено] Долго открываются документы MS Word.
|
Пользователь Сообщения: 54 |
Профиль | Отправить PM | Цитировать Есть 2 компа, к одному подключен принтер, но сейчас за ним никто не сидит. Проблема в том, что если этот комп выключен, то на втором вордовские файлы очень долго открываются. Если отключить сеть, то все нормализуется. Если выключить принтер, то долго грузится только 1 раз для каждого документа, а все последующие загрузки этого дока проходят быстро. Если включить комп с принтером, то все грузится быстро. Если отключить службу "Очередь печати" то тоже все норм.
Вопрос: почему? |
|
Отправлено: 08:09, 25-05-2011 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
Отправлено: 15:20, 25-11-2019 | #31 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 3
|
Профиль | Отправить PM | Цитировать Option Explicit
Const wdDialogToolsTemplates = &H57 Dim strDocumentList Dim strBadTemplate Dim strDocument Dim strTemplate Dim objFSO Dim objWord strDocumentList = "" strBadTemplate = "" Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strDocumentList) Then Set objWord = WScript.CreateObject("Word.Application") With objFSO.OpenTextFile(strDocumentList) Do Until .AtEndOfStream strDocument = .ReadLine() If objFSO.FileExists(strDocument) Then WScript.Echo strDocument With objWord.Documents.Open(strDocument) strTemplate = objWord.Dialogs(wdDialogToolsTemplates).Template If strTemplate = strBadTemplate Then WScript.Echo " Template found in document [" & strDocument & "]" .AttachedTemplate = "Normal.dotm" .Save End If .Close End With Else WScript.Echo "Document [" & strDocument & "] not found" End If Loop .Close End With objWord.Quit Set objWord = Nothing Else WScript.Echo "Document list [" & strDocumentList & "] not found" End If Set objFSO = Nothing WScript.Quit 0 |
Отправлено: 16:22, 25-11-2019 | #32 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Ссылку, просто ссылку на сообщение со скриптом привести надо было. Или номер сообщения привести. Ух…
Теперь идём дальше. Цитата vovka_bel:
Пробуйте (не проверялось): Скрытый текст
Option Explicit
Const wdDialogToolsTemplates = &H57
Dim strBadTemplate
Dim strSourceFolder
Dim objFSO
Dim objFile
Dim objWord
Dim strTemplate
strBadTemplate = "\\fileserver2\USERS$\sba\My Documents\Brand Manual\Brand Manual\templates Norit russia\Templates NV\Norit NV - brief - ENG, V060403.dot"
If WScript.Arguments.Count = 1 Then
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strSourceFolder = objFSO.GetAbsolutePathName(WScript.Arguments.Item(0))
If objFSO.FolderExists(strSourceFolder) Then
Set objWord = Nothing
For Each objFile In objFSO.GetFolder(strSourceFolder).Files
If StrComp(objFSO.GetExtensionName(objFile.Name), "docx", vbTextCompare) = 0 Then
If objWord Is Nothing Then
Set objWord = WScript.CreateObject("Word.Application")
End If
WScript.Echo objFile.Path
With objWord.Documents.Open(objFile.Path)
strTemplate = objWord.Dialogs(wdDialogToolsTemplates).Template
If StrComp(strTemplate, strBadTemplate, vbTextCompare) = 0 Then
WScript.Echo " Template found in document [" & objFile.Path & "]"
.AttachedTemplate = "Normal.dotm"
.Save
End If
.Close
End With
Else
' Nothing to do
End If
Next
If Not objWord Is Nothing Then
objWord.Quit
Set objWord = Nothing
End If
Else
WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
WScript.Quit 2
End If
Set objFSO = Nothing
Else
WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>"
WScript.Quit 1
End If
WScript.Quit 0
|
|
Отправлено: 23:33, 25-11-2019 | #33 |
Новый участник Сообщения: 3
|
Профиль | Отправить PM | Цитировать запускать нужно в том каталоге где все фаилы лежат которые нужно проверить?
Или как указать в каком каталоге смотреть скрипту? |
Отправлено: 12:42, 26-11-2019 | #34 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата vovka_bel:
|
|
Отправлено: 18:18, 26-11-2019 | #35 |
Новый участник Сообщения: 1
|
Профиль | Сайт | Отправить PM | Цитировать спасибо)
|
Отправлено: 13:35, 16-12-2019 | #36 |
Новый участник Сообщения: 10
|
Профиль | Отправить PM | Цитировать Добрый день! Купили дочери новый ноутбук и через некоторое время возникла такая проблема. Каким-то образом на компьютере оказались установлены 2 пакета Microsoft Office: один - Microsoft Office 365 -ru -ru, второй - Microsoft Office профессиональный плюс 2010. При открытии файлов word, excel, powerpoint сначала идёт обращение к 1-му пакету и происходит это очень долго. Второй можно запустить только принудительно. Как всё привести в обычное состояние, то есть убрать совсем первый пакет, а второй заставить работать автоматически. Просто удалить из списка загруженных программ? Посоветуйте. Не знаю, почему, но если несколько задач подключаешь, то работа тоже медленная, в том числе открытие страниц в Интернете. А характеристики неплохие, вроде всё должно летать. Заранее благодарю. Алексей.
|
Отправлено: 19:04, 27-12-2019 | #37 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать a3270, нет никакой необходимости создавать одинаковые сообщения в разных темах.
|
Отправлено: 14:10, 28-12-2019 | #38 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2003/XP/2000 - [решено] MS Office Word 2003 рабочие документы открываются чистые | B100D | Microsoft Office (Word, Excel, Outlook и т.д.) | 17 | 12-05-2011 09:24 | |
Разное - Windows XP SP2 и MS Office 2000 Долго открываются документы. | Orgalit | Microsoft Windows 2000/XP | 1 | 17-12-2010 19:59 | |
Разное - Долго открываются папки. | predator13juve | Microsoft Windows 2000/XP | 15 | 29-08-2009 18:38 | |
[решено] Медленно открываются документы MS Ofifce на сервере терминалов | Bugs | Microsoft Windows NT/2000/2003 | 9 | 26-03-2009 10:52 | |
OpenOffice и документы Word Excel.... Кирилица | borolgin | Программное обеспечение Linux и FreeBSD | 3 | 19-08-2008 13:43 |
|