Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Zaxelf
84 / 84 / 59
Регистрация: 14.05.2010
Сообщений: 223
1

Работа с word из excel

18.03.2011, 13:07. Просмотров 2097. Ответов 1
Метки нет (Все метки)

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim wd As Object
 
Public Sub newdoc()
Set wd = CreateObject("word.application")
wd.documents.Add
wd.Visible = True
End Sub
 
Public Sub t(s As String)
wd.Selection.TypeText (s)
End Sub
 
Sub test() ' эта процедура не работает
newdoc ' здесь ещё работает
t ("проверка") ' здесь ошибка "object required"
 
End Sub
Проблема в том, что в процедуре newdoc wd.Selection.TypeText ("текст") текст в документе есть , а как бы мне написать процедуру написания текста в документе и вызывать её? У меня появляется сообщение об ошибке "object required".
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2011, 13:07
Ответы с готовыми решениями:

Работа в Excel из Word
Ребят, подскажите пожалуйста решение такой задачи: есть отчет в Word из текста и таблиц с данными,...

Работа с Word из Excel
Здравствуйте. Помогите разобратся с взаимодействием ворда и екселя. У меня такой вопрос: Есть...

Из Word работа с Excel
Необходимо из Word осуществить поиск информации в Excel... На текущий момент смог открыть из...

Работа в Word через WBA в Excel
Нужна простенька программа, которая будет открывать документ word вставлять туда данные из excel и...

Работа с word через excel (передача строки)
Здравствуйте, возникла следующая проблемка, а точнее вопрос: Есть файл excel, который при...

1
Alex77755
10991 / 3447 / 593
Регистрация: 13.02.2009
Сообщений: 10,237
18.03.2011, 13:46 2
Никакой ошибки не выдало:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim wd As Object
 Sub Кнопка1_Щелкнуть()
 newdoc ' 
t ("проверка") '
  End Sub
Public Sub newdoc()
Set wd = CreateObject("word.application")
wd.documents.Add
wd.Visible = True
End Sub
 
Public Sub t(s As String)
wd.Selection.TypeText (s)
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.03.2011, 13:46

"работа с выделением Selection объекта word.Bookmarks и .shapes через excel"
Доброе время суток. Возникла проблема: Суть имеется 2 макроса оба запускаются из excel 1-ый...

Из Excel в Word / Задать количество листов для печати в Word
Добрый день многоуважаемые, надеюсь на ваш совет. Есть задание из Excel таблицы переносить...

Из Excel в Word, как добавить или сохранить закладку в Word
Добрый день, уважаемые форумчане, надеюсь на вашу помощь. Переношу данные из Excel в шаблон...


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

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

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