АВТОЗАПОЛНЕНИЕ WORD'а из EXCEL'я

Аватар автора
Чистота без лишних слов и забот
Полезные команды: Private Sub CommandButton1_Click() diapason.Hide 'Loading.Show start_save = CInt(TextBox1.Value) stop_save = CInt(TextBox2.Value) If start_save = 0 Or stop_save = 0 Then MsgBox "Вы не ввели начальное значение.", vbCritical Exit Sub ElseIf stop_save = 0 Then MsgBox "Вы не вели конечное значение. Формируем письма до последнего возможного значения.", vbInformationв stop_save = ActiveDocument.MailMerge.DataSource.RecordCount End If &= start_save - stop_save &= 300 / count End Sub &формирования писем (начало, конец) Public start_save As Integer, stop_save As Integer Sub SaveAsFileName() Dim FileName As String Dim iPath As String &Директория текущего файла Dim name As String Dim name_of_main_dir As String &Название папки Dim new_book_name As String &Название новой книги Application.ScreenUpdating = False &Запрашиваем название папки name = InputBox("Как назвать папку для сохранения книг EXEL?") If name = "" Then MsgBox "Вы не указали название папки", vbCritical, "Ошибка" Exit Sub End If &Создаём главную папку, где будут храниться файлы iPath = ActiveDocument.Path name_of_main_dir = iPath & "" & name If Dir(name_of_main_dir, vbDirectory) = "" Then MkDir name_of_main_dir Else: MsgBox "Папка с таким названием уже существует! - " & name, vbCritical, "Ошибка" Exit Sub End If &Спрашиваем с какого файла начинать создавать WORD файлы diapason.Show With...

0/0


0/0

0/0

0/0