VBA
без разницы
договорная
Для работы. Объяснить синтаксис приведенного ниже макроса (вставляет фото из папки в таблицу ворд). 'Выбор файла Sub Фото таблицей() With Application.FileDialog(msoFileDialogFilePicker) .Title = "Выбор фотографий" .Filters.Add "Изображения", "*.jpg; *.jpeg" .AllowMultiSelect = True If .Show = -1 Then InsertPhotos .SelectedItems End If End With End Sub 'Вставка фотографий Sub InsertPhotos(ByVal items As Variant) Dim fileName As Variant Dim counter As Integer, row As Long, col As Long counter = 1: row = 1: col = 1 Dim oTbl As Table Dim pic As InlineShape 'Параметры страницы With ActiveDocument.PageSetup End With 'Таблица с невидимыми границами для размещения фотографий Set oTbl = ActiveDocument.Tables.Add(Selection.Range, 2, 2) oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter oTbl.Range.ParagraphFormat.SpaceAfter = 3 oTbl.Range.Font.Size = 8 FormatTableRow oTbl, row 'Перебор выбранных файлов For Each fileName In items If (counter > 2) And (counter Mod 2 <> 0) Then oTbl.Rows.Add oTbl.Rows.Add col = 1 row = row + 2 FormatTableRow oTbl, row End If 'Вставка изображения Set pic = oTbl.Cell(row, col).Range.InlineShapes.AddPicture(fileName) With pic .Width = CentimetersToPoints(8) .Height = CentimetersToPoints(6) With .Line .Style = msoLineThinThin .ForeColor.TintAndShade = 1 .Weight = 0.5 .DashStyle = msoLineSolid End With End With 'Подпись к изображению oTbl.Cell(row + 1, col).Range.Text = "Ôîòî ¹" + CStr(counter) col = col + 1 counter = counter + 1 DoEvents Next End Sub 'Форматирование строки для фотографий Sub FormatTableRow(oTbl As Table, row As Long) With oTbl.Rows(row) .HeightRule = wdRowHeightAtLeast .Height = 0 .Range.ParagraphFormat.SpaceAfter = 0 End With End Sub.
2021-12-19
Откликнуться