ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с Word'ом
3 сообщений из 3, страница 1 из 1
помогите с Word'ом
    #34188750
hamster_map
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hamster_map
Гость
Подскажите плиз...

создаю документ word
вношу данные
сам по себе этот кусок работает (текст видно)

' создай документ Word
Dim objWord As Word.Application
Dim objDoc As Word.Document
' Запускаем Word
Set objWord = New Word.Application
objWord.Visible = True
' Создаем новый документ
Set objDoc = objWord.Documents.Add

objDoc.ActiveWindow.Selection.InsertAfter "какой то текст"
objDoc.ActiveWindow.Selection.InsertParagraphAfter

потом создаю и заполняю таблицу

Dim objTable As Word.Table
Set objTable = objDoc.Tables.Add(objDoc.Range(), 1, 2)

objTable.Cell(1, 1).Range.Text = "Названия"
objTable.Cell(1, 2).Range.Text = "Названия"

а текст исчезает
что не так????

как правильно вводить текст и таблицы
и как вставить картинку в документ?
...
Рейтинг: 0 / 0
10.12.2006, 21:42
| Ответить | Цитировать | Написать  
помогите с Word'ом
    #34190340
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Просто табличка заменяет область с текстом. Попробуй следующим образом.

Код: plaintext
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.
Public Sub AddText()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objTable As Word.Table
    Dim rng As Word.Range

    Set objWord = New Word.Application
    objWord.Visible = True

    Set objDoc = objWord.Documents.Add
    Set rng = objDoc.Range

    ' Добавить текст.
    rng.InsertAfter "Какой то текст"
    rng.InsertParagraphAfter
    rng.InsertAfter "Какой то текст 2"
    rng.Collapse Direction:=wdCollapseEnd

    ' Добавить таблицу.
    Set objTable = objDoc.Tables.Add(rng,  1 ,  2 )
    objTable.Cell( 1 ,  1 ).Range.Text = "Название 1"
    objTable.Cell( 1 ,  2 ).Range.Text = "Название 2"
    
    Set rng = objTable.Range
    rng.Collapse Direction:=wdCollapseEnd
    
    ' Добавить картинку.
    rng.InlineShapes.AddPicture _
      Filename:="D:\1\image.jpg", _
      LinkToFile:=False, _
      SaveWithDocument:=True
End Sub
...
Рейтинг: 0 / 0
11.12.2006, 14:33
| Ответить | Цитировать | Написать  
помогите с Word'ом
    #34191716
hamster_map
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hamster_map
Гость
Грасиас
пойду проверять
...
Рейтинг: 0 / 0
11.12.2006, 22:05
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с Word'ом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34191716&tid=2164831]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 239ms
total:  354ms
созд. / загр.: 354ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]