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

[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

[Хакер]

Ну видимо надо указывать имя без пробелов?

[ALev]

Попробуй oapp.ChangeFileOpenDirectory """C:\...\..."""

[Alexanbar]

Попробуй

Documents.Open FileName:=chr(34) & dlg.Name & chr(34)

[kminas]

Ну видимо надо указывать имя без пробелов?

Согласен. А так же не нажимать, когда не надо Esc, не вводить текст вместо цифр и т.д.

[Хакер]

kminas
Ты не понял, видимо.

Это был призыва использовать short-формы записи путей. Т.е. конвертировать в неё путь, перед передачей.

[kminas]

kminas
Ты не понял, видимо.

Это был призыва использовать short-формы записи путей. Т.е. конвертировать в неё путь, перед передачей.

Я еще с этим не встречался. Кстати, убрал эту строку

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

Documents(dlg.Name).Activate

и все прошло.
Если нетрудно, подскажи где почитать о

short-формы записи путей

[Хакер]

kminas
Мораль - если ты не встречался с чем-то, нефиг выпендриваться.

Прочитать об этом можно в любой книжке DOS->Windows переходных времён.

Создана для совместимости длинных windows-путей с форматом 8.3.

Папка Documents And Setting например приобретает имя Docume~1

[kminas]

Спасибо, исправлюсь, а, если ты такой продвинутый, подскажи
почему, если я с помощью этого кода открываю документ все нормально. А, если уже есть открытые документы, появляется еще одна копия программы, но пустая, без документа.

[Хакер]

Потому что ты два раза таким кодом создаёшь объект класса Word.Application.

А надо единожды, а потом у него вызывать все методы.

[kminas]

Да я в принципе это понимаю, но пробовал по-разному и пока не догоняю.

[burik]

При загрузке программы создаешь Word.Application, а потом его юзаешь.

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


Public WApp As Object
Private Sub Form_Load()
    Set WApp = CreateObject("Word.Application")
End Sub
Sub MySub()
    WApp.Visible = True
    ...
End Sub


[Хакер]

burik
Интересно, зачем у тебя WApp.Visible = True будет каждый раз делаться, а?

[kminas]

burik
Спасибо, идея понятна, Буду пробовать к моему случаю.

[kminas]

Спасибо всем. Решил немного по другому. Если хотите посмотрите здесь http://www.sql.ru/forum/actualthread.aspx?tid=541808

[kminas]

Извините. Этот вариант, как выяснился имел один недостаток. Копия все-ткаи образовывалась. Мне подсказали на другом форуме
Здесь http://forum.developing.ru/showthread.p ... #post53572

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

Public oapp As Object
Dim dlg As Object

Sub Макрос1()
    On Error Resume Next
    Set oapp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Err.Clear
        On Error GoTo 0
        Set oapp = CreateObject("Word.Application")
    End If
    oapp.Visible = True
    Set dlg = oapp.Dialogs(80) 'wdDialogFileOpen
    If dlg.Show = -1 Then
        oapp.Documents.Open Filename:=dlg.Name
    End If
End Sub

[Хакер]

kminas
Блин, я поражаюсь.

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

Dim pWord As Object

Sub Макрос1()
    Dim pDialog As Object
    If pWord Is Nothing Then Set pWord = CreateObject("Word.Application")
    pWord.Visible = True
    Set pDialog = pDialog.Dialogs(wdDialogFileOpen).Show
    If pDialog.Show = -1 Then pWord.Documents.Open Filename:=pDialog.Name
End Sub

[kminas]

Хакер
Спасибо, сегодня попробую!

[kminas]

Хакер Проверил.
При запуске твоего кода. Ругается на

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

.Show.

Пишет: несовпадение типов. Если его убрать - работает, но прога лезет в ранее открытый файл

[Хакер]

Ну, логику то надо включать хоть иногда. Разве не видно что там пробелы лишние навставлялись?


Код исправлен.

[kminas]

Извини, но я запускал без пробелов.

[kminas]

Хакер Запустил еще раз в новом варианте. Пишет нет объекта. Ошибка 91. Заменил

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

pDialog.Dialogs(wdDialogFileOpen).Show

на

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

pWord.Dialogs(wdDialogFileOpen)

и все заработало, за исключением одной мелочи с которой впрочем я и начинал эти долгие мучения - программа лезет в файл открытый первым, а в том коде, пока сбоев не обнаружил. Конечно, мне не нравится работать с On Error GoTo, но я еще мало что знаю и принимаю все, что проходит, а с открытием файлов пока у самого ничего не выходит