Работа с Word средствами VB (формирование таблиц на листе)

dev.Free · 15.10.2012, 17:02. **Показов** 5326. **Ответов** 8

Студворк — интернет-сервис помощи студентам

Привет всем! Такой вопрос, как заставить Word начертить таблицу, со столькими столбцами и строками которое к примеру заложено в выборе рекордсета, к примеру Data, как это можно организовать и соответственно туда впихнуть данные.

@Ципихович Эндрю · 15.10.2012, 19:44

я не знаю, что такое

Сообщение от inv.DS

заложено в выборе рекордсета, к примеру Data

но я знаю, что в Ворде есть магнитофон, его на запись, а код очень схож с ВБ

dev.Free · 15.10.2012, 19:53 **[ТС]**

Сообщение от Ципихович Эндрю

я не знаю, что такое

Visual Basic
1
2
Data1.RecordSource = "Select From ИМЯ_ТАБЛИЦЫ"
Data1.Refresh

Все что в наборе передать в MS Word, но каждой записи добавлять новую строку в таблице.

@Ципихович Эндрю · 15.10.2012, 20:08

Сообщение от Ципихович Эндрю

я не знаю, что такое

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

dev.Free · 15.10.2012, 21:34 **[ТС]**

Ранее: Выгрузка данных из базы в Word

Там пример как выгрузить данные в MS Word. 1 кнопка выгружает текущую позицию Data1, вторая весь набор записей то есть по циклу:

Visual Basic
1
For i = 1 To .RecodCount

Но, во втором случае, выгружаемые данные идут подряд без форматирования, то есть создания строки столбца для каждой записи.

Пример таблицы прилагаю.

@Catstail · 15.10.2012, 21:37

Задача распадается на две:

1) Как нарисовать таблицу
2) Как запихнуть туда данные

Все это иллюстрируется следующим кодом. Только надо установить ссылку на объектную библ. Word-а.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub new_tab()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdtab As Word.Table
 
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add
    Set wdtab = wdDoc.Tables.Add(wdDoc.Range, 10, 3)
 
    For i% = 1 To 10
        For j% = 1 To 3
            wdtab.Cell(i%, j%).Range.Text = CStr(i% * j%)
        Next j%
    Next i%
     
    wdDoc.SaveAs "c:\123.doc"
    wdDoc.Close
    wdApp.Quit
 
End Sub

dev.Free · 16.10.2012, 07:06 **[ТС]**

Catstail, интересно, а есть ли возможность сделать созданные границы таблицы расчерченными, в твоем примере границы не видимы.

@Ципихович Эндрю · 16.10.2012, 08:46

так а магнитофон зачем, нужно разобраться, что здесь

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
  ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With

отвечает за

Сообщение от inv.DS

сделать созданные границы таблицы расчерченными

@Catstail · 16.10.2012, 09:42

Уже ответил за меня Эндрю...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

dev.Free Заблокирован

	Работа с Word средствами VB (формирование таблиц на листе) 15.10.2012, 17:02. Показов 5326. Ответов 8 Метки нет (Все метки) Привет всем! Такой вопрос, как заставить Word начертить таблицу, со столькими столбцами и строками которое к примеру заложено в выборе рекордсета, к примеру Data, как это можно организовать и соответственно туда впихнуть данные. 0

dev.Free Заблокирован
	16.10.2012, 07:06 [ТС]
	Catstail, интересно, а есть ли возможность сделать созданные границы таблицы расчерченными, в твоем примере границы не видимы. 0

@Catstail Супер-модератор 38175 / 21110 / 4307 Регистрация: 12.02.2012 Сообщений: 34,712 Записей в блоге: 14
	16.10.2012, 09:42
	Уже ответил за меня Эндрю... 0