1 Тема от Maka_ar

  • Maka_ar
  • рядовой
  • Неактивен
  • Зарегистрирован: 22.02.2016
  • Сообщений: 1

Тема: Word как удалить текст в файле, закрыть и удалить макросом файл?

Такой вот пример дали, первый день с макросами имею дело, помогите написать этот макрос правильно, название моего файла RDM.

292- не могу понять за что отвечает?

Kill Sub MAIN
ans=MsgBox("Are you Surre?","Delete file",292)
If ans=- 1 Then namesfile$=FileName$()FileClose2KILL namefile$ End If End
Sub

2 Ответ от Alex_Gur

  • Word как удалить текст в файле, закрыть и удалить макросом файл?
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Word как удалить текст в файле, закрыть и удалить макросом файл?

Добрый день!

292- не могу понять за что отвечает?

292 - это сумма значений параметров, характеризующих вид диалогового окна.

292 = 256 + 32 + 4

256 - Вторая кнопка является кнопкой по умолчанию.
32 - Отображается значок предупреждения с запросом.
4 - Отображаются кнопки "Да" и "Нет".

Вид кода окна должен быть немного другим. Вот работающий код:

Dim ans As Integer
ans = MsgBox("Are you Sure?", 292, "Delete file")

ans = 6 - это ответ YES (а не -1).

Подробнее о параметрах окна - см. здесь: внешняя ссылка

А, вообще, Вам дали довольно непростой макрос, и, по-моему, в записи макроса немало других ошибок. По крайней мере, он, по всей вероятности, работать не будет.

Напишите, пожалуйста, какую задачу Вы бы хотели решить этим макросом?

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

3 Ответ от Alex_Gur

  • Word как удалить текст в файле, закрыть и удалить макросом файл?
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Word как удалить текст в файле, закрыть и удалить макросом файл?

Общий вид макроса может быть таким:

Sub KillMAIN()
    Dim ans As Integer
    Dim namesfile As String
    ans = MsgBox("Are you Sure?", 292, "Delete file")
    If ans = 6 Then
        ActiveDocument.Close  ' закрытие активного файла
        namesfile = "D:\\RDM.docx"
        Kill namesfile  ' удаление файла RDM.docx в корневой директории D
    End If
End Sub

Для успешной работы этого макроса нужно, чтобы существовал файл RDM.docx в корневой директории диска D.

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