[Vadikan]

romby, в 2003 http://support.microsoft.com/kb/826174 А в 2007 макросом можно... http://help.lockergnome.com/office/B...ict927812.html

[romby]

подскажите товарищ админ как пользовацца твоим советом офис 2007, на диске С папка doc в ней док-ты ворд (.rtf)
2003 офиса нету, есть 2002, могу поставить на виртуальную машину win xp, не умею ставить программы на виртуальную систему и копировать туда док-ты.

[ZeLiK]

Офисом 2007 так же как и другими, потребуются макросы, а "как и чаво" написано по данным выше Администратором ссылкам, и там же можно дальше пойти и увидеть скрины... Или Вы подразумеваете о полной ммм мягко говоря "капитуляции"?
Установка ПО на виртуальную машину НИЧЕМ не отличается от того же в обычной "машине". Мб Вы забываете выделить устройства для вирт. машины? Можно настроить сеть и перекинуть по сети, можно с помощью флешки, "дав" usb-порт виртуальной машине... собственно, зачем знать/Уметь ставить вирт. машину без знания главного (на мой взгляд)?

[Vadikan]

romby, ок, копирую сюда то, что есть по ссылке.

Код макроса

Код:

Sub SaveAllAsHTM() 
Dim FirstLoop As Boolean 
Dim myFile As String 
Dim strDocName As String 
Dim PathToUse As String 
Dim MyDoc As Document 
Dim Response As Long 

PathToUse = InputBox("Path To Use?", "Path", "D:\My 
Documents\Test\Versions") 

On Error Resume Next 
Documents.Close SaveChanges:=wdPromptToSaveChanges 
FirstLoop = True 
myFile = Dir$(PathToUse & "*.doc") 
While myFile <> "" 
Set MyDoc = Documents.Open(PathToUse & myFile) 
If FirstLoop Then 
'With ActiveDocument 
'Selection.PageSetup.Orientation = wdOrientLandscape 
'End With 
FirstLoop = False 

Response = MsgBox("Do you want to process " & _ 
"the rest of the files in this folder", vbYesNo) 
If Response = vbNo Then Exit Sub 
'Else 
'With ActiveDocument 
'Selection.PageSetup.Orientation = wdOrientLandscape 
'End With 
End If 
strDocName = ActiveDocument.FullName 
intPos = InStrRev(strDocName, ".") 
strDocName = Left(strDocName, intPos - 1) 
strDocName = strDocName & ".htm" 
MyDoc.SaveAs FileName:=strDocName, _ 
FileFormat:=wdFormatHTML 
MyDoc.Close SaveChanges:=wdDoNotSaveChanges 
myFile = Dir$() 
Wend 
End Sub

Добавление макроса (в картинках)

Теперь, что конкретно непонятно?

[romby]

макрос сохраняет один док-т в папке
создаю новый док-т в него вставляю макрос етот макрос сохраняет новый док-т как веб страницу другие док-ты в папке не сохраняет.

[Vadikan]

romby, при условии, что у вас макрос сохранен. Запустите его - он попросит указать папку с документами для конвертации.

[romby]

здраствуйте товарищ админ. ентот макрос не пашет у меня, запускаю макрос оно спрашивает D:\MyDocuments\Test\Versions пишу ей C:\doc , а она не дает, не конвертит док-ты.
попробую скачат 2003 офис и поставить на виртуальную машину.

[Vadikan]

romby, я проверил макрос перед тем, как предложить решение - у меня все работало (Windows 7, Office 2007).

[ZeLiK]

Vadikan, Ваши док-ты были формата\расширения *.rtf или *.doc?
romby, За отсутствием установленного Офиса как такового, могу лишь посоветовать отредактировать макрос, как минимум в пункте:

Код:

myFile = Dir$(PathToUse & "*.doc")

Соответственно "*.doc" заменить на "*.rtf". И проверить, пересохранился\заменился ли макрос.
Как максимум, так же отредактировать в макросе путь с "D:\My Documents\Test\Versions" на "C:\doc"