Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день, подскажите пожалуйста: есть шаблон титульного листа с пользовательскими свойствами (CustomDocumentProperties) которые заполняются через пользовательскую форму. Еще есть другой шаблон (текстовая часть, продолжение титульного листа), в котором имеются те же свойства. Можно как-нибудь средствами VBA передать значения этих свойств из титульного листа другому документу?
Выложите, пожалуйста, материалы.
Можно с помощью макросов
Вот модуль. Здесь есть всё необходимое для написания нужных действий.
Выложите, пожалуйста, материалы.
Извиняюсь за задержку. Вот первый шаблон титульного листа....
Выложите, пожалуйста, материалы.
....и второй шаблон, в него предполагается задавать значения пользовательских свойств (Том №, Комплекс, Редакция, Документ название) из титульного листа
Alex_Gur пишет:Выложите, пожалуйста, материалы.
....и второй шаблон, в него предполагается задавать значения пользовательских свойств (Том №, Комплекс, Редакция, Документ название) из титульного листа
Получается, что Вам нужно брать данные из свойств другого файла?
Получается, что Вам нужно брать данные из свойств другого файла?
так точно
Alex_Gur пишет:Получается, что Вам нужно брать данные из свойств другого файла?
так точно
Это - довольно трудно. Я вижу только следующее решение:
- Открываем два окна с обоими документами (лучше, чтобы других окон в Word открыто не было).
- Переход из окна в окно:
ActiveWindow.Next.Activate- Примеры обращения к свойствам текущего документа:
MsgBox ActiveDocument.BuiltInDocumentProperties("Title") Перечень встроенных свойств документов MSOffice:
внешняя ссылка
- Присваиваем значение свойства переменной (например, StrA).
Dim strA as String
strA = ActiveDocument.BuiltInDocumentProperties("Title")- Передаем значение этой переменной свойству другого документа:
ActiveWindow.Next.Activate
ActiveDocument.BuiltInDocumentProperties("Title") = strAКак-то так...
Может быть у коллег найдется более красивое решение?
Вот файл. При желании можете запихнуть модуль в свой шаблон.
Вот файл. При желании можете запихнуть модуль в свой шаблон.
Сергей спасибо, то что нужно. Хочу немного переделать блок 'спросить файлы в процедуре Копировать_свойства_документа, чтобы пользователь не указывал путь файла, а сразу выбирал сам файл (так будет удобнее). Вот, что я сделал:
'спросить файлы
Set откуда = Documents.Open(Dialogs(wdDialogFileOpen).Show)
Set куда = ThisDocumentв начале выполнения процедуры открывается окно Открытие документа, выбираю файл, нажимаю Открыть, но появляется сообщение об ошибке Run-time error '-2147352571 (80020005)': Can't move focus to the control because it is invisible, not enabled, or of a type that does not accept the focus. Подскажите пожалуйста как сделать выбор файла из этого диалогового окна?
Да, я тогда не хотел париться с написанием диалога.
Вот готовая процедура...
Public Sub Выбор_файла()
Dim диалог As FileDialog
Dim i As Integer
Dim doc As Document
'диалоговое окно "Открыть ..."
Set диалог = Application.FileDialog(msoFileDialogFilePicker)
'настройка диалога
With диалог
'заголовок диалогового окна
.Title = "Выбор файлов"
'название кнопки выбора
.ButtonName = "Выбрать"
'фильтр
.Filters.Clear
.Filters.Add "файлы Word", "*.doc*", 1
'разрешение выбирать несколько файлов
.AllowMultiSelect = False
'если пользователь нажал "OK"
If .Show = -1 Then
'для каждого выбранного файла
For i = 1 To .SelectedItems.Count
'некие действия с файлом
Set doc = Documents.Open(.SelectedItems(i))
Next i
'отмена
Else
'выход
GoTo следы
End If
End With
следы:
'следы
Set диалог = Nothing
End SubДа, я тогда не хотел париться с написанием диалога.
Вот готовая процедура...
Сергей спасибо, выручаете! Думал что больше не возникнет вопросов, но нет. С выбором файла откуда понятно, а выбор файла куда не нужен, т.к. это должен быть документ из которого вызывается макрос , поэтому в коде я прописал:
Set куда = ThisDocumentи теперь обнаружил, что эта команда переписывает свойства в сам шаблон, а не документ на основе этого шаблона. Вопрос в том, как задать файл куда именно документу открытому на основе шаблона?
Думал что больше не возникнет вопросов, но нет. С выбором файла откуда понятно, а выбор файла куда не нужен, т.к. это должен быть документ из которого вызывается макрос , поэтому в коде я прописал:
Set куда = ThisDocumentи теперь обнаружил, что эта команда переписывает свойства в сам шаблон, а не документ на основе этого шаблона. Вопрос в том, как задать файл куда именно документу открытому на основе шаблона?
Я сам решил этот вопрос! Менял ThisDocument на ActiveDocument, но активным документом на момент выполнения кода являлся файл откуда. Поменял в коде строки файлов откуда и куда местами, и все стало как надо! Всем спасибо!
Молодчина 
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться