Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → Windows Script Host, HTA (VBScript, JScript) → JScript: Открытие файла MS Word
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день!
Помогите, пожалуйста, написать скрипт, который:
1) Вызывает диалоговое окно MS Word "Открыть"
2) Открывает (в фоне) выбранный документ
3) Копирует в переменную "Text" весь текст внутри документа (с потерей форматирования, естественно)
4) Закрывает открытый документ
PS: Можно и на VBS (попробую на JScrpt переписать)
Примерно так:
Option Explicit
Const wdDialogFileOpen = 80
Const wdDoNotSaveChanges = 0
Dim strText
With WScript.CreateObject("Word.Application")
If .Dialogs(wdDialogFileOpen).Show() = -1 Then
.Visible = False
With .ActiveDocument
strText = .Range.Text
.Close wdDoNotSaveChanges
End With
End If
.Quit wdDoNotSaveChanges
End With
WScript.Echo strText
WScript.Quitalexii, спасибо!
Можно ли добавить?
1) Чтобы в диалоговом окне сразу был указан путь по умолчанию и маска файла (например, <дата>.docx)
2) При запуске скрипта диалоговое окно открывается позади того окна, из которого был запущен скрипт. Как вывести его на первый план?
не надо так делать "ActiveDocument" можно налететь
не надо так делать "ActiveDocument" можно налететь
А так вот нормально будет?
var FileName;
with (WScript.CreateObject('Word.Application')) {
with (Documents.Open(FileName)) {
var strText = Range().Text;
Close(0)
}
Quit()
}
WScript.Echo(strText)Только надо как-то получить имя открываемого файла из диалогового окна открытия файлов.
1) Чтобы в диалоговом окне сразу был указан путь по умолчанию и маска файла (например, <дата>.docx)
Не вижу ни «пути по умолчанию», ни символов маски в приведённом имени.
2) При запуске скрипта диалоговое окно открывается позади того окна, из которого был запущен скрипт. Как вывести его на первый план?
Откажитесь от:
…(в фоне)
With WScript.CreateObject("Word.Application")
.Visible = True
If .Dialogs(wdDialogFileOpen).Show() = -1 Then
With .ActiveDocument
…не надо так делать "ActiveDocument" можно налететь
Моя твоя не панимай.
Откажитесь от:
…(в фоне)
With WScript.CreateObject("Word.Application") .Visible = True If .Dialogs(wdDialogFileOpen).Show() = -1 Then With .ActiveDocument …
Не помогло:
- неудобно
- окно word всё равно открывается позади
Не вижу ни «пути по умолчанию», ни символов маски в приведённом имени.
В диалоговом окне, например, путь по умолчанию для открытия файлов должен быть strPath, а имя файла strFileName. Какие именно - не важно, вопрос в другом: надо, чтобы можно было их задавать.
smaharbA пишет:не надо так делать "ActiveDocument" можно налететь
Моя твоя не панимай.
Я думаю, smaharbA хотел сказать, что таким образом скрипт может считать содержимое из другого активного в этот момент документа. Так?
- окно word всё равно открывается позади
У меня — на переднем плане. Хорошо, давайте попробуем ещё «углубить» (см. ниже).
В диалоговом окне, например, путь по умолчанию для открытия файлов должен быть strPath, а имя файла strFileName. Какие именно - не важно, вопрос в другом: надо, чтобы можно было их задавать.
Ясно. Пробуйте:
Option Explicit
Const msoFileDialogOpen = 1
Const wdDoNotSaveChanges = 0
Dim strText
Dim strPath
Dim strFileName
strPath = "C:\Temp\"
strFileName = "*.doc"
With WScript.CreateObject("Word.Application")
.Visible = True
.Activate
With .FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = strPath & strFileName
If .Show() = -1 Then
With .Application.Documents.Open(.SelectedItems.Item(1))
strText = .Range.Text
.Close wdDoNotSaveChanges
End With
End If
End With
.Quit wdDoNotSaveChanges
End With
WScript.Echo strText
WScript.Quit…из другого активного в этот момент документа. Так?
Откуда возьмётся другой активный документ при единственном открытом документе в этом экземпляре WinWord'а? Впрочем, нынче сие уже не важно.
Попрбовал: Word открывается позади и мигает кнопкой на панели задач (MS Windows 7, MS Office 2007)
Маска для имени файла не применяется. А так хотелось, чтобы в поле "Имя файла" можно было задать маску, типа: "*25.07.2011.doc".
Получилось только задать фильтр:
With .FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = strPath
.FilterIndex = 2
...или так:
With .FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = strPath
.Filters.Add "Свой фильтр", "*.doc; *.docx", 2
.FilterIndex = 2
...Крепыш, к сожалению, у меня нет доступа к Microsoft Office 2007. Возможно, там сменилась объектная модель в этом отношении. У меня-то как раз маска:
strPath = "C:\Temp\"
strFileName = "*.doc"
…
.InitialFileName = strPath & strFileNameотрабатывает.
Word открывается позади и мигает кнопкой на панели задач
Значит, таковы настройки Вашей ОС: «запретить «похищать» фокус у активного окна». Как раз вместо этого ОС мигает на панели задач кнопкой приложения, просящего активацию окна.
var msoFileDialogOpen = 1;
var wdDoNotSaveChanges = 0;
var objFSO = WScript.CreateObject('Scripting.FileSystemObject');
var strPath = objFSO.GetParentFolderName(WScript.ScriptFullName);
var strFileName = '*.doc';
with (WScript.CreateObject('Word.Application'))
{
Visible = true;
Activate();
WScript.CreateObject('WScript.Shell').AppActivate('Microsoft Word');
with (FileDialog(msoFileDialogOpen))
{
AllowMultiSelect = false;
InitialFileName = objFSO.BuildPath(strPath, strFileName);
Filters.Clear();
Filters.Add('Все файлы', '*.*', 1);
Filters.Add('Документы Word', '*.doc; *.docx', 2);
FilterIndex = 2;
if (Show() == -1)
with (Application.Documents.Open(SelectedItems.Item(1)))
{
var strText = Range().Text;
Close(wdDoNotSaveChanges)
}
}
Quit(wdDoNotSaveChanges)
}
WScript.Echo(strText)Окно MS Word открывается на первом плане, но заполнить поле "Имя файла" так и не получилось.
Окно MS Word открывается на первом плане, но заполнить поле "Имя файла" так и не получилось.
Сожалею. У меня на коде из #8:
Option Explicit
Const msoFileDialogOpen = 1
Const wdDoNotSaveChanges = 0
Dim strText
Dim strPath
Dim strFileName
strPath = "C:\Documents and Settings\User\Мои документы\"
strFileName = "Some*.doc"
With WScript.CreateObject("Word.Application")
.Visible = True
.Activate
With .FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = strPath & strFileName
If .Show() = -1 Then
With .Application.Documents.Open(.SelectedItems.Item(1))
strText = .Range.Text
.Close wdDoNotSaveChanges
End With
End If
End With
.Quit wdDoNotSaveChanges
End With
WScript.Echo strText
WScript.Quitи окно на переднем плане, и маска работает:
Окно MS Word открывается на первом плане, но заполнить поле "Имя файла" так и не получилось.
Судя по вот этой статье это проблема 2007 офиса, если он установлен на Vista и на, исходя из
Попрбовал: Word открывается позади и мигает кнопкой на панели задач (MS Windows 7, MS Office 2007)
Windows 7. Про hotfix или workaround в статье что-то ничего не сказано.
Крепыш у вас сервис-пак 2 на офис установлен?
Крепыш у вас сервис-пак 2 на офис установлен?
Не, нету. Windows 7 и Office 2007 без SP.
Сейчас проверил: на Windows XP SP2 и MS Office 2010 открывается на первом плане и поле "Имя файла"заполнено. Вот как-то так.
Spy00000 пишет:Крепыш у вас сервис-пак 2 на офис установлен?
Не, нету. Windows 7 и Office 2007 без SP.
Стоит попробовать поставить.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
