Flasher
|
 Posted: Wed Jan 21, 2015 20:47 Post subject: |
 |
|
| Code: | ' ==========================================================================
' Создать пустой doc(x)/ppt(x)/xls(x)-файл в активном каталоге и открыть его
' Условие: путь запуска должен быть пустым
' Параметр: <расширение файла>
' Автор: Flasher ©
' ==========================================================================
Ext = WScript.Arguments(0) : Extx = Left(Ext, 3)
Title = "Создание нового " & Ext & "-файла"
Select Case Extx
Case "doc" Pr = "Word" : Case "xls" Pr = "Excel" : Case "ppt" Pr = "PowerPoint"
Case Else MsgBox Ext & " - неверное расширение!", 48, " " & Title : WScript.Quit
End Select : FN = Trim(InputBox(String(5, vbCr) & "Введите базовое имя файла:",_
Space(23) & Title, "Новый файл")) : If FN = "" Then WScript.Quit
F = CreateObject("WScript.Shell").CurrentDirectory & "\" & FN : FN = F
While CreateObject("Scripting.FileSystemObject").FileExists(_
FN & "." & Ext) i = i + 1 : FN = F & " (" & i & ")" : Wend
With CreateObject(Pr & ".Application")
Select Case Extx
Case "doc" Set Add = .Documents.Add : Case "ppt" Set Add = .Presentations.Add
Case Else .Workbooks.Add : Set Add = .Application.ActiveWorkBook
End Select : Add.SaveAs(FN & "." & Ext) : .Visible = True
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
