Office文書を旧ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ•ã‚¡ã‚¤ãƒ«å½¢å¼ã«å¤‰æ›ã™ã‚‹VBScript | åˆå¿ƒè€…備忘録xlsxã‚„docxã¨ã„ã£ãŸæ–°ã—ã„å½¢å¼ã®Office文書をスクリプトファイルã«ãƒ‰ãƒ©ãƒƒã‚°ï¼†ãƒ‰ãƒãƒƒãƒ—ã™ã‚‹ã¨ã€xlsã‚„docã¨ã„ã£ãŸæ—§ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ•ã‚¡ã‚¤ãƒ«å½¢å¼ã«å¤‰æ›ã—ã¦å…ƒãƒ•ã‚¡ã‚¤ãƒ«ã¨åŒã˜ãƒ•ã‚©ãƒ«ãƒ€ãƒ¼ã«å‡ºåŠ›ã™ã‚‹VBScriptã§ã™ã€‚ Option Explicit Dim Fso Dim Args Dim OutputFilePath Dim i Const wdFormatDocument = 0 Const wdDoNotSaveChanges = 0 Const xlNormal = -4143 Const ppSaveAsPresentation = 1 Set Fso = CreateObject("Scripting.FileSystemObject") Set Args = WScript.Arguments If Args.Count < 1 Then MsgBox "æ—§ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ãƒ•ã‚¡
{{#tags}}- {{label}}
{{/tags}}