WORD文書を新規作成するには？

JJKK 2005-07-26 04:16:05 No: 123704

①開きたいWORD文書のパスとファイル名を決定。
②決定したファイルを検索。
③ファイルがあれば開く。
④無ければ新規作成して開く
という処理を行いたいのですが、どのようにすればいいでしょうか？

Dim LwkTextStream As TextStream
Dim LwkFso As FileSystemObject
Set LwkFso = New FileSystemObject

If LwkFso.FileExists(GwkFILE) = True Then
'         存在しない場合
Else
Set LwkTextStream = LwkFso.CreateTextFile(GwkFILE)
            Call LwkTextStream.Close
'            ファイルをクローズする
            Call LwkFso.CreateTextFile(GwkFILE).Close
        End If

JJKK 2005-07-26 04:20:15 No: 123705

すいません。途中で書き込んでしまったので再送信します。

このサイトを参考に、下記のような記述で一応、新規作成まで出来たのですが、
作成されたドキュメントがどうしてもテキスト形式になってしまい、WORDに図を挿入したりが出来ずに困っています。

宜しくお願い致します。

-----------------------------------------------
Dim LwkTextStream As TextStream
Dim LwkFso As FileSystemObject
Set LwkFso = New FileSystemObject

If LwkFso.FileExists(GwkFILE) = True Then
'         存在しない場合
Else
    Set LwkTextStream = LwkFso.CreateTextFile(GwkFILE)
    Call LwkTextStream.Close
'    ファイルをクローズする
    Call LwkFso.CreateTextFile(GwkFILE).Close
End If
-------------------------------------------------

いな 2005-07-26 04:21:00 No: 123706

'=======================================================================
'  Word 起動
'=======================================================================
'【引数】
'  para    = 文書ファイル名
'【戻り値】
'  boolean = 処理結果
'              TRUE  = 正常
'              FALSE = エラー
'【処理】
'  ・Word を起動する。
'【履歴】
'  1999.04.17 sak      ver 1.00 新規作成
'=======================================================================
Public Function ExecWord(para As String) As Boolean

Dim wrd As variant

'** Word 起動
  On Local Error Resume Next
  Set wrd = CreateObject("Word.Application")
  Shell wrd.path & "\winword.exe " & para, 1
  if err <> 0 then
    ExecWord = False
  else
    ExecWord = True
  end if
  On Local Error GoTo 0

End Function

JJKK 2005-07-28 03:03:14 No: 123707

いなさん、ありがとうございます。
ExecWordについては、いろいろ調べて試していたのですが、
ファイルが有る場合にしか開けず、ファイルが無い場合に「新規作成」
になってくれません。
単純にExecWordを呼ぶだけではだめなのでしょうか？

移動先 2005-07-29 20:16:05 No: 123708

http://www.gizshare.com/vbtomo/boards/vbchoshoqa.php?do=spread&num=5608