Макрос для word

[andrewmrn]

Помогите, кто умеет, с макросом ворда.
Задача: макрос открыл док-файл, удалил из середины документа приблизительно 30-40% текста, записал документ, закрыл. Вот нужно мне такое на работу сделать, как подарок руководству А в ворде ни бумбум.

[nanotronic]

Sub Macros()


Documents.Open FileName:="submits.docx", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
Selection.MoveDown Unit:=wdLine, Count:=9
Selection.MoveDown Unit:=wdLine, Count:=18, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveDocument.SaveAs FileName:="submits2222.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
End Sub







======================================
Открыл документ.
Удалил текст.
Сохранил документ.
Закрыл документ.

[qwer7]

для быстрого создания макросов, можно еще запись использовать.
в "виде" есть:
начать запись макроса
закончить запись макроса

то что ты делаешь будет автоматически преобразовано в макрос.
дальше чуть редактрируешь его и вуаля!