Spy00000 пишет:

Крепыш у вас сервис-пак 2 на офис установлен?
Не, нету. Windows 7 и Office 2007 без SP.

Стоит попробовать поставить.

Крепыш у вас сервис-пак 2 на офис установлен?

Не, нету. Windows 7 и Office 2007 без SP.

Сейчас проверил: на Windows XP SP2 и MS Office 2010 открывается на первом плане и поле "Имя файла"заполнено. Вот как-то так.

Окно MS Word открывается на первом плане, но заполнить поле "Имя файла" так и не получилось.

Судя по вот этой статье это проблема 2007 офиса, если он установлен на Vista и на, исходя из

Windows 7. Про hotfix или workaround в статье что-то ничего не сказано.
Крепыш у вас сервис-пак 2 на офис установлен?

Окно 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

и окно на переднем плане, и маска работает:

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 открывается на первом плане, но заполнить поле "Имя файла" так и не получилось.

strPath     = "C:\Temp\"
strFileName = "*.doc"
…
        .InitialFileName  = strPath & strFileName

отрабатывает.

Значит, таковы настройки Вашей ОС: «запретить «похищать» фокус у активного окна». Как раз вместо этого ОС мигает на панели задач кнопкой приложения, просящего активацию окна.

    With .FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName  = strPath
        .FilterIndex = 2

...

или так:

    With .FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName  = strPath
        .Filters.Add "Свой фильтр", "*.doc; *.docx", 2
        .FilterIndex = 2

...

- окно word всё равно открывается позади

У меня — на переднем плане. Хорошо, давайте попробуем ещё «углубить» (см. ниже).

Ясно. Пробуйте:

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'а? Впрочем, нынче сие уже не важно.

Откажитесь от:

…(в фоне)

With WScript.CreateObject("Word.Application")
    .Visible = True
    
    If .Dialogs(wdDialogFileOpen).Show() = -1 Then
        With .ActiveDocument
            …

Не помогло:
- неудобно
- окно word всё равно открывается позади

В диалоговом окне, например, путь по умолчанию для открытия файлов должен быть strPath, а имя файла strFileName. Какие именно - не важно, вопрос в другом: надо, чтобы можно было их задавать.

Я думаю, smaharbA хотел сказать, что таким образом скрипт может считать содержимое из другого активного в этот момент документа. Так?

1) Чтобы в диалоговом окне сразу был указан путь по умолчанию и маска файла (например, <дата>.docx)

Не вижу ни «пути по умолчанию», ни символов маски в приведённом имени.

Откажитесь от:

With WScript.CreateObject("Word.Application")
    .Visible = True
    
    If .Dialogs(wdDialogFileOpen).Show() = -1 Then
        With .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) При запуске скрипта диалоговое окно открывается позади того окна, из которого был запущен скрипт. Как вывести его на первый план?