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文書のパスとファイル名を決定。
②決定したファイルを検索。
③ファイルがあれば開く。
④無ければ新規作成して開く
という処理を行いたいのですが、どのようにすればいいでしょうか?

このサイトを参考に、下記のような記述で一応、新規作成まで出来たのですが、
作成されたドキュメントがどうしてもテキスト形式になってしまい、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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加