More to Word
Posted by bcole
on 7/19/2000
bcole
7/19/2000 8:23 am
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
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
