🚀 go-pugleaf

$B$&$($@!!$+$D$R$3(J  <KFA06365@niftyserve.or.jp> wrote in article
<INETNEWS-1-9-3.22374@niftyserve.or.jp>...

> $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

$B;O$a$^$7$F!"$3$s$K$A$O!#(J

$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$^$A$,$($F$$$?$i!"%4%a%s%J%5%$!#(J
#$B$"$^$jN)GI$J%3!<%I$O=q$1$J$$$N$G%3!<%I$N8x3+$O$O$:$+$7$$$G$9!#(J^^;

$B%U%)%m!<%"%C%W@h$O(J fj.lang.visualbasic $B$K$7$^$9!#(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 FileName As String
    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$r7+$jJV$9(J

    
    FileName = "test1"       '$B%U%!%$%kL>$N;XDj(J  $B3HD%;R$O;XDj$7$J$$!#(J
    rc = Text2Doc(Directory, FileName, FontSize)
    
    FileName = "test2"       '$B%U%!%$%kL>$N;XDj(J  $B3HD%;R$O;XDj$7$J$$!#(J
    rc = Text2Doc(Directory, FileName, FontSize)

'$B$3$3$^$G(J
    '$B$3$3$^$G(J
End Sub
'--------------------------------------------
Function Text2Doc(ByVal Directory As String, ByVal FileName As String, ByVal FontSize As Single)
    
    '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
    ActiveWindow.Close

    Text2Doc = True
End Function
'--------------------------------------------