![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MS Word [D6, Win95/98]
Килилл © (2003-02-08 00:54:00)Прошу прощения, я всех уже заколебал, но так и не понял, как VB yf паскаль перевести. Например, как вот это объяснить компилятору (это запись макроса из двух действий: начать нумерованный список и ввести пару строк
извините, если много текста, но т.к. в VB я не очень то силен, боялся, что непоймете)
With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = "%1."
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0.63)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(1.27)
.TabPosition = CentimetersToPoints(1.27)
.ResetOnHigher = 0
.StartAt = 1
With .Font
.Bold = wdUndefined
.Italic = wdUndefined
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.Color = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = ""
End With
.LinkedStyle = ""
End With
ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
wdListApplyToWholeList, DefaultListBehavior:=wdWord9ListBehavior
Selection.TypeText Text:="t"
Selection.TypeParagraph
Selection.TypeText Text:="y"
Selection.TypeParagraph
Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
Кирил (2003-02-09 00:51:00) [1]А как работать с COM-серверами Word? Хотя бы первые несколько действий, дальше сам разберусь, я смышленый :)
vl_chel (2003-02-08 14:27:00) [2]Книга Елмановой COM+
Calm (2003-02-08 12:45:00) [3]Можно работать с COM-серверами Word.
У интерфейсов практически такие же методы как и в VB.
Кри Кри (2003-02-08 01:16:00) [4]Ща-ща, ща переведу.