Thread: M3U printing?

Here is a word macro that I wrote to print a 2 column list of all the songs in an m3u file. Hope it helps.
The document has a header and footer defined and I no longer print barcodes (used when I had the CueCat) so those sections have been commented out of the macro.



Sub CreatePlaylist()
'
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1

'Selection.TypeText Text:="MP3Wrangler Playlist"
'Selection.HomeKey Unit:=wdLine
'Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Bold = wdToggle
'Selection.Font.Size = 24
'Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

'Selection.MoveDown Unit:=wdLine, Count:=1
'Selection.TypeParagraph
'Selection.TypeParagraph
Selection.Font.Size = 8
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

sn = 0
Open "d:\mp3\master.m3u" For Input As 1
While Not EOF(1)
Line Input #1, rec$
If Left$(rec$, 8) = "#EXTINF:" Then
sn = sn + 1
fc = InStr(rec$, ",")
prtline$ = Format$(sn, "####") + ": " + Right$(rec$, Len(rec$) - fc)
' Selection.Font.Name = "Free 3 of 9"
' Selection.Font.Size = 28
' Selection.TypeText Text:="*" & Format$(sn, "####") & "*"
' Selection.TypeParagraph
Selection.Font.Size = 8
Selection.Font.Name = "Arial"
Selection.TypeText Text:=prtline$
Selection.TypeParagraph

End If
Wend
Close 1
Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
With Selection.PageSetup.TextColumns
.SetCount NumColumns:=2
.EvenlySpaced = True
.LineBetween = True
End With

End Sub

thx but I dont think I have word.....

OK now.
Alt+F8 to get to the macro dialog box.
Type in name of macro, in this case CreatePlaylist
press the Create button.
Paste in the code between sub and end sub
Save the macro
Alt+Q to return to the document.

to run
Alt+F8 select the macro and press run...
I have it setup as an autorun macro so when I open the document it automatically runs and rebuilds the list. All I have to do is print it....
Let me know if you still can't get it and I'll try to help.