目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
21 / 268 ←次へ | 前へ→

【269】ワードの場合
全般  Jaka  - 11/3/2(水) 11:27 -

引用なし
パスワード
   ワードの場合はね。
ってほとんど変わってない。
掲示板上で、半角スペースがTabに返還されているところは同じ。
修正が必要。

Dim WsArg,WdApp

Set WsArg = WScript.Arguments
If WsArg.Count = 0 Then
  WScript.Echo "このVbsファイルにWordファイルをドラッグ&ドロップしてください。"
  Wscript.Quit
End If

'起動しているワード(アプリ)があるかチェック
On Error Resume Next
Set WdApp = GetObject(, "Word.Application" )
If WdApp Is Nothing Then
  Set WdApp = CreateObject("Word.Application")
End If
On Error Goto 0

WdApp.Visible = True
WdApp.Documents.Open WsArg(0)
CreateObject("WScript.Shell").AppActivate WdApp.Caption
WdApp.WindowState = 0
Set WdApp = Nothing
Set WsArg = Nothing
Wscript.Quit

1,554 hits

【268】VBSファイルにxlsファイルをドラッグ&ドロップで開く Jaka 11/3/1(火) 17:18 Excel[未読]
【269】ワードの場合 Jaka 11/3/2(水) 11:27 全般[未読]
【270】動かない原因2. Jaka 11/3/2(水) 15:43 全般[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
21 / 268 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free