1

Тема: нужна помощь с макросом для Word

помогите плиз сделать макрос для автоматизации форматирования документа.
в текстовом файле DOC имеются верхние и нижние колонтитулы состоящие из нескольких текстовых блоков (от 1 до 6). нужно автоматически убрать все текстовые блоки из колонтитулов всего документа так что бы текст из этих блоков остался в колонтитулах. и к нему было бы применено форматирование - масштаб 100%, интервал - обычный, смещение - нет. а размер текста и шрифт остался таким же.

2

Re: нужна помощь с макросом для Word

Выложите образец

3

Re: нужна помощь с макросом для Word

Здравствуйте, помогите пожалуйста написать макрос, нужна перевести пакет ворд документов  из ворда 2007. Так то работаю в 2003 и только отправлять нужно в 2007.

4

Re: нужна помощь с макросом для Word

jane528 пишет:

Здравствуйте, помогите пожалуйста написать макрос, нужна перевести пакет ворд документов  из ворда 2007. Так то работаю в 2003 и только отправлять нужно в 2007.

Вы хотите, чтобы в Word 2007 читались документы, подготовленные в Word 2003?
Или наоборот?

Word 2007, как правило, корректно открывает документы, созданные в Word 2003. Обратно (из 2007 в 2003) - могут быть проблемы.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5

Re: нужна помощь с макросом для Word

Здравствуйте, чтоб формат документов был изменен с Word 2003 на формат Word 2007.
Есть вариант:
Sub saveashtml()
NewFilename = (Replace(ActiveDocument.FullName, ".DOC", ".DOCХ"))
NewFilename = (Replace(NewFilename, ".DOC", ".DOCХ"))
ActiveDocument.SaveAs FileName:=NewFilename, FileFormat:=".DOCХ", AddToRecentFiles:=True
Application.Quit
End Sub
Но данный макрос  только открывает с помощью командного файла все файлы пакета через установленные 5 секунд, но не закрывает их, хотя должен по очереди закрывать, и тем более формат не меняет на "DOCХ" , что и являлось исходной задачей.