Изменение свойств документа Word или как еще задать желаемое название при сохранении

@Romas654 · Регистрация: 16.11.2012

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

Добрый день!
Задача такая:
Формирую документ word программно из access (на основе шаблона) так:

Visual Basic
1
2
3
4
Set App = New Word.Application
App.Documents.Add CurrentProject.Path & "\Template\" & "TempName.dot"
With App.ActiveDocument
...

При нажатии "Сохранить" в полученном документе в качестве названия по умолчанию подставляется то, что написано в свойствах документа в поле "Название", а хотелось бы задать свое. Задаю программно это свойство:

Visual Basic
1
2
3
4
5
Dim bp As Word.WdBuiltInProperty
bp = wdPropertyTitle
MsgBox "Прежнее значение: " & .BuiltinDocumentProperties(bp)
.BuiltinDocumentProperties(bp) = "123456789"
MsgBox "Новое значение: " & .BuiltinDocumentProperties(bp)

Название меняется, но при нажатии "Сохранить" опять показано старое значение, а изменяется оно на новое только если открыть свойство документа из меню "Файл" и там нажать ОК.

Я так понимаю, ворду нужна команда для перезагрузки значений свойств. Есть такая?
Или какие еще могут быть варианты для задания своего названия при открытии диалога сохранения?

Скрипт · 16.11.2012, 12:44

Romas654, в ходе выполнения вашего кода создаётся новый документ Word и появляется диалоговое окно "Сохранение документа" для сохранения созданного документа Word.
Что вы делаете в этом диалоговом окне?

@Romas654 · 16.11.2012, 12:55 **[ТС]**

документ создается на основе шаблона, в нем заполняются закладки, таблицы и т.п. больше ничего не появляется, пользователь дальше самостоятельно при необходимости вносит исправления и сохраняет документ куда ему нужно. А еще пользователь вводит название документа. Вот это я и хочу автоматизировать. Чтобы вместо единого названия взятого из свойств шаблона в диалоге в качестве названия по умолчанию уже подставлялось уникальное значение (фио, номер документа и т.д.) А это название берется из свойств документа... я раньше в первом сообщении это расписал. Или какой момент непонятен?

Скрипт · 16.11.2012, 12:59

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

А еще пользователь вводит название документа.

напишите подробно куда пользователь вводит - какие кнопки нажимает.

@Romas654 · 16.11.2012, 13:05 **[ТС]**

Стандартный вордовский диалог сохранения.
Вместо "Кредитный договор" нужно сделать более подробное название

Скрипт · 16.11.2012, 13:47

Romas654, чтобы свойство Название появилось в диалоговом окне Сохранение документа в поле Имя файла, нужно 2 раза вызвать диалоговое окно Сохранение документа.
Это не решение вашей проблемы, а просто наблюдение.

@Romas654 · 16.11.2012, 14:04 **[ТС]**

Нет, у меня это сейчас не получилось. Новое название появляется только когда открываешь свойства файла и там нажимаешь ок (см. на картинку). Причем новое название в диалоге свойств уже есть, но ворд его понимает только после нажатия кнопки ок.
Как "заставить" ворд заново считать свойства документа вы мне значит не подскажете...
А может программно открыть окно свойств и там программно "нажать" ок? такое возможно?

Скрипт · 16.11.2012, 14:55

Пункт 1

Дополнение (не связано с решением проблемы автора темы) к сообщению #6. Такое поведение было обнаружено в Word 2010.

Пункт 2

Romas654, программно можно открыть вот это окно:

Visual Basic
1
2
3
4
5
Sub Procedure_1()
    
    Application.Dialogs(86).Show
 
End Sub

@Romas654 · 16.11.2012, 18:17 **[ТС]**

1. Да, действительно, в 2010 есть такое.
2. Даже если программно открыть диалоговое окно: App.Dialogs(wdDialogFileSaveAs).Show, то нажать там ок или esc не получится, т.к. выполнение кода приостанавливается... тупиковая идея.

Скрипт · 16.11.2012, 18:33

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

Даже если программно открыть диалоговое окно:

Для вашей задачи подходит программный вызов диалогового окна "Сохранение документа"?

@Romas654 · 16.11.2012, 18:41 **[ТС]**

Думал, чтобы первый раз программно вызывать это окно и программно же закрывать. Было бы хоть такое решение

Скрипт · 16.11.2012, 19:36

Удалил сообщение.

@Romas654 · 16.11.2012, 19:40 **[ТС]**

В общем, подошел к вопросу с другой стороны. Решил... немного через одно место, но работает:
Свойство устанавливается как и было написано, а потом, вместо того чтобы сразу выводиться на экран, документ сохраняется во временную папку и из него создается новый документ, который и отображается для пользователя. В этом новом документе уже стоит нужное название.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
If Set_NameDoc = True Then ' если разрешено предустановленное название
App.ActiveDocument.SaveAs Environ("temp") & "\TempD.doc"
App.Quit False
 
Set App = New Word.Application
App.Documents.Add Environ("temp") & "\TempD.doc"
End If
 
App.Visible = True
AppActivate (App.Caption)
Set App = Nothing

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	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 Использованы. . .

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	16.11.2012, 12:44
	Romas654, в ходе выполнения вашего кода создаётся новый документ Word и появляется диалоговое окно "Сохранение документа" для сохранения созданного документа Word. Что вы делаете в этом диалоговом окне? 0

@Romas654 117 / 31 / 2 Регистрация: 16.11.2012 Сообщений: 65
	16.11.2012, 12:55 [ТС]
	документ создается на основе шаблона, в нем заполняются закладки, таблицы и т.п. больше ничего не появляется, пользователь дальше самостоятельно при необходимости вносит исправления и сохраняет документ куда ему нужно. А еще пользователь вводит название документа. Вот это я и хочу автоматизировать. Чтобы вместо единого названия взятого из свойств шаблона в диалоге в качестве названия по умолчанию уже подставлялось уникальное значение (фио, номер документа и т.д.) А это название берется из свойств документа... я раньше в первом сообщении это расписал. Или какой момент непонятен? 0

@Romas654 117 / 31 / 2 Регистрация: 16.11.2012 Сообщений: 65
	16.11.2012, 13:05 [ТС]
	Стандартный вордовский диалог сохранения. Вместо "Кредитный договор" нужно сделать более подробное название Миниатюры 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	16.11.2012, 13:47
	Romas654, чтобы свойство Название появилось в диалоговом окне Сохранение документа в поле Имя файла, нужно 2 раза вызвать диалоговое окно Сохранение документа. Это не решение вашей проблемы, а просто наблюдение. 0

@Romas654 117 / 31 / 2 Регистрация: 16.11.2012 Сообщений: 65
	16.11.2012, 14:04 [ТС]
	Нет, у меня это сейчас не получилось. Новое название появляется только когда открываешь свойства файла и там нажимаешь ок (см. на картинку). Причем новое название в диалоге свойств уже есть, но ворд его понимает только после нажатия кнопки ок. Как "заставить" ворд заново считать свойства документа вы мне значит не подскажете... А может программно открыть окно свойств и там программно "нажать" ок? такое возможно? Миниатюры 0

@Romas654 117 / 31 / 2 Регистрация: 16.11.2012 Сообщений: 65
	16.11.2012, 18:17 [ТС]
	1. Да, действительно, в 2010 есть такое. 2. Даже если программно открыть диалоговое окно: App.Dialogs(wdDialogFileSaveAs).Show, то нажать там ок или esc не получится, т.к. выполнение кода приостанавливается... тупиковая идея. 0

@Romas654 117 / 31 / 2 Регистрация: 16.11.2012 Сообщений: 65
	16.11.2012, 18:41 [ТС]
	Думал, чтобы первый раз программно вызывать это окно и программно же закрывать. Было бы хоть такое решение 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	16.11.2012, 19:36
	Удалил сообщение. 0