|
Wordを使うのは簡単に出来るようですよ。
参照設定でWordにチェック必要。サンプルです。
Private Sub CommandButton2_Click()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Add(, , , True)
With objDoc
.Range.Text = Me.TextBox1.Text
' .PrintOut '各種設定は自分で。このままでもOKかもしれないです。
DoEvents '必要かどうか不明だが一応書いている。無くても問題は無いと思う?
.Close wdDoNotSaveChanges
End With
Set objDoc = Nothing
objWord.Quit
Set objWord = Nothing
End Sub
立ち上がるのがまどろっこしいので、メモ帳かWordPadがいいかも?
そのうち、Testしたら書き込むかも?
|
|