Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с Word'ом / 3 сообщений из 3, страница 1 из 1
10.12.2006, 21:42
    #34188750
hamster_map
hamster_map
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с Word'ом
Подскажите плиз...

создаю документ 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
| Ответить | Цитировать | Написать  
11.12.2006, 14:33
    #34190340
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с Word'ом
Просто табличка заменяет область с текстом. Попробуй следующим образом.

Код: 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, 22:05
    #34191716
hamster_map
hamster_map
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите с Word'ом
Грасиас
пойду проверять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите с Word'ом / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 530ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164831]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 207ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 240ms
total:  530ms
x
x
Закрыть


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