Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Из Word сохранить Selection в MS Access. 
:(
    Опции темы
swetik1981
Дата 6.8.2012, 23:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 20.12.2007

Репутация: нет
Всего: нет



При помощи простой программки в VBA пользователь нажатием правой кнопки сохраняет данные, выделенные в вордовском документе, в базу данных Access, содержащую единственную таблицу Ranges с единственным полем Range (тип - MEMO):

Код

Public WithEvents App As Word.Application 
Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean) 
 Dim cn As New ADODB.Connection 
 Dim rs As New ADODB.Recordset 

 With cn 
 .Provider = "Microsoft.Jet.OLEDB.4.0" 
 .ConnectionString = "Data Source=C:\1.mdb" 
 .Open 
 End With 
 rs.Open "SELECT * FROM Ranges", cn, adOpenStatic, adLockOptimistic 
 rs.AddNew 
 rs("Range") = Selection 
 rs.UpdateBatch 
 rs.Close 
 cn.Close 
End Sub


Но этот код сохраняет исключительно чистый текст. 
 Но мне надо, чтобы сохранялся текст со всем форматированием (выделение жирным. курсивом, цветом, размером и видом шрифта и т.д.). Как это реализовать из VBA в Word (необходимо для дальнейшего использования этих формативрованных текстовых фрагментов для последующей вставки в документы).
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0666 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.