More to Word

< Next Message | Back to archived message list | Previous Message >

Note: This message is from the outliners.com archive kindly provided by Dave Winer.

Outliners.com Message ID: 668

Posted by bcole
2000-07-19 08:23:15

For those who might be interested, I wrote the following Word 98 Macro to take my More 3.1 files and put them properly formatted using hanging indents into Word.

Sub More_To_Word()

For Each para In ActiveDocument.Paragraphs
n = 1
para.Range.Select
pos = Selection.HomeKey(Unit:=wdLine, Extend:=wdMove)
While Asc(Mid(para, 1, 1)) = 9
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.TypeBackspace
n = n + 1
Wend
If n > 1 Then
Selection.ParagraphFormat.LeftIndent = InchesToPoints(n * 0.25)
Selection.ParagraphFormat.FirstLineIndent = InchesToPoints(-0.25)
End If
Next para

End Sub

Back to archived message list