Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.89
new_pingvi
0 / 0 / 0
Регистрация: 09.07.2010
Сообщений: 1
#1

Doc Property как? - VBA

12.07.2010, 17:59. Просмотров 1179. Ответов 0
Метки нет (Все метки)

есть два поля (вставка-поле -DocProperty - Test1 и вставка-поле -DocProperty - Test2 )
Test1 присвоено значение ячейки из таблицы excel A2
Test2 присвоено значение ячейки из таблицы excel B2
столбцы в таблице заполнены со 2 по 5 тую строку (колонки A и B)
помогите решить проблему хочу что бы
на первом листе отображалось

первый лист
Привет1 (слово в колонке A2)
Пока1(слово в колонке B2)


второй лист
Привет2 (слово в колонке A3)
Пока2(слово в колонке B3)

и тд

расположение на листах в word одинаковое (одно слово под другим)
про слияние знаю но хочу сделать через Property, если это реально

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub AddProperty(sPropName As String)
 
Dim objCustomProperties As DocumentProperties
  Dim str As Variant
  Set objCustomProperties = ActiveDocument.CustomDocumentProperties
  
   'Попытка прочитать свойство с заданным именем
  str = objCustomProperties("Test1").Value
  str = objCustomProperties("Test2").Value
 
End Sub
 
 
Public Function GetProperty(sPropName As String) As String
    Dim objCustomProperties As DocumentProperties
    Set objCustomProperties = ActiveDocument.CustomDocumentProperties
  
 
    GetProperty = objCustomProperties(sPropName).Value
 
 
End Function
 
Sub Excel2Word()
  
  'Запуск Excel:
  Set Excel = CreateObject("Excel.Application")
  'Открытие файла:
  Set Workbook = Excel.Workbooks.Open("D:\12.xls")
   'Третий лист:
  Set Worksheet = Workbook.Worksheets(1)
  
  'Текст ячеек
        ActiveDocument.CustomDocumentProperties("Test1").Value = Worksheet.Range("A2").Text
        ActiveDocument.Fields.Update
        ActiveDocument.CustomDocumentProperties("Test2").Value = Worksheet.Range("B2").Text
        ActiveDocument.Fields.Update
           'Выход из Excel:
    Excel.Quit
    'Вставка в Word:
    Selection.InsertAfter (Text)
End Sub
как сделать так что бы Property копировало расположение полей в word и дублировало это расположение нужное количество раз (само количество зависит от того сколько строк заполнено в excel)

так выглядит документ excel
столбец A столбец B
Test1 Теst2
привет1 пока 1
привет2 пока 2
привет3 пока 3
привет4 пока 4
привет5 пока 5
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.07.2010, 17:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Doc Property как? (VBA):

Массив как член класса и процедура Property Get
Сделал я свой класс на VBA. Объявил одним из его членов массив переменной...

Как получить из VBA доступ к свойствам doc файла
Прошу помочь решить задачу. Нужно получить доступ из макроса на VBA к...

Property get value()
Господа, изначально в UserForm нет свойства Value. Если его задать при помощи...

Требуется написать программу которая сохраняет этот файл как txt файл с тем же самым именем но с удаленным doc расширением.
Помогите разрешить следующую задачу. Существует некий файл Name.xml.doc...

Не работает Property Get в VBA for AutoCAD
Вот часть описания класса объекта: Private dblStartAngle As Double Public...

Object doesn't support this property or method макрос
вот в этой строчке ошибка .DataBodyRange.FormulaFormulaR1C1 = "=AVERAGE(:])"...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.07.2010, 17:59
Привет! Вот еще темы с решениями:

Интересует метапрограммирование в VBA: способы работы с Property
у класса есть три свойства и три метода. Каждый из методов заполняет свое...

Как при нажатии кнопки "сохранить" выдать окно с выбором места сохранения и сохранить текст, написанный в ТекстБокс, в формате .doc(x)
Уважаемы дамы и господа! Требуется чтоб при нажатии кнопки "сохранить"...

Ошибка в VBA object doesn't support this property or method
Всем добрый день подскажите в чем ошибка object doesn't support this property...

Object doesn't support this property or method microsoft access 2010
Здравствуйте. Возникает такая ошибка: Object doesnt' support this property or...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru