1.
Dim s
s = ShowDialogOpen
MsgBox s

2.
Есть команда RenameFile File, NewName

>NewName надо сформировать по образцу: "номер бухты" + "дата" + прежнее расширение файла.
sNewName = sBayNumber & Date() & ".docx"

Вывести в MsgBox, чтобы убедиться, что все правильно сформировалось.

3.
Есть команда CopyFile Source, Destination

4.
Выполнить sql-инструкцию UPDATE SET...

_________________
2B OR NOT 2B = TRUE