Всем доброго дня.
Устал искать по форумам и с макросами не получается.
Вот код файл приложен в архиве.
Смысл кода он создает вордовский документ и добавляет туда таблицу.
Есть 3 вопроса:
1) нужно, выделив, конкретный столбец таблицы в ворде отформатировать, поменяв шрифт и ориентацию
нашел как выделить столбец m.loDoc.Tables(1).Columns(4).Select , а вот как отформатировать не работают коды по примеру макросов и с форумов.........? (нашел как каждую ячейку в таблице отформатировать(код тут же есть закомменторованный), но тогда выполнение кода еще больше по времени увеличивается, вижу выход изначально отформатировать столбец, вот только как...)

2) как можно ускорить выполнение данного кода, уже очень долго заполняется вордовский документ, особенно ворд версии 2013, а вот 2003 очень быстро его создает?

3) делаю переход на следующую строку (или вставку ее) через
.InsertParagraphAfter()
.InsertParagraphAfter()
в разных на разных компах , пока не проверял в разных ли версиях ворда, но выдает то одну строчку, то две, хотя по факту должен две выдавать.......



#INCLUDE msWord.h
#DEFINE True .T.
#DEFINE False .F.
* Создаем объект Word
LOCAL loWord
loWord=CREATEOBJECT('Word.Application')
* Сразу делаем его видимым для отладки
loWord.Visible=.T.

* Создаем в нем новый документ
LOCAL loDoc
loDoc = m.loWord.Documents.Add()

* альбомная ориентация
* m.loDoc.PageSetup.Orientation = wdOrientLandscape

* поля страницы
m.loDoc.PageSetup.TopMargin=13.4
m.loDoc.PageSetup.BottomMargin=28.3
m.loDoc.PageSetup.LeftMargin=28.3
m.loDoc.PageSetup.RightMargin=28.3

* добавляем в документ нужные строки с их форматированием
LOCAL oRange
oRange = m.loDoc.Range()
oRange.Collapse(wdCollapseStart)
WITH oRange
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.InsertAfter('ЗАО "Инвестгрупп" Ф/К 0200322523523523')
.Font.Size = 8
.Font.Name = "Courier New"
.MoveEnd(wdParagraph,1)
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertParagraphAfter()
.InsertParagraphAfter()
.InsertAfter('Накладная на отгрузку № ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('123456')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertAfter(' Дата отгрузки ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('12.04.2016')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertAfter(' года.')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Collapse(wdCollapseEnd)
.InsertParagraphAfter()
.InsertParagraphAfter()
.Font.Size = 6
.Font.Name = "Courier New"
.Collapse(wdCollapseEnd)
.InsertAfter(' С участка ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('ЗАО "ТИРАЭТ" 1СКЛАД ТИРАСПОЛЬ ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertAfter(' По счету/заказу ')
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('987654')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Collapse(wdCollapseEnd)
.InsertParagraphAfter()
.InsertParagraphAfter()
.Font.Size = 6
.Font.Name = "Courier New"
.Collapse(wdCollapseEnd)
.InsertAfter(' Покупатель ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('ПРИДНЕСТРОВСКИЙ СБЕРБАНК')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.Bold = .T.
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Collapse(wdCollapseEnd)
.InsertParagraphAfter()
.InsertParagraphAfter()
.Font.Size = 6
.Font.Name = "Courier New"
.Collapse(wdCollapseEnd)
.InsertAfter(' Получил ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('Горун Е.В. ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertAfter('Доверенность ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('17 ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertAfter(' от ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('15.04.2016')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertAfter(' г.')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.Bold = .T.
.Collapse(wdCollapseEnd)
.Bold = .T.
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Collapse(wdCollapseEnd)
.InsertParagraphAfter()
.InsertParagraphAfter()
.Font.Size = 6
.Font.Name = "Courier New"
.Collapse(wdCollapseEnd)
ENDwith


* Создаем в этом документе таблицу
* Сначала определеяем место, куда будет вставлена таблица
* Теперь собственно создание таблицы из 5 столбцов и X строк

LOCAL loTable
loTable = m.loDoc.Tables.Add(m.oRange,131,5,1)

* формируем изначальный шрифт таблицы
m.loTable.Select
m.loTable.Range.Font.Name = "Courier New"
m.loTable.Range.Font.Size = 10
m.loTable.Range.Bold = .T.


* выделяем столбец таблицы
m.loDoc.Tables(1).Columns(4).Select

********** КАК СДЕЛАТЬ ФОРМАТИРОВАНИЕ ВСЕГО СТОЛБЦА НУЖНЫМ МНЕ ШРИФТОМ И ПО ЦЕНТРУ?????????
****** ВСЕ НИЖНИЕ ВАРИАНТЫ ПЕРЕПРОБЫВАЛ - НЕРАБОТАЮТ
*loDoc.Selection.ParagraphFormat.Alignment =1
*Selection.ParagraphFormat.Alignment =1
*m.loTable.Columns(4).Font.Size = 10



* Задаю ширину высоту строк и столбцов
*m.loTable.Rows(1).ParagraphFormat.Alignment = wdAlignParagraphCenter
m.loTable.Rows(1).SetHeight(m.loWord.CentimetersToPoints(0.9),wdAdjustNone)
m.loTable.Rows(1).Cells.VerticalAlignment = wdCellAlignVerticalCenter
m.loTable.Columns(1).SetWidth(m.loWord.CentimetersToPoints(12),wdAdjustNone)
m.loTable.Columns(2).SetWidth(m.loWord.CentimetersToPoints(1.1),wdAdjustNone)
m.loTable.Columns(3).SetWidth(m.loWord.CentimetersToPoints(2),wdAdjustNone)
m.loTable.Columns(4).SetWidth(m.loWord.CentimetersToPoints(1.4),wdAdjustNone)
m.loTable.Columns(5).SetWidth(m.loWord.CentimetersToPoints(2.3),wdAdjustNone)
m.loTable.Cell(1,1).Range.InsertAfter("Наименование продукции, товаров, комплектующих")
m.loTable.Cell(1,1).Range.Font.Size = 10
m.loTable.Cell(1,1).Range.Font.Name = "Courier New"
m.loTable.Cell(1,1).Range.Bold = .F.
m.loTable.Cell(1,1).Range.ParagraphFormat.Alignment = 1
m.loTable.Cell(1,2).Range.InsertAfter("Един.")
m.loTable.Cell(1,2).Range.Font.Size = 10
m.loTable.Cell(1,2).Range.Font.Name = "Courier New"
m.loTable.Cell(1,2).Range.Bold = .F.
m.loTable.Cell(1,2).Range.ParagraphFormat.Alignment = 1
m.loTable.Cell(1,3).Range.InsertAfter("Цена")
m.loTable.Cell(1,3).Range.Font.Size = 10
m.loTable.Cell(1,3).Range.Font.Name = "Courier New"
m.loTable.Cell(1,3).Range.Bold = .F.
m.loTable.Cell(1,3).Range.ParagraphFormat.Alignment = 1
m.loTable.Cell(1,4).Range.InsertAfter("К-во")
m.loTable.Cell(1,4).Range.Font.Size = 10
m.loTable.Cell(1,4).Range.Font.Name = "Courier New"
m.loTable.Cell(1,4).Range.Bold = .F.
m.loTable.Cell(1,4).Range.ParagraphFormat.Alignment = 1
m.loTable.Cell(1,5).Range.InsertAfter("Стоимость")
m.loTable.Cell(1,5).Range.Font.Size = 10
m.loTable.Cell(1,5).Range.Font.Name = "Courier New"
m.loTable.Cell(1,5).Range.Bold = .F.
m.loTable.Cell(1,5).Range.ParagraphFormat.Alignment = 1



USE dannie IN 0
j=1
SCAN
j=j+1
*IF j<=20 THEN
m.loTable.Cell(j,1).Range.InsertAfter(dannie.naimen)
*!* m.loTable.Cell(j,1).Range.Font.Size = 10
*!* m.loTable.Cell(j,1).Range.Font.Name = "Courier New"
*!* m.loTable.Cell(j,1).Range.Bold = .F.
*!* m.loTable.Cell(j,1).Range.ParagraphFormat.Alignment = 0
m.loTable.Cell(j,2).Range.InsertAfter(dannie.izm)
*!* m.loTable.Cell(j,2).Range.Font.Size = 10
*!* m.loTable.Cell(j,2).Range.Font.Name = "Courier New"
*!* m.loTable.Cell(j,2).Range.Bold = .F.
*!* m.loTable.Cell(j,2).Range.ParagraphFormat.Alignment = 1
m.loTable.Cell(j,3).Range.InsertAfter(dannie.cena)
*!* m.loTable.Cell(j,3).Range.Font.Size = 10
*!* m.loTable.Cell(j,3).Range.Font.Name = "Courier New"
*!* m.loTable.Cell(j,3).Range.Bold = .F.
*!* m.loTable.Cell(j,3).Range.ParagraphFormat.Alignment = 2
m.loTable.Cell(j,4).Range.InsertAfter(dannie.kolvo)
*!* m.loTable.Cell(j,4).Range.Font.Size = 10
*!* m.loTable.Cell(j,4).Range.Font.Name = "Courier New"
*!* m.loTable.Cell(j,4).Range.Bold = .F.
*!* m.loTable.Cell(j,4).Range.ParagraphFormat.Alignment = 1
m.loTable.Cell(j,5).Range.InsertAfter(dannie.cena*dannie.kolvo)
*!* m.loTable.Cell(j,5).Range.Font.Size = 10
*!* m.loTable.Cell(j,5).Range.Font.Name = "Courier New"
*!* m.loTable.Cell(j,5).Range.Bold = .F.
*!* m.loTable.Cell(j,5).Range.ParagraphFormat.Alignment = 2
*ENDIF
ENDSCAN


oRange = loTable.Range
oRange.Collapse(wdCollapseEnd) && Move insertion point beyond table
WITH oRange

.Collapse(wdCollapseEnd)
*.InsertParagraphAfter()
.InsertParagraphAfter()
.Font.Size = 6
.Font.Name = "Courier New"
.Collapse(wdCollapseEnd)
.InsertAfter('Итого по документу ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
lnSumma=162261.83
.InsertAfter(ALLTRIM(STR(lnSumma,20,2))+' ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)




.InsertAfter('Сумма прописью : ')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
LOCAL money


lcRubl=GetStrMoney(int(lnSumma),"рубль","рубля","рублей")
lcRubl=UPPER(SUBSTR(lcRubl,1,1))+SUBSTR(lcRubl,2)

lnKop = lnSumma*100-int(lnSumma)*100
lcKop=GetStrMoney(lnKop,"копейка","копейки","копеек",.T.)
lcSumma = ALLTRIM(lcRubl+" "+ALLTRIM(STR(lnSumma*100-int(lnSumma)*100))+" "+SUBSTR(lcKop,RAT(" ",lcKop)+1)) IF lnSumma=INT(lnSumma)then
lcSumma=lcSumma+" 00 копеек"
ENDIF
.InsertAfter(lcSumma)
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.Bold = .T.
.ParagraphFormat.Alignment = wdAlignParagraphLeft


.InsertParagraphAfter()
.InsertParagraphAfter()
.InsertAfter('Разрешил _________/')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertAfter('ГОРУН ЕВГЕНИЙ'+space(30))
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .T.
.Collapse(wdCollapseEnd)
.InsertAfter('Получил _____________')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)
.InsertParagraphAfter()
.InsertParagraphAfter()
.InsertParagraphAfter()
.InsertAfter('Отпустил _________/')
.Font.Size = 10
.Font.Name = "Courier New"
.Bold = .F.
.Collapse(wdCollapseEnd)

ENDWITH
SELECT dannie
USE
RELEASE ALL
QUIT

правильный проходящий.,

как я уже писал это я пробовал данных код просто не работает, а даже выдает ошибку

with m.loDoc.Tables(1).Columns(4)
.Font.Size = 10
.ParagraphFormat.Alignment =1
endwith

еще пробовал с этим экспериментировать, тоже ничего
*loDoc.Selection.ParagraphFormat.Alignment =1
*Selection.ParagraphFormat.Alignment =1
*m.loTable.Columns(4).Font.Size = 10

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

T1gRa_NT,
в дальнейшем так и сделаю для ускорения, думал есть еще более шустрый механизм.
а вот Selection пробовал не работает..... приведите пример конкретно работающего кода на моем примере.....

правильный проходящий.,
если честно я так и не увидел кода, который форматирует мне целиком столбец с данными по центру или по шрифту.....
пытался опять таки в этот код добавить .Rows(1).Cells.VerticalAlignment = wdCellAlignVerticalCenter
по прежнему выдает ошибку
loDoc.Tables(1).Columns(4).Select
With loWord.Selection.Range
.Rows(1).SetHeight(m.loWord.CentimetersToPoints(0.9),wdAdjustNone)
.Rows(1).Cells.VerticalAlignment = wdCellAlignVerticalCenter

и пропал в нужных местах шрифт Courier New, который закомментили.....

правильный проходящий.,
просто основной мой вопрос был как сделать форматирование в конкретном столбце

правильный проходящий.,
файл прилагаю вордовский может у нас как то по разному выводится, у меня почему то Calibri (Основной текст) меж строчек...

правильный проходящий.,
вижу форматирование строки, но вот например как мне в 4 столбце столбце сделать весь столбец по центру и другим шрифтом???

правильный проходящий.,

да я это все понимаю, я не увидел кода который форматирует конкретной взятый заполненный столбец например по центру и нужным шрифтом..... как это сделать , как строку я знаю, а как столбец ?

правильный проходящий.,
и что тут такого я пробовал делать так же как строку у меня не работает, ниже привел пример как пробовал
loDoc.Tables(1).Columns(4).Select
With loWord.Selection.Range
.Font.Name = "Arial"
.Font.Size = 10
.VerticalAlignment = wdCellAlignVerticalCenter
Endwith

можно конкретику написать на примере 4 столбца сделать другим шрифтом и отформатировать по центру текст

правильный проходящий.,

или вот это тоже не работает .Columns(1).Cells.ParagraphFormat.Alignment = 1

ПЕНСИОНЕРКА,

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

ПЕНСИОНЕРКА,

это все конечно отлично, но я так и не получил ответ на свой вопрос, как сделать то что я хочу.....

вот пример того как отформатировать конкретную ячейку таблицы в ворд
loTable.Cell(j,2).Range.Font.Size = 10
loTable.Cell(j,2).Range.Font.Name = "Courier New"
loTable.Cell(j,2).Range.Bold = .F.
loTable.Cell(j,2).Range.ParagraphFormat.Alignment = 1

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

правильный проходящий.,

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