С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/26: Рейтинг темы: голосов - 26, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 03.02.2008
Сообщений: 24
1

Word -> Различный Aligment (влево-вправо) для разных колонок или ячеек(cell) Word-таблицы?

03.02.2008, 15:53. Показов 4807. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Как пограммно из VBA при формирования документа сделать различный Aligment (влево-вправо-по центру)для различных колонок (Column) или ячеек-клеток(cell) Word-таблицы?
Выход в Интернет - связь хуже некуда
Буду благодарен за помощь по почте
А.Сенченко
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2008, 15:53
Ответы с готовыми решениями:

Перенос данных из Excel или таблицы Word в DataGridView простым копированием ячеек
Нигде не могу найти, как организовать перенос данных из Excel или таблицы Word в DataGridView...

Как объединить ячейки таблицы в Word, обращаясь к ним по свойству Cell (n, m)
Т.е. есть ячейки в таблице ActiveDocument.Tables(1).Cell(3,7) и ActiveDocument.Tables(1).Cell(4,7)...

Управлять шириной колонок таблицы Word из Excel
Таблица в документе Word создана. Содержит 17 колонок Первая должна быть шириной 150 пт...

Excel & Word: Передача данных из разных ячеек
Пара вопросов знатокам: Set WordObj = CreateObject("Word.Application") Set WordDoc =...

3
vladimir_v
21.02.2008, 18:53 2
/ql
/qr
/qc
user23
25.03.2008, 16:27 3
Visual Basic
1
2
3
4
5
6
Dim NewTable As Table
Set newTable=.Tables.Add(Параметры)
With newTable
.Rows.Aligment=wdAligmentRowCenter
.Columns(1).Width=100
End With
А как текст в ячейках алигнуть еще не знаю.
Узнаеш сообщи.
0 / 0 / 0
Регистрация: 03.02.2008
Сообщений: 24
26.03.2008, 11:18  [ТС] 4
Нашел такое решение
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim objWord As Word.Application
 Dim objDoc As Word.Document
 Dim objTable As Word.Table
 
 Set objWord = New Word.Application
 Set objDoc = objWord.Documents.Add
 
 objDoc.Paragraphs.Add ' Очень рекомендую каждое новый объект начинать _
                         с параграфа! Не знаю, как можно вывести две таблицы _
                         подряд не используя это!
 objDoc.Paragraphs(objDoc.Paragraphs.Count).Alignment = wdAlignParagraphLeft
 Dim pRows As Long, pColumns As Long
 pRows = 5
 pColumns = 3
 ' И соответственно, таблицу форматировать по текущему параграфу!
 Set objTable = objDoc.Tables.Add(objDoc.Paragraphs(objDoc.Paragraphs.Count).Range, pRows, pColumns)
 objTable.Cell(1, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
 objTable.Cell(1, 1).Range.Text = 'Center'
 objTable.Cell(1, 2).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
 objTable.Cell(1, 2).Range.Text = 'Right'
 objTable.Cell(1, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
 objTable.Cell(1, 3).Range.Text = 'Left'
И еще. Рекомендую никогда не использовать Selection. Могут быть неприятные проблемы, если у вас открыто несколько документов!
0
26.03.2008, 11:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2008, 11:18
Помогаю со студенческими работами здесь

Сложение ячеек таблицы в VB Word
Это задание: На листе Word строится таблица и заполняются ячейки с исходными данными. При нажатии...

Объединение ячеек таблицы Word
Привет всем!!! У меня есть такая таблица ------------------------------------------ ...

Word: объединение ячеек таблицы
С помощью макроса добавляю таблицу в TextBox на страницу. Дальше пытаюсь объединить ячейки. В...

Word: создание таблицы и заполнение ячеек
Привет всем! Это сново я! Помогите пожалуйста! Я создаю в Word таблицу и заполняю её ячейки вот так...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru