🚀 go-pugleaf

> > $B!!$o$1$"$D$FBgNL$N%F%-%9%H(J(5000 $B%U%!%$%k!K(J
> > $B$r0l3g(J ms-word(95 or 97)$B$NJ8=q%U%!%$%k$K(J
> > $BJQ49$7$?$$$HK>$s$G$$$^$9!#(J
> > $B!t2DG=$J$i%G%U%)%k$NJ8;z%]%$%s%H$b;XDj(J
> > $B!t=PMh$l$P$&$l$7$$$H$*$b$$$^$9!#(J

KANEKO <k-cat@pp.iij4u.or.jp_nospam> wrote in article <609rae$lfh@news01.iij4u.or.jp>...

> $B0J2<$N$h$&$J!"%^%/%m$G$O$@$a$G$7$g$&$+!)(J
> (WORD 97 $B$r;HMQ(J)
> 5000$B7o$@$H$A$g$C$HBgJQ$+$J!)(J

$B<+8J%U%)%m!<$G$9!#(J

OS $B$O(J WIN95 $B$G!"%o!<%I(J97$B$N%^%/%m$G$9!#(J

$BA0$N5-;v$N%3!<%I$G!"(JFunction Text2Doc $B$,$&$^$/F0:n$7$J$$$H$-$,$"$k$h$&$G$9!#(J

$B$=$s$JLu$G!"$*$+$7$JItJ,$r%3%a%s%H$K$7$F(J
c:\tmp $B$KB8:_$9$k!"(J.TXT $B%U%!%$%k$r!"%o!<%I(J97 $B$N(J .DOC $B$KJQ49$9$k(J
$B%^%/%m$r:n$C$F$_$^$7$?!#%U%)%s%H$N%5%$%:$O(J20$B$G$9!#(J

$BF0:nJ]>Z$O$G$-$^$;$s!#==J,$K;n$7$F$_$F$+$i!";H$C$F$/$@$5$$!#(J(^^)

KANEKO <k-cat@pp.iij4u.or.jp> <http://www.pp.iij4u.or.jp/~k-cat>

Option Explicit

Sub Macro1()
'$B$3$N%^%/%m$,K\BN$G$9!#(J

    Dim FontSize As Single
    Dim Directory As String
    Dim rc

'$B$3$NItJ,$r=$@5$7$F$/$@$5$$!#(J   ////////////////////////////////////////////////////////
    
    Directory = "C:\tmp\" '$B%G%#%l%/%H%j$N;XDj(J $B:G8e$O(J "\"
    FontSize = 20         '$B%U%)%s%H%5%$%:$N;XDj(J

'$B$3$3$^$G(J   ////////////////////////////////////////////////////////////////////////////
    
    rc = matometehennkann(Directory, FontSize)
End Sub
'--------------------------------------------
Function Text2Doc(ByVal Directory As String, ByVal FileName As String, ByVal FontSize As Single)
'TXT $B%U%!%$%k$r(J DOC $B%U%!%$%k$KJQ49$7$^$9!#(J
    
    'Directory = $B%G%#%l%/%H%j$N;XDj(J $B:G8e$O(J "\"
    'FontSize =  $B%U%)%s%H%5%$%:$N;XDj(J
    'FileName =  $B%U%!%$%kL>$N;XDj(J  $B3HD%;R$O;XDj$7$J$$!#(J

    Text2Doc = False

    ChangeFileOpenDirectory Directory
    Documents.Open FileName:=FileName & ".txt"
    Selection.WholeStory
    Selection.Font.Size = FontSize
    ActiveDocument.SaveAs FileName:=FileName & ".doc", FileFormat:=wdFormatDocument

'$B0J2<#29T$,$h$/2r$j$^$;$s!#(J(;_;)
'    Windows(FileName & ".doc").Activate
'    ActiveWindow.Close

    Text2Doc = True
End Function
'--------------------------------------------
Function matometehennkann(ByVal Directory As String, ByVal FontSize As Single)
'$B;XDj$5$l$?%G%#%l%/%H%j$KB8:_$9$k(J TXT $B%U%!%$%k$r=&$$=P$7(J Text2Doc $B$r8F$S=P$7$^$9!#(J
    matometehennkann = False
    
    Dim FileName As String
    Dim rc

    FileName = Dir(Directory & "*.txt")
    FileName = Left$(FileName, Len(FileName) - 4) '$B3HD%;R$N:o=|(J
    rc = Text2Doc(Directory, FileName, FontSize)
    
    Do While FileName <> ""   ' $B%k!<%W$r3+;O$7$^$9!#(J
        FileName = Dir
        If FileName = "" Then Exit Do
        FileName = Left$(FileName, Len(FileName) - 4) '$B3HD%;R$N:o=|(J
        rc = Text2Doc(Directory, FileName, FontSize)
        DoEvents
    Loop
    matometehennkann = True
End Function
'--------------------------------------------