:: Visual Foxpro, Foxpro for DOS
Вывод в Word в несколько колонок
Аркадий
Автор

Сообщений: 252
Откуда: Санкт-Петербург
Дата регистрации: 30.11.2005
Здравствуйте!

Не выводил ли кто-нибудь отчёт в Word в несколько колонок? Что-то не получается с середины текста перед таблицей разбить страницу на две колонки, а потом после таблицы вернуть опять одну.

Макрос сначала такой:
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _
InsertBreak Type:=wdSectionBreakContinuous
Selection.Start = Selection.Start + 1
ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _
Type:=wdSectionBreakContinuous
With Selection.PageSetup.TextColumns
.SetCount NumColumns:=2
.EvenlySpaced = True
.LineBetween = False
.Width = CentimetersToPoints(7.62)
.Spacing = CentimetersToPoints(1.25)
End With
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.EscapeKey
End Sub
Sub Макрос1()
'
Потом такой
' Макрос1 Макрос
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
With ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument. _
Content.End).PageSetup.TextColumns
.SetCount NumColumns:=1
.EvenlySpaced = True
.LineBetween = False
.Width = CentimetersToPoints(16.5)
End With
Selection.TypeText Text:="Текст"
End Sub
Чтобы получилось, как в прилагаемом файле.
Ratings: 0 negative/0 positive
Re: Вывод в Word в несколько колонок
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
А что не получилось при выполнении макроса?
Ratings: 0 negative/0 positive
Re: Вывод в Word в несколько колонок
Аркадий
Автор

Сообщений: 252
Откуда: Санкт-Петербург
Дата регистрации: 30.11.2005
Сначала разрывы вставлялись куда попало, потом абзацы появлялись неведомо откуда, затем всё получилось
www.sql.ru
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 31 (Гостей: 31)

© 2000-2024 Fox Club 
Яндекс.Метрика