Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.08.2009, 09:15   #1
Busine2009
Новичок
Джуниор
 
Регистрация: 23.05.2009
Сообщений: 167
По умолчанию Диалоговое окно

Вот есть код:
Код:
Sub FilePrint()
  Dim oSec As Section, sNotA4 As String, sNotPortrait As String
  For Each oSec In ActiveDocument.Sections 'Просматриваем все разделы в документе
      'Если страницы в разделе имеют формат, отличный от А4
    If oSec.PageSetup.PaperSize <> wdPaperA4 Then
      sNotA4 = sNotA4 & vbCr & "Раздел " & oSec.Index
    End If
     'Если страницы в разделе имеют альбомную ориентацию
    If oSec.PageSetup.Orientation <> wdOrientPortrait Then
      sNotPortrait = sNotPortrait & vbCr & "Раздел " & oSec.Index
    End If
      'Если в документе есть поле > 4 см
  Next
  If sNotA4 <> "" Then sNotA4 = "Не А4" & sNotA4 & vbCr
  If sNotPortrait <> "" Then sNotPortrait = "Альбомная ориентация" & sNotPortrait & vbCr & vbCr
  If sNotA4 <> "" Or sNotPortrait <> "" Or sNotTopMargin > "" Then
    'Выводим сообщение
    Select Case MsgBox(sNotA4 & vbCr & sNotPortrait, vbInformation + vbOKCancel, "Предпечать")
      'Если в окне с сообщением нажали ОК, то показываем диалог печати
      Case vbOK: Dialogs(wdDialogFilePrint).Show
      'Если Отмена, то завершаем выполнение.
      Case vbCancel: Exit Sub
    End Select
  Else: Dialogs(wdDialogFilePrint).Show
  End If
End Sub
Вот если имеет место ситуация, что не <> and >, а =, например
If oSec.PageSetup.PaperSize = wdPaperA4 Then
то как быть в этом случае с
If sNotA4 <> "" Then sNotA4 = "Не А4" & sNotA4 & vbCr
Если я поставлю = вместо <>, то в диалоговое окно выходит всегда, даже если нет ситуации, чтобы ему выходить.
Busine2009 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Диалоговое окно Михаил Юрьевич Общие вопросы Delphi 11 01.06.2009 20:31
Диалоговое окно при создании файла tae1980 Microsoft Office Excel 5 16.03.2009 21:41
Диалоговое окно Beggins Общие вопросы C/C++ 3 09.05.2008 05:03
Помогите поставить условия в StringGrid, чтобы выходило диалоговое окно. Digimon Помощь студентам 2 18.02.2008 08:28