Язык WordBasic - практический подход

Оператор ViewBorderToolbar


 
Пример макрокоманды, активно использующей закладки
Sub MAIN
If Len(Selection$()) = 1 Then
EditGoTo .Destination = "\Para"
EndIf
ToolsBulletsNumbers .Type = 0, .Replace = 1, .Remove
InsertBookmark .Name = "bulletselection"
CharLeft 1
n = CmpBookmarks("\Sel", "bulletselection")
While n = 8 Or n = 6
CharRight 1, 1
If Asc(Selection$()) = 9 Then


EditClear
Else
CharLeft 1
EndIf
Insert "X"
CharLeft
ToolsBulletListDefault EditClear
EndOfLine
n = CmpBookmarks("\Sel", "\EndOfDoc")
If n <> 0 Then
ParaDown
StartOfLine
n = CmpBookmarks("\Sel", "bulletselection")
EndIf
Wend
EditGoTo .Destination = "bulletselection"
InsertBookmark .Name = "bulletselection", .Delete
End Sub
 



Содержание раздела