ila_iv_id566844132dnevnikru / Разработки для умных студентов на 5 / 665005-1 vrn / ila_iv_id566844132 dnevnik ru ростелеком / Sub СоздатьОтчетПрактики

Sub СоздатьОтчетПрактики()

Dim wordApp As Object

Dim wordDoc As Object

Dim para As Object

' Запускаем Word

Set wordApp = CreateObject("Word.Application")

wordApp.Visible = True

Set wordDoc = wordApp.Documents.Add

' Добавляем титульный лист

Set para = wordDoc.Content.Paragraphs.Add

para.Range.Text = "Отчет по преддипломной практике в ООО 'Бобровский лес'"

para.Range.Font.Bold = True

para.Range.Font.Size = 16

para.Range.ParagraphFormat.Alignment = 1

para.Range.InsertParagraphAfter

' Добавляем основные разделы

Dim sections As Variant

sections = Array( _

Array("Введение", "Преддипломная практика направлена на развитие профессиональных компетенций, изучение работы предприятия и анализ бизнес-процессов."), _

Array("Цели практики", "1. Ознакомление с деятельностью ООО 'Бобровский лес'" & vbCrLf & "2. Анализ бизнес-процессов" & vbCrLf & "3. Проектирование информационной системы"), _

Array("Задание на производственную практику", "Разработка прототипа системы учета продаж."), _

Array("Анализ предприятия", "Описание структуры компании, функций подразделений, бизнес-процессов."), _

Array("Описание используемых компонентов", "Характеристика оборудования, программного обеспечения, базы данных."), _

Array("Исходный код", "Основные SQL-запросы для работы информационной системы:" & vbCrLf & _

"CREATE TABLE Продажи (ID INT PRIMARY KEY, Дата DATE, Сумма DECIMAL(10,2));"), _

Array("Заключение", "Выводы по результатам работы, анализ эффективности внедрения решений."), _

Array("Список литературы", "Перлова О.Н., 'Соадминистрирование баз данных', 2018." & vbCrLf & _

"Федорова Г.Н., 'Разработка ПО отраслевой направленности', 2019.") _

)

' Добавляем разделы в документ

Dim i As Integer

For i = LBound(sections) To UBound(sections)

Set para = wordDoc.Content.Paragraphs.Add

para.Range.Text = sections(i)(0)

para.Range.Font.Bold = True

para.Range.Font.Size = 14

para.Range.InsertParagraphAfter

Set para = wordDoc.Content.Paragraphs.Add

para.Range.Text = sections(i)(1)

para.Range.Font.Size = 12

para.Range.InsertParagraphAfter

Next i

' Сохраняем документ

wordDoc.SaveAs2 Environ("USERPROFILE") & "\Documents\Отчет_Практика_Бобровский_лес.docx"

MsgBox "Документ создан и сохранен!", vbInformation, "Готово"

' Закрываем объекты

Set wordDoc = Nothing

Set wordApp = Nothing

End Sub