Выгрузка представления в Word. Как?

fedotxxl

Well-known member
09.11.2005
614
0
#1
Подскажите, пожалуйста
Хочу сделать следующим образом: опеределить вид одной строки (не программным образом, а в начальном вордовском шаблоне). После этого на каждый документ копировать строку и заполнять нужным мне образом. Как это сделать?
Простите за глупый вопрос, т.к. в программировании в Word'e не силен...
 

fedotxxl

Well-known member
09.11.2005
614
0
#3
Для: Morpheus
Ну первая ячейка красная, вторая - 2см, третья с выделенным шрифтом и т.д.

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

morpheus

скриптописец
07.08.2006
3 915
1
#4
Пользуйтесь закладками bookmark .... я так обозначал начало таблицы и т.д.
 

yerke

Well-known member
28.08.2007
392
0
#5
<!--QuoteBegin-fedotxxl+28:01:2008, 16:21 -->
<span class="vbquote">(fedotxxl @ 28:01:2008, 16:21 )</span><!--QuoteEBegin-->Быстренько пробежался по водовскому хелпу... мне кажется, что самая сложная проблема будет получить объект таблицы. Его можно найти только по индексу? Но откуда я знаю, будет ли моя таблица первой или десятой?


[snapback]95320" rel="nofollow" target="_blank[/snapback]​
[/quote]
если вы имеете ввиду таблицы ворда
то их можно создать так
Код:
	With wdApp.Application.Selection
'=MAIN TABLE
Set wdTable = wdApp.ActiveDocument.Tables.Add(.Range, 15, 8)	
wdTable.Borders.OutsideLineStyle = 1
wdTable.Borders.InsideLineStyle = 1
wdTable.Rows.Alignment = 1 '=wdAlignRowCenter	
wdTable.Columns(1).Width=wdApp.InchesToPoints(0.45)		
wdTable.Columns(2).Width=wdApp.InchesToPoints(0.45)		

'=и так даллее
end with
с объектом wdTable можно делать все что вам угодно
менять ширину столбцов
объединять ячейки
закрашивать их и так далее