Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/50: Рейтинг темы: голосов - 50, средняя оценка - 4.54
Ципихович Эндрю
1410 / 320 / 28
Регистрация: 10.04.2009
Сообщений: 4,991
1

Создать таблицу в Word с определенным количеством строк и столбцов

13.02.2012, 19:03. Просмотров 9458. Ответов 4
Метки нет (Все метки)

Здравствуйте, как сделать??
ответ очевидный
Visual Basic
1
2
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1
    ActiveDocument.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(21.2)
но это не, получается как в приложенном файле таблица № 1, как сделать как таблицу № 2 в этом же файле? и сразу как если разбивать строку на ячейки указать нужную мне их ширину?, спасибо

а вот и файл
0
Вложения
Тип файла: doc 21,2.doc (24.5 Кб, 139 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2012, 19:03
Ответы с готовыми решениями:

Из исходной таблицы в n строк и 6 столбцов нужно сделать таблицу-результат из кучи строк и 6 столбцов
Добрый вечер, учусь в универcитете, начал изучать макросы и подвернулась...

Выделение нескольких столбцов (с переменным количеством строк)
Добрый день, Коллеги. Мне нужно написать макрос, который бы копировал...

Как преобразовать список в таблицу (с плавающим количеством строк)?
Приветсвтую, Есть список страниц сайта с результатом проверки на уникальность....

Сгенерировать таблицу из 3 столбцов (количество строк указывает пользователь)
Создание на листе, ука-занном пользователем, таблицы методом копирования...

Как вставить сразу несколько строк в таблицу Word
Здравствуйте. Подскажите, можно ли вставить сразу несколько строк в таблицу...

4
Alex19
10 / 10 / 0
Регистрация: 27.07.2011
Сообщений: 38
14.02.2012, 11:49 2
Кусок кода аксесс, создающий таблицу в документе word, он должен быть выполним и в самом word, может быть с некоторымы отличиями.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Compare Database
Option Explicit
 
Dim app As Word.Application
 
' здесь было объявление рекордсета  rsr
 With app
               With .Selection
               .Goto What:=wdGoToBookmark, Name:="Таблица"
               .Select
             
     
            .Documents(1).Tables.Add Range:=.Selection.Range, NumRows:=i + 1, NumColumns:= _
            5, DefaultTableBehavior:=wdWord9TableBehavior ', AutoFitBehavior:= _
 
              
              ' обязательно надо ставить app.CentimetersToPoints, иначе будут глюки СТРАШНЫЕ!!!!
            app.Documents(1).Tables(1).Columns(1).PreferredWidth = app.CentimetersToPoints(1.3)
            app.Documents(1).Tables(1).Columns(2).PreferredWidth = app.CentimetersToPoints(8)
            app.Documents(1).Tables(1).Columns(3).PreferredWidth = app.CentimetersToPoints(2)
            app.Documents(1).Tables(1).Columns(4).PreferredWidth = app.CentimetersToPoints(3)
            app.Documents(1).Tables(1).Columns(5).PreferredWidth = app.CentimetersToPoints(3)
           
            'Шапка
         
        .Documents(1).Tables(1).Cell(1, 1).Range.Font.Size = 8
        .Documents(1).Tables(1).Cell(1, 1).Range.Text = "№ п/п"
        .Documents(1).Tables(1).Cell(1, 2).Range.Text = "Наименование"
        .Documents(1).Tables(1).Cell(1, 3).Range.Text = "Кол-во"
        .Documents(1).Tables(1).Cell(1, 4).Range.Text = "Цена"
        .Documents(1).Tables(1).Cell(1, 5).Range.Text = "Сумма"
            
            
         For i = 2 To i + 1
        .Documents(1).Tables(1).Cell(i, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Documents(1).Tables(1).Cell(i, 1).Range.Text = i - 1
        .Documents(1).Tables(1).Cell(i, 2).Range.Text = rsr(2)
        .Documents(1).Tables(1).Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Documents(1).Tables(1).Cell(i, 3).Range.Text = rsr(3)
        .Documents(1).Tables(1).Cell(i, 4).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Documents(1).Tables(1).Cell(i, 4).Range.Text = Format$(rsr(4), "### ###.00")
        .Documents(1).Tables(1).Cell(i, 5).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
        .Documents(1).Tables(1).Cell(i, 5).Range.Text = Format$(rsr(5), "### ###.00")
        rsr.MoveNext
        Next
        
      End With
0
Ципихович Эндрю
1410 / 320 / 28
Регистрация: 10.04.2009
Сообщений: 4,991
14.02.2012, 20:57  [ТС] 3
увы, не то
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
как сделать как таблицу № 2 в приложенном файле?
0
Ципихович Эндрю
1410 / 320 / 28
Регистрация: 10.04.2009
Сообщений: 4,991
19.02.2012, 15:00  [ТС] 4
сорри, отсутствовал
есть приложенный файл
в нём есть таблица №2, правдв она с одной строки, но всё же таблица
делал её вручную, как программно создать такую же???
0
Busine2012
1292 / 394 / 22
Регистрация: 21.10.2011
Сообщений: 1,285
20.02.2012, 18:40 5
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Procedure1()
    Dim oTable As Word.Table
    Set oTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
        NumRows:=1, NumColumns:=1)
    With oTable
        .Rows.LeftIndent = CentimetersToPoints(-2.89)
        .PreferredWidth = CentimetersToPoints(21.2)
        With .Borders
            .OutsideLineStyle = wdLineStyleSingle
            .OutsideLineWidth = wdLineWidth050pt
            .OutsideColor = wdColorPink
       End With
    End With
End Sub
1
20.02.2012, 18:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2012, 18:40

Как с помощью макроса определить в тексте таблицу, и узнать количество строк/столбцов?
как с помощью макроса определить в тексте таблицу и узнать...количество...

Создать таблицу в нужном месте файла word
У меня есть вордовский файл с содержащейся в нем таблицей. Мне необходимо...

Создать таблицу в Word и заполнить её данными из массива
Добрый день, товарищи! Возникла задача - не могу решить.. Прошу помощи.. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru