home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
scr-htm.zip
/
MACROS.ZIP
/
HTMLAPAR
(
.txt
)
< prev
next >
Wrap
DeScribe Document
|
1995-11-12
|
24KB
|
130 lines
DeScribe Copyright DeScribe, Inc., 1988, 1989
Letter
<none>
Env24
<none>
Env25
BrotherH
BrotherH
LASERJET
Brother HL-630/631
Brother HL-630/631
Letter
Letter
Info 1
Info 2
Info 3
Info 4
Document
Roman
okman
StickyNote
Helvetica
portional
Bulleted List
Numbered List
.Hanging indent
1/2 inch over
1 inch over
Indented
paras
Bibliography
border
quote
ITC Bookman
Heading One
Helvetica
portional
Heading Three
Heading Four
Heading Two
ocument
Roman
okman
Frame 2
Frame 2
!============================================================
! Scribe-HTML 0.9
!============================================================
! Copyright (c) 1995 by Mike Sosteric
!============================================================
! Scribe-HTML 0.9
!============================================================
VAR paragraph
VAR NumberParagraph
VAR Test
VAR Counter
MACRO HTMLAPAR
Set InsertMode to True
Set IncludeCancelButton to False
GET
Should I prepare paragraphs for numbering?[yes/no]
tostring NumberParagraph
If NumberParagraph =
Then
set NumberParagraph to
<strong>(XXXX)</strong>
Set NumberParagraph to
End If
beep beep beep
query
Please Make Sure the Cursor is placed in a paragraph
pause 10
set paragraph to styleatcursor
CursorHome
Repeat
If StyleAtCursor = paragraph Then
set CursorColumn to 1
put NumberParagraph
ParagraphDown
CursorUp
CursorEndLine
put
ParagraphDown
CursorRight
ParagraphDown
End If
Exit When EndofFrame
End Repeat
CursorHome
! Number Paragraphs
If NumberParagraph =
Then
CursorHome
Set Counter to 1
REPEAT
SearchClear
SET SearchSearch1 TO "XXXX"
SearchForward
Exit When DefinedBlock <> True
PUT Counter
Set Counter to Counter+1
END REPEAT
End If
END MACRO
Page:
Page:
DeScribe Glossary
Create date
Create time
Document name
File name
Pages
Pages (Alphabetic lower case)
Pages (Alphabetic upper case)
Pages (Roman lower case)
Pages (Roman upper case)
Print date
Print time
Revisions
Save date
Save time
November 3, 1995
8:44 A.M.
HTMLAPAR
C:\DeScribe\Macros\HTMLAPAR
November 12, 1995
11:02 A.M.
November 12, 1995
11:55 A.M.