Word как указать имя файла

Dialogs(wdDialogFileSaveAs)

akoks пишет:

Добрый день, подскажите пожалуйста: нужно чтобы при нажатии кнопки в форме вызывалось диалоговое окно «Сохранить как» с заданным именем файла. Вызвать окно «Сохранить как» можно, а как задать в нем «Имя файла» не знаю как, потому что такого свойства для окна нет. Или может это можно как-нибудь обойти?

Dialogs(wdDialogFileSaveAs)

Sub MyFileSave()
  With Dialogs(wdDialogFileSaveAs)
    .Name = "Name"
    .Show
  End With
End Sub

Попробуйте использовать такой макрос:

Sub MyFileSave()
  With Dialogs(wdDialogFileSaveAs)
    .Name = "Name"
    .Show
  End With
End Sub

ChangeFileOpenDirectory _
        "C:..."

Sub SaveAs()    
    With Dialogs(wdDialogFileSaveAs)
        .Name = "Name"
        .Format = wdFormatDocument
        .ChangeFileOpenDirectory "C:..."
        .Show
    End With
End Sub

Sub MyFileSave()
  With Dialogs(wdDialogFileSaveAs)
    .Name = "c:Name"
    .Show
  End With
End Sub

Alex_Gur пишет:

Если путь более длинный, от корня, то попробуйте записать его целиком в атрибут Name:

Sub MyFileSave()
  With Dialogs(wdDialogFileSaveAs)
    .Name = "c:Name"
    .Show
  End With
End Sub

Я проверил — у меня это работает.

.Name = Module2.Shifr & "_" & wdProp("Редакция")

akoks пишет:

Спасибо тоже работает, но опять загвоздка, Имя файла у меня собирается:

.Name = Module2.Shifr & "_" & wdProp("Редакция")

Как его задать в таком случае? Пробовал по всякому, не хочет

.Name = "c:" + "" + "Name"

 Module2.Shifr & "_" & wdProp("Редакция")

Alex_Gur пишет:

Проверьте, какое значение принимает выражение? :

 Module2.Shifr & "_" & wdProp("Редакция")

Очень вероятно, что оно содержит недопустимые символы. Если что, не могли бы Вы выложить значение этого выражения? Какие значения принимают у Вас Module2.Shifr и wdProp(«Редакция»)?

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:Documents and Settingsivanov..." & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

akoks пишет:

то Имя определяет, а путь нет

Alex_Gur пишет:

akoks пишет:

то Имя определяет, а путь нет

Выдает какое-нибудь сообщение типа: «отказано в доступе»?
Кстати, какая у Вас операционная система?

akoks пишет:

Нет, ничего не выдает, как-будто путь и не прописан.
ОС XP sp3

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:Documents and Settings" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Alex_Gur пишет:

А такое выполняет? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:Documents and Settings" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

И такое? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

akoks пишет:

Alex_Gur пишет:

А такое выполняет? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:Documents and Settings" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

И такое? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "C:" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Нет, имя определяет правильно, а путь не видит

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "D:" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Alex_Gur пишет:

А «D:» видит? :

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "D:" & Module2.Shifr & "_" & wdProp("Редакция") 
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = «C:» & «Name»
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Alex_Gur пишет:

И последняя попытка:

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = «C:» & «Name»
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Так путь виден?

akoks пишет:

Alex_Gur пишет:

И последняя попытка:

Sub SaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = «C:» & «Name»
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Так путь виден?

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

Alex_Gur пишет:

В таком случае могу только предложить выложить Ваш файл. Я могу протестировать его на своем Word’е.

Private Sub CommandButton2_Click()
    Set wdProp = ActiveDocument.CustomDocumentProperties
    SaveProp
    If wdProp("Редакция") > 0 Then NewMacros.TableRegistrationChanges   'Если Редакция больше 0, то выполняется вставка таблиц регистрации изменений
    Module2.Checks  'проверяет все флажки заданным условиям
    Module2.FamiliyaGIPa    'выполняет вставку фамилии ГИПа в основные надписи, выбранную или указанную в cmbGIPs
    Module2.Shifr   'Выполняет сборку шифра (Обозначение документа)
    Module2.SaveAs  'вызывает окно "Сохранить как", а Имя файла задает как: Shifr_Редакция
    UserForm1.hide
End Sub

Alex_Gur пишет:

Все-таки было бы лучше выложить сам документ.

Post’s attachments

AAA-00-Q.W.E.R-ПЗ.АЗ_0 тест.doc 199.5 Кб, 1 скачиваний с 2015-03-24 

You don’t have the permssions to download the attachments of this post.

akoks пишет:

Alex_Gur пишет:

Все-таки было бы лучше выложить сам документ.

Alex_Gur пишет:

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

akoks пишет:

Вчера мне подсказали, в чем дело, задача решена. Спасибо.

Alex_Gur пишет:

Поделитесь, пожалуйста, решением задачи.

Sub SaveAs()    'вызывает окно "Сохранить как" и использует шифр_редакция - как имя документа
    Set wdProp = ActiveDocument.CustomDocumentProperties
    strFileName = Module2.Shifr & "_" & wdProp("Редакция")
    With Dialogs(wdDialogFileSaveAs)
        .Name = strFileName 'задает имя документа - как собранный шифр и номер редакции
        .Format = wdFormatDocument
        .Show
    End With
End Sub

Function Shifr() 'сборка шифра (Обозначения документа) из значений полей "Комплекс"-"Том"-"РазделПД"."Марка"
    Set wdProp = ActiveDocument.CustomDocumentProperties    '? присваиваем переменной значения свойств активного документа
    Shifr = wdProp("Комплекс") & "-" & wdProp("Том №") & "-" & UserForm1.cmbSectionPD.Text & "." & UserForm1.cmbMark.Text    'задаем значение переменной сборки шифра
End Function

akoks пишет:

Подскажите еще пожалуйста, как отследить изменение Имени файла? Немного переделал код:

Sub SaveAs()    'вызывает окно "Сохранить как" и использует шифр_редакция - как имя документа
    Set wdProp = ActiveDocument.CustomDocumentProperties
    strFileName = Module2.Shifr & "_" & wdProp("Редакция")
    With Dialogs(wdDialogFileSaveAs)
        .Name = strFileName 'задает имя документа - как собранный шифр и номер редакции
        .Format = wdFormatDocument
        .Show
    End With
End Sub

сама функция Shifr:

Function Shifr() 'сборка шифра (Обозначения документа) из значений полей "Комплекс"-"Том"-"РазделПД"."Марка"
    Set wdProp = ActiveDocument.CustomDocumentProperties    '? присваиваем переменной значения свойств активного документа
    Shifr = wdProp("Комплекс") & "-" & wdProp("Том №") & "-" & UserForm1.cmbSectionPD.Text & "." & UserForm1.cmbMark.Text    'задаем значение переменной сборки шифра
End Function

Нужно, чтобы эта процедура вызывалась когда изменяется переменная strFileName ( например, когда задаются новые значения свойству «Редакция»), и Имя файла уже будет другим. Как это можно сделать? Или как задать условие изменения переменной?

Alex_Gur пишет:

Я бы создал глобальную переменную и хранил предыдущее значение имени файла в этой переменной.
Перед выводом на экран окна SaveAs текущее имя файла сравнивается со значением этой переменной.

If ActiveDocument.Name <> strFileName & ".doc" Then Module2.SaveAs

akoks пишет:

Alex_Gur пишет:

Я бы создал глобальную переменную и хранил предыдущее значение имени файла в этой переменной.
Перед выводом на экран окна SaveAs текущее имя файла сравнивается со значением этой переменной.

Спасибо, обдумывал как реализовать ваш совет и нашел такое свойство (или как правильно? незнаю) ActiveDocument.Name. Получилось создать такое условие:

If ActiveDocument.Name <> strFileName & ".doc" Then Module2.SaveAs

Public Sub NameAndPath()
    MsgBox ActiveDocument.Name
    MsgBox ActiveDocument.Path
End Sub

    ChDrive Left(CurrentProject.Path, 1)
    ChDir CurrentProject.Path & "версии"

‘заголовок диалогового окна
        .Title = «Возвращение к старой версии»

        ‘название кнопки выбора
        .ButtonName = «Выбрать»

        ‘фильтр
        .Filters.Clear
        .Filters.Add «сохранённые версии», «*.accdb*», 1

        ‘представление (список, эскизы, таблица и т.п.)
        .InitialView = msoFileDialogViewList ‘список

        ‘разрешение выбирать несколько файлов
        .AllowMultiSelect = False