VBScript для сохранения в ворд

@klarnetistka · Регистрация: 10.08.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте.

Есть скрипт для сохранения документа в ворд. Но меня не устраивает, что сохраняется в doc, а не в docx. Пробовала по всякому, у меня не получилось.

Казалось бы, глупый вопрос, но решить не могу. Помогите, пожалуйста. Я чайник)

Visual Basic

dim oWord, oDoc, oSel, oFont, oShell, CurDir
 
set oWord = WScript.CreateObject("Word.Application")   
set oShell = WScript.CreateObject("WScript.Shell")
set oDoc = oWord.Documents                       
set doc = oWord.Documents.Open("C:\папка\файл.pdf")                                                       
set oSel = oWord.Selection                           
                                         
set oFont = oSel.Font
 
CurDir = oShell.CurrentDirectory        
 
oDoc(1).SaveAs CurDir & "\файл.doc", 0  
 
 
oWord.Quit

@diadiavova · 24.05.2017, 14:03

Сообщение от klarnetistka

сохраняется в doc, а не в docx

Ну так в тринадцатой строке написано имя файла с расширением doc.

@klarnetistka · 24.05.2017, 14:09 **[ТС]**

Да, но при измерении этого имени на docx вылезает ошибка.

Если б все было так просто...

@diadiavova · 24.05.2017, 14:18

Сообщение от klarnetistka

вылезает ошибка.

А какая ошибка? По идее второй аргумент указывает на формат файла и 0 как раз-таки соответствует основному вордовскому формату.
WdSaveFormat enumeration (Microsoft.Office.Interop.Word)

Добавлено через 3 минуты
Можно попробовать 16 указать wdFormatDocumentDefault, но я точно не знаю что именно соответствует docx

@klarnetistka · 24.05.2017, 14:44 **[ТС]**

Ошибка "Тип и расширение файла не совместимы". на 13 строку выдает

@diadiavova · 24.05.2017, 14:56

klarnetistka, я сейчас в ворде включил запись макроса и сохранил в docx, посмотрел код, там указан формат wdFormatXMLDocument, это соответствует числу 12. То есть тринадцатая строка будет выглядеть так

Visual Basic

1	oDoc(1).SaveAs CurDir & "\файл.docx", 12

@klarnetistka · 24.05.2017, 15:01 **[ТС]**

Огромное спасибо!!!

@diadiavova 6219 / 2467 / 725 Регистрация: 11.04.2015 Сообщений: 3,987 Записей в блоге: 43
	24.05.2017, 14:03	2
	Сообщение от klarnetistka сохраняется в doc, а не в docx Ну так в тринадцатой строке написано имя файла с расширением doc. 0

@klarnetistka 0 / 0 / 0 Регистрация: 10.08.2016 Сообщений: 14
	24.05.2017, 14:09 [ТС]	3
	Да, но при измерении этого имени на docx вылезает ошибка. Если б все было так просто... 0

@diadiavova 6219 / 2467 / 725 Регистрация: 11.04.2015 Сообщений: 3,987 Записей в блоге: 43
	24.05.2017, 14:18	4
	Сообщение от klarnetistka вылезает ошибка. А какая ошибка? По идее второй аргумент указывает на формат файла и 0 как раз-таки соответствует основному вордовскому формату. WdSaveFormat enumeration (Microsoft.Office.Interop.Word) Добавлено через 3 минуты Можно попробовать 16 указать wdFormatDocumentDefault, но я точно не знаю что именно соответствует docx 0

@klarnetistka 0 / 0 / 0 Регистрация: 10.08.2016 Сообщений: 14
	24.05.2017, 14:44 [ТС]	5
	Ошибка "Тип и расширение файла не совместимы". на 13 строку выдает 0

@klarnetistka 0 / 0 / 0 Регистрация: 10.08.2016 Сообщений: 14
	24.05.2017, 15:01 [ТС]	7
	Огромное спасибо!!! 0