1

Тема: Код на разное имя файла

Создала форму на VBA, где пользователь должен указать имя документа (все документы лежат по одному пути, но имена разные). Хочу сделать, чтоб указав имя документа, открывался этот документ.

Dim n As String
Dim name As String

n = name_doc.Text

    ChangeFileOpenDirectory "C:\IM\IMWork\"
    Documents.Open FileName:="n.doc", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""


но переменную в пути VBA не понимает, подскажите, как корректней это сделать?

2

Re: Код на разное имя файла

Вот макрос, который у меня работает корректно:

Public Sub Open1()
    Dim n As String
    Dim name As String

    n = "name_doc.Text"

    ChangeFileOpenDirectory "C:\IM\IMWork\"
    Documents.Open filename:=n + ".doc", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub

В папке C:\IM\IMWork\ обязательно должен быть файл с именем name_doc.Text.doc.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.