Всем спасибо. Решение найдено.

Всем привет. Имею функцию перевода именительного падежа в предложный. Как применить эту функцию в документе не знаю. Прошу помочь это реализовать. В одном элементе ввожу в данные в именительном падеже, в другом получаю результат в предложном. И если не затруднит, то в третьем элементе получить результат фамилия и инициалы в предложном падеже. Использование надстроек не предлагать. У меня Word 2016. Всем спасибо. Файл приложен в нём функция

Да ошибки я уже нашла. Надо в коде ещё исправить Documents, там n пропущено. Спасибо за науку.

С таким кодом

Код: (vb)

Application.DisplayAlerts = False  
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл  
Me.Save 'если надо сохранить изменения  
ActiveWorkbook.SaveAs Filename:="D:\Мои документы\Downloads\" & [F2].Value & ".xlsx", FileFormat _  
        :=xlOpenXMLWorkbook, CreateBackup:=False  
OpenPath = ThisWorkbook.Path = "D:\Мои документы\Downloads\"  
Application.DisplayAlerts = True  

на диске D всё работает нормально.
Но на диске С с таким кодом

Код: (vb)

Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="C:Users\Masha\Documets\Акт\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
OpenPath = ThisWorkbook.Path = "C:Users\Masha\Documets\Акт\"
Application.DisplayAlerts = True

  не работает. В чём может быть проблема ?

Вот с таким кодом работает правильно

Код: (vb)

Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="D:\Мои документы\Downloads\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
OpenPath = ThisWorkbook.Path = "D:\Мои документы\Downloads\"
Application.DisplayAlerts = True

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

На диске D создала папки Мои документы и в ней Downloads. Пробую так

Код: (vb)

Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
'ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & [F2].Value & ".xlsm"
ActiveWorkbook.SaveAs Filename:="D:\Мои документы\Downloads\" & [F2].Value & ".xlsm", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True

, Выдаёт ошибку в коде на строку

Код: (vb)

ActiveWorkbook.SaveAs Filename:="D:\Мои документы\Downloads\" & [F2].Value & ".xlsm", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False

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

Чтобы напечатать новый документ, создаю шаблон в котором только шапка, далее из шаблона создаю новый документ, сохраняю его в папке, где находится шаблон и далее вновь создаю новый документ и т.д. Можно конечно создать копию предыдущего документа удалить в нём всё лишне и напечатать новый. Для чего тогда шаблоны?

Попробовала на Windows 7 домашняя расширенная и Excel 7, проблема та же, сохраняет в "Документы", но сохраняет два файла один с датой и второй с прибавлением 1 к названию шаблона (если шаблон книга21, то сохраняет книга211) макросов в обоих книгах нет.

Код внутри шаблона, после сохранения нового файла кода VBA в нём нет. Сохраняется в папке "Документы". Windows 10.

Ваш файл вставила в "папка 1", которая находится в "мои документы", в этой папке ( "папка 1") запустила шаблон, ввела изменения в файле, закрыла, созданный файл, он сохранился в папке "мои документы" с именем даты. Excel у меня 2016.

sboy, огромное Вам спасибо за быстрый ответ. Всё работает хорошо, но сохраняет в папку "мои документы", а хотелось бы в папку где находится сам шаблон.

Всем привет. Имеется шаблон Excel (xltm), необходим макрос, на событие Workbook_BeforeClose, который сохраняет файл из шаблона в формате xlsx (без поддержки макросов) с именем из ячейки F2 в папку, в которой находится сам шаблон. Два дня рылась в инете, многое находила, но ничего нужного не нашла. Вся надежда на вас форумчане. Всем спасибо. Файл во вложении.

Короче, вот самый лучший вариант для меня.

Код: (vb)

Application.EnableEvents = False
For Each oCell In Range([B6], Cells(ActiveSheet.UsedRange.Rows.Count, "B")).Cells
    If Not IsEmpty(oCell) Then
        iCount = iCount + 1
        oCell.Previous = iCount
    Else: oCell.Previous.Clear
    End If
Next
Application.EnableEvents = True

- при удалении строки внутри заполненного диапазона пересчет нумерации происходит
- если нет данных в столбце "В" в какой-то из строк внутри заполненного диапазона, пересчет нумерации тоже происходит
Эти условия были в моем первом сообщении, где все это было сделано в VBA, но только формулой.
Окончательный результат в приложенном файле.
Всем спасибо. Удачного дня.

Спасибо, With ActiveSheet.UsedRange: End With помогло исправить ситуацию. Подскажите, что еще надо добавить в код, чтобы при удалении данных в столбце "В" в столбце "А" этой же строки нумерация пропадала и происходил пересчет нумерации в строках, где есть данные в столбце "В". Всем Спасибо. Результат предыдущей работы в Книге2.