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

[kminas]

При открытии документа, содержащего в имени пробел, программа (во время активации) выдает ошибку 4160 и пишет: "неправильное имя файла". Вот код процедуры:

Public oapp As Object
Dim dlg As Object

Set oapp = CreateObject("Word.Application")
oapp.Visible = True
Set dlg = Dialogs(wdDialogFileOpen)
oapp.ChangeFileOpenDirectory "C:\...\..."

If dlg.Show = -1 Then
Documents.Open FileName:=dlg.Name
Documents(dlg.Name).Activate
End If

[VictorM]

Как - то где - то прочел: "Программисты_пробелов_не_применяют". Я думаю это и есть ответ на Ваш вопрос.

[Pavel55]

У меня вот так работает (из под Excel)

Код: Выделить всё

Public oapp As Object
Dim dlg As Object

Sub Macro1()
    Set oapp = CreateObject("Word.Application")
    oapp.Visible = True
    Set dlg = oapp.Dialogs(80) 'wdDialogFileOpen
    'oapp.ChangeFileOpenDirectory "C:\...\..."
    If dlg.Show = -1 Then
        oapp.Documents.Open Filename:=dlg.Name
        'oapp.Documents(dlg.Name).Activate
    End If
End Sub

P.S. строку oapp.Documents(dlg.Name).Activate закомментировал, т.к. когда открываете документ он сразу автоматом становится активным и поэтому делать его ещё раз активным не надо

[kminas]

У меня вот так работает (из под Excel)

Код: Выделить всё

Public oapp As Object
Dim dlg As Object

Sub Macro1()
    Set oapp = CreateObject("Word.Application")
    oapp.Visible = True
    Set dlg = oapp.Dialogs(80) 'wdDialogFileOpen
    'oapp.ChangeFileOpenDirectory "C:\...\..."
    If dlg.Show = -1 Then
        oapp.Documents.Open Filename:=dlg.Name
        'oapp.Documents(dlg.Name).Activate
    End If
End Sub

P.S. строку oapp.Documents(dlg.Name).Activate закомментировал, т.к. когда открываете документ он сразу автоматом становится активным и поэтому делать его ещё раз активным не надо

http://www.progz.ru/forum/index.php?sho ... t&p=163003

[kminas]

Как - то где - то прочел: "Программисты_пробелов_не_применяют". Я думаю это и есть ответ на Ваш вопрос.

Открою маленький секрет. Я не буду работать на этой программе. А будут работать люди в той или иной степени с ним дружащие или наоборот.

[kminas]

У меня вот так работает (из под Excel)

Код: Выделить всё

Public oapp As Object
Dim dlg As Object

Sub Macro1()
    Set oapp = CreateObject("Word.Application")
    oapp.Visible = True
    Set dlg = oapp.Dialogs(80) 'wdDialogFileOpen
    'oapp.ChangeFileOpenDirectory "C:\...\..."
    If dlg.Show = -1 Then
        oapp.Documents.Open Filename:=dlg.Name
        'oapp.Documents(dlg.Name).Activate
    End If
End Sub

P.S. строку oapp.Documents(dlg.Name).Activate закомментировал, т.к. когда открываете документ он сразу автоматом становится активным и поэтому делать его ещё раз активным не надо

Вы знаете, как ни странно, помогло. Еще бы Вы подсказали, как мне избежать открытия второй копии Word. Если я с помощью этого кода открываю файл при уже открытых документах, появляется еще одно копия программы, но без документа. Если токрытый файл первый - все нормально.

[Teslenko_EA]

Здравствуйте kminas.
Вы же создаете объект и одновременно хотите избежать "открытия второй копии"
GetObject(,"Word.Application") избавит от создиния копии, но если объекта нет сгенерируется ошибка, "поймав" которую, создавайте новый - CreateObject.

Евгений.

[kminas]

Здравствуйте kminas.
Вы же создаете объект и одновременно хотите избежать "открытия второй копии"
GetObject(,"Word.Application") избавит от создиния копии, но если объекта нет сгенерируется ошибка, "поймав" которую, создавайте новый - CreateObject.

Евгений.

Спасибо Евгений. Но у меня ничего не получается с GetObject(,"Word.Application"). Не подскажите, как с его помощью открыть файл по выбору пользователя?

[Teslenko_EA]

VictorM, когдато имена файлов не могли содержать символы за пределами 437 кодовой страницы, и длиной не более восьми символов (это было время DOS).
Кажется только законы физики на Земле не меняются.

Евгений.

[Teslenko_EA]

kminas, пример который выслал Pavel55, уже опробован?