Create directory list with layout?   

Is it possible to make a list from a directory straight to Office
Word, and adding layout?

When i do this in DOS:  dir c:\ /s/a/o >c:\content.doc
It doesn't have a layout.

Is it possible to give the result a layout (like the dirs are H1)
Normal text = H3
And so on

Thank you

date: Fri, 02 May 2008 19:36:11 +0200   author:   unknown

RE: Create directory list with layout?   

"test@testnospam.nl" wrote:

> Is it possible to make a list from a directory straight to Office
> Word, and adding layout?
> 
> When i do this in DOS:  dir c:\ /s/a/o >c:\content.doc
> It doesn't have a layout.
> 
> Is it possible to give the result a layout (like the dirs are H1)
> Normal text = H3
> And so on

Open your "content.doc" document and format the heading 1 and heading 2 
style as you wish. Reduce the space before and after and uncheck the "Keep 
with next" checkbox on the second tab page of the Paragraph fromat dialog.

Then run the code below. On my machine (A Pentium 4 machine at work), it 
took 28 seconds to go through a 2,476-page document (Which is the document 
that I got after running your code: dir c:\ /s/a/o >c:\content.doc).

Sub Format_Dir()

Dim paraDoc As Paragraph

'To avoid repaginating and accelerate things a bit.
Application.ScreenUpdating = False

With ActiveDocument
    With .Range(.Paragraphs(1).Range.Start, .Paragraphs(2).Range.End)
        .Font.Size = 16
        .Font.Bold = True
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
    End With
End With

For Each paraDoc In ActiveDocument.Paragraphs
    If InStr(1, paraDoc.Range.Text, "Directory of") > 0 Then
        paraDoc.Style = wdStyleHeading1
    ElseIf InStr(1, paraDoc.Range.Text, "<DIR>") > 0 Then
        paraDoc.Style = wdStyleHeading2
    End If
    'Otherwise you get an undo list with over 20,000 entries...
    ActiveDocument.UndoClear 
Next

Application.ScreenRefresh
Application.ScreenUpdating = True

End Sub

date: Fri, 2 May 2008 12:59:07 -0700   author:   Jean-Guy Marcil

Re: Create directory list with layout?   

On Fri, 2 May 2008 12:59:07 -0700, Jean-Guy Marcil
 wrote:

>"test@testnospam.nl" wrote:
>
>> Is it possible to make a list from a directory straight to Office
>> Word, and adding layout?
>> 
>> When i do this in DOS:  dir c:\ /s/a/o >c:\content.doc
>> It doesn't have a layout.
>> 
>> Is it possible to give the result a layout (like the dirs are H1)
>> Normal text = H3
>> And so on
>
>Open your "content.doc" document and format the heading 1 and heading 2 
>style as you wish. Reduce the space before and after and uncheck the "Keep 
>with next" checkbox on the second tab page of the Paragraph fromat dialog.
>
>Then run the code below. On my machine (A Pentium 4 machine at work), it 
>took 28 seconds to go through a 2,476-page document (Which is the document 
>that I got after running your code: dir c:\ /s/a/o >c:\content.doc).
>
>Sub Format_Dir()
>
>Dim paraDoc As Paragraph
>
>'To avoid repaginating and accelerate things a bit.
>Application.ScreenUpdating = False
>
>With ActiveDocument
>    With .Range(.Paragraphs(1).Range.Start, .Paragraphs(2).Range.End)
>        .Font.Size = 16
>        .Font.Bold = True
>        .ParagraphFormat.Alignment = wdAlignParagraphCenter
>    End With
>End With
>
>For Each paraDoc In ActiveDocument.Paragraphs
>    If InStr(1, paraDoc.Range.Text, "Directory of") > 0 Then
>        paraDoc.Style = wdStyleHeading1
>    ElseIf InStr(1, paraDoc.Range.Text, "<DIR>") > 0 Then
>        paraDoc.Style = wdStyleHeading2
>    End If
>    'Otherwise you get an undo list with over 20,000 entries...
>    ActiveDocument.UndoClear 
>Next
>
>Application.ScreenRefresh
>Application.ScreenUpdating = True
>
>End Sub

This works fine!
Thanks!!!

date: Sat, 03 May 2008 00:17:13 +0200   author:   unknown