| |
ワードの場合はね。
ってほとんど変わってない。
掲示板上で、半角スペースが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
|
|
Jaka
- 11/3/2(水) 11:27 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
