MS Word

← →
Килилл (2003-02-08 00:54) [0]

Прошу прощения, я всех уже заколебал, но так и не понял, как 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-08 01:16) [1]

Ща-ща, ща переведу.

← →
Calm © (2003-02-08 12:45) [2]

Можно работать с COM-серверами Word.
У интерфейсов практически такие же методы как и в VB.

← →
vl_chel © (2003-02-08 14:27) [3]

Книга Елмановой COM+

← →
Кирил (2003-02-09 00:51) [4]

А как работать с COM-серверами Word? Хотя бы первые несколько действий, дальше сам разберусь, я смышленый :)

MS Word Найти похожие ветки