Просмотр документа Word

@ASSEI · Регистрация: 18.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте ребята! что то не получается просмотреть документ, что не правильно подскажите!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Me.Hide
 Set Wd = CreateObject("Word.Application")
  Wd.Documents.Open App.Path & "\rko.doc"
  Wd.Visible = True
 Wd.ActiveDocument.PrintPreview 'здесь должно быть просмотр документа, и только после того как
    или закрыли просмотр или напечатали тогда..
 
'----закрытие док.
Wd.Documents.Save
Wd.Documents.Close
Wd.Quit
Me.Show

@UBUNTU · 23.10.2017, 16:33

ASSEI, Ну отлавливайте работу ворда, если открыт или закрыт. Ставьте таймер и пишите в него код.

@ASSEI · 23.10.2017, 16:41 **[ТС]**

странно почему с xl такого нет?

Добавлено через 4 минуты
Да кстати не могу понять почему этим кодом не выводится документ на просмотр для печати, а в xl выводится?

@UBUNTU · 23.10.2017, 17:28

Сообщение от ASSEI

Да кстати не могу понять почему этим кодом не выводится документ

все работает.

уберите это

Code
1
2
3
4
Wd.Documents.Save
Wd.Documents.Close
Wd.Quit
Me.Show

он у вас запускается сразу сохраняется и закрывается.

@ASSEI · 23.10.2017, 17:32 **[ТС]**

да я убрал, а документ открывается как простой ворд, значит код

Visual Basic
1
Wd.ActiveDocument.PrintPreview

не работает, потому что открывает не на просмотре!

@UBUNTU · 23.10.2017, 20:04

ASSEI, Работает! Вам скрин показать )

@vice4 · 24.10.2017, 09:37

Сообщение от ASSEI

Здравствуйте ребята! что то не получается просмотреть документ, что не правильно подскажите!

Задача просмотреть и всё? И если "только просмотр" - зачем сохраняетесь?

@ASSEI · 24.10.2017, 12:37 **[ТС]**

дело в том я пробовал по принципу xl, но у меня не получается в xl норма, а в ворде видимо по другому работает, я так понимаю в ворде нет листов только книга, но теперь выяснилось что требуется убрать последние строки, но с этой строкой

Visual Basic
1
Wd.ActiveDocument.PrintPreview

тупо открывается файл и все, может что то не так с программой или настройками?

@vice4 · 24.10.2017, 14:12

В Excel книга и листы, а в Word - документ и листы. Ваша строка Wd.ActiveDocument.PrintPreview аналогично нажатию кнопки "предварительный просмотр" в текстовом процессоре. В этом режиме ничего нельзя поменять. У пользователя будет либо возможность напечатать документ, либо закрыть и команда сохранения тут избыточная.

@ASSEI · 24.10.2017, 14:23 **[ТС]**

Так хорошо согласен даже убедили, СПАСИБО, подскажите а как прописать такой момент после просмотра закрыть просмотр что бы не появлялось само приложение, что бы пользователь не видел сам документ а при закрытии увидел форму проекта?
ведь после

Visual Basic
1
Wd.ActiveDocument.PrintPreview

, этого кода
этот

Visual Basic
1
Wd.Visible = False

то же не получится, я так понимаю какая то задержка выполнения кода требуется?

@vice4 · 24.10.2017, 14:27

ASSEI, давайте еще раз.
1. Вам нужно открыть для просмотра некий файл в word и показать его пользуну
2. Пользун нажимает печать (отмену/выход)
3. Документ word выводится на печать (ничего не происходит)
4. Word закрывается

Задача такая?

@ASSEI · 24.10.2017, 14:28 **[ТС]**

я макросом попробовал этот код правда не совсем понимаю как его использовать

Visual Basic
1
ActiveDocument.ClosePrintPreview

@vice4 · 24.10.2017, 14:29

Тут критичен еще такой момент - другие документы word могут быть открыты одновременно с Вашим?

@ASSEI · 24.10.2017, 17:47 **[ТС]**

3. Да пользователь или выводит на печать или закрывает просмотр
4. Ворд закрывается появляется форма проекта

Добавлено через 29 секунд
да конечно , желательно!

Добавлено через 3 часа 17 минут
может кому пригодится по теме код рабочий:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Dim WithEvents wd As Word.Application
 
Private Sub wd_Quit()
  Me.Show
  Me.Caption = "Word закрыт"
End Sub
  
Private Sub Command1_Click()
    Me.Hide
    Set wd = CreateObject("Word.Application")
    wd.Documents.Open App.Path & "\rko.doc"
    wd.Visible = True
    wd.ActiveDocument.PrintPreview
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	23.10.2017, 16:33
	ASSEI, Ну отлавливайте работу ворда, если открыт или закрыт. Ставьте таймер и пишите в него код. 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	23.10.2017, 16:41 [ТС]
	странно почему с xl такого нет? Добавлено через 4 минуты Да кстати не могу понять почему этим кодом не выводится документ на просмотр для печати, а в xl выводится? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	23.10.2017, 20:04
	ASSEI, Работает! Вам скрин показать ) 0

@vice4 28 / 28 / 4 Регистрация: 07.06.2017 Сообщений: 166
	24.10.2017, 14:12
	В Excel книга и листы, а в Word - документ и листы. Ваша строка Wd.ActiveDocument.PrintPreview аналогично нажатию кнопки "предварительный просмотр" в текстовом процессоре. В этом режиме ничего нельзя поменять. У пользователя будет либо возможность напечатать документ, либо закрыть и команда сохранения тут избыточная. 0

@vice4 28 / 28 / 4 Регистрация: 07.06.2017 Сообщений: 166
	24.10.2017, 14:27
	ASSEI, давайте еще раз. 1. Вам нужно открыть для просмотра некий файл в word и показать его пользуну 2. Пользун нажимает печать (отмену/выход) 3. Документ word выводится на печать (ничего не происходит) 4. Word закрывается Задача такая? 1

@vice4 28 / 28 / 4 Регистрация: 07.06.2017 Сообщений: 166
	24.10.2017, 14:29
	Тут критичен еще такой момент - другие документы word могут быть открыты одновременно с Вашим? 1