Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/35: Рейтинг темы: голосов - 35, средняя оценка - 4.71
matresh
161 / 17 / 2
Регистрация: 14.07.2011
Сообщений: 74
1

Вставка данных из excel в word

02.10.2012, 10:55. Просмотров 7094. Ответов 3
Метки нет (Все метки)

Всем привет!
Подскажите пожалуйста решение следующей проблемы.
В Excel имеется столбец значений. Так же есть word файл. Он является шаблоном.
Необходимо что бы значение ставилось в определенное место. И это же значение присваевалось word файлу и он сохранялся, а шаблон оставался тем же?
Набросал следующий код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
    Set wa = CreateObject("Word.Application")
 
    wa.Visible = True    ' äåëàåì Word âèäèìûì
    
    Set wd = wa.Documents.Open("C:\Documents and Settings\шаблон.docx")
 
            wsh.Range("A1").Copy
            
            wd.Bookmarks.Item("ФИО").Range.Paste 'ФИО-наименование закладки
            wd.SaveAs Filename = soh & wsh.Range("A1").Value & ".doc" 'soh-директория для сохранения
          
            wd.Close True
            wa.Quit
Почему то он меняет шаблон и не сохраняет в нужной директории
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.10.2012, 10:55
Ответы с готовыми решениями:

Вставка данных из Excel в шаблон WORD
Проблема такая: Есть файл Excel из которогоданные вставляются в шаблон word? Все вставляется куда...

Вставка данных из таблицы Excel в Word и конвертировать в текст
Добрый день. Помогите пожалуйста совсем новичку с такой проблемкой. Есть макрос в Excel, который...

Вставка данных буфера обмена в Excel из макроса, выполняющегося в Word
Мне нужно очень срочно сделать передачу данных из Word'а в Excel, мне казалось самым простым будет...

Вставка текста из Excel в Word
Здравствуйте, ув. форумчане. Помогите начинающему. У меня есть экселевский файл с реквизитами...

3
Скрипт
5454 / 1135 / 49
Регистрация: 15.09.2012
Сообщений: 3,434
02.10.2012, 11:37 2
matresh, не знаю, в чём у вас проблема.
Если вам нужно создать документ на основе шаблона, то используйте метод Documents.Add.
0
matresh
161 / 17 / 2
Регистрация: 14.07.2011
Сообщений: 74
02.10.2012, 12:16  [ТС] 3
Скрипт, скажи если использовать Documents.Add он будет использовать тот шаблон который я ему задам и при этом все форматирование будет сохраняться?
0
Скрипт
5454 / 1135 / 49
Регистрация: 15.09.2012
Сообщений: 3,434
02.10.2012, 12:22 4
matresh,
  1. назначение шаблона в программе Word - это быстрое создание документа с нужным текстом и форматированием, поэтому естественно, что новый документ, созданный на основе шаблона будет содержать всё то же, что и содержится в шаблоне. На самом деле, при создании нового документа на основе шаблона, создаётся просто копия самого шаблона;
  2. чтобы узнать, что писать в коде, поместите строку Documents.Add в VBA в программе Word, поставьте курсор на Add и нажмите клавишу F1. Появится справка, в котором можно посмотреть подробности метода Add.
1
02.10.2012, 12:22
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.10.2012, 12:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вставка значений и в excel и в word
Приветствую... Вопрос следующий... У меня есть форма, на ней пользователь вводит свои значения, по...

Добавление срок в таблицу Word при заполнении документа Word из данных Excel
Всем привет! Я новичок в этом деле и нужна помощь. Есть таблица Excel с данными на основании...

Перенос данных из Excel в Word (на основе Word шаблона)
Пожалуйста помогите, приведите какой-то пример как организовать этот процесс нужно из...

Передача данных из Excel в Word (через Закладки) из нескольких страниц Excel
Товарищи прошу помощи! В книге есть 3 закладки: Org - данные об организации (только 1 строчка...


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

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

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