Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2007 - [решено] Долго открываются документы MS Word.

Ответить
Настройки темы
2007 - [решено] Долго открываются документы MS Word.

Пользователь


Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать


Есть 2 компа, к одному подключен принтер, но сейчас за ним никто не сидит. Проблема в том, что если этот комп выключен, то на втором вордовские файлы очень долго открываются. Если отключить сеть, то все нормализуется. Если выключить принтер, то долго грузится только 1 раз для каждого документа, а все последующие загрузки этого дока проходят быстро. Если включить комп с принтером, то все грузится быстро. Если отключить службу "Очередь печати" то тоже все норм.
Вопрос: почему?

Отправлено: 08:09, 25-05-2011

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата vovka_bel:
Подскажите как нужно исправить скрипт »
vovka_bel, а Вы не обратили внимание на сообщение выше Вашего? Я могу повторить:
Цитата Iska:
Какой именно? »

Отправлено: 15:20, 25-11-2019 | #31



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить 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
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Ссылку, просто ссылку на сообщение со скриптом привести надо было. Или номер сообщения привести. Ух…

Теперь идём дальше.
Цитата vovka_bel:
…чтобы он смотрел все фаилы в каталоге »
Зачем «все»? Давайте ограничимся расширением .docx.

Пробуйте (не проверялось):
Скрытый текст
Код: Выделить весь код
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
Благодарности: 0

Профиль | Отправить PM | Цитировать


запускать нужно в том каталоге где все фаилы лежат которые нужно проверить?
Или как указать в каком каталоге смотреть скрипту?

Отправлено: 12:42, 26-11-2019 | #34


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата vovka_bel:
Или как указать в каком каталоге смотреть скрипту? »
Аргументом скрипта. Или можете просто перетащить потребный каталог на скрипт/ярлык, указывающий на скрипт, в Проводнике.

Отправлено: 18:18, 26-11-2019 | #35


Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


спасибо)

Отправлено: 13:35, 16-12-2019 | #36


Новый участник


Сообщения: 10
Благодарности: 0

Профиль | Отправить PM | Цитировать


Добрый день! Купили дочери новый ноутбук и через некоторое время возникла такая проблема. Каким-то образом на компьютере оказались установлены 2 пакета Microsoft Office: один - Microsoft Office 365 -ru -ru, второй - Microsoft Office профессиональный плюс 2010. При открытии файлов word, excel, powerpoint сначала идёт обращение к 1-му пакету и происходит это очень долго. Второй можно запустить только принудительно. Как всё привести в обычное состояние, то есть убрать совсем первый пакет, а второй заставить работать автоматически. Просто удалить из списка загруженных программ? Посоветуйте. Не знаю, почему, но если несколько задач подключаешь, то работа тоже медленная, в том числе открытие страниц в Интернете. А характеристики неплохие, вроде всё должно летать. Заранее благодарю. Алексей.

Отправлено: 19:04, 27-12-2019 | #37


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


a3270, нет никакой необходимости создавать одинаковые сообщения в разных темах.

Отправлено: 14:10, 28-12-2019 | #38



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2007 - [решено] Долго открываются документы MS Word.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход