VPF::Экспорт в Word - Форум программистов

Guest

Дата 10.9.2005, 10:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Private Sub Command1_Click()
X = "жопа"
Y = "жопа-2"
Set Word = CreateObject("Word.Basic")
Word.AppShow
Word.FileNew
Word.Insert X
Word.Insert Y
End Sub

БУДЕТ ЗАПУЩЕН WORD И БУДЕТ ВСТАВЛЕНО ЖОПА В НОВЫЙ ДОКУМЕНТ

а как сделать чтобы вставлялись таблицы, графические объекты, текст выравненный по ширине, по центру.
Как осуществить чтобы эти 2 слова вставились не один за другим, а с новой строки. С нового абзаца.

Gannibal

Дата 10.9.2005, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

http://hardware.org.ru/faq/answ.php?id=5370
http://azbukavb.narod.ru/teorie/word.html

http://vbrussian.com/Article.asp?ID=98 Работа с Word - Работа с графическими объектами в Word (часть 1)
http://vbrussian.com/Article.asp?ID=99 Работа с Word - Работа с графическими объектами в Word (часть 2)
http://vbrussian.com/Article.asp?ID=91 Работа с Word - Создание, открытие, форматирование, закрытие и сохранение
http://vbrussian.com/Article.asp?ID=92 Работа с Word - Добавление текста в документ Word
http://vbrussian.com/Article.asp?ID=93 Работа с Word - Добавление текста в документ Word (Продолжение)
http://vbrussian.com/Article.asp?ID=94 Работа с Word - Работа с таблицами в Word (часть 1)
http://vbrussian.com/Article.asp?ID=95 Работа с Word - Работа с таблицами в Word (часть 2)
http://vbrussian.com/Article.asp?ID=96 Работа с Word - Работа с таблицами в Word (часть 3)

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Guest

Дата 10.9.2005, 21:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

круто.
еще вопросик по теме:
программа запускает word открывает документ с текстом. В этом тексте есть постоянный текст и переменный.
в TextBox пользователем вводится слово, которым в открытом документе заменяется переменный текст, постоянный текст не меняется.
как сделать?

Gannibal

Дата 10.9.2005, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

вот код проги... писал как то давно smile

а так ещё файл щас закачаю пошлю

Код


Option Explicit

Dim WordApp As Object
Dim DocWord As Object

Private Sub cmdFindReplace_Click()
    UpravSablonu txtSource.Text, txtReplace.Text
End Sub

Private Sub cmdPrint_Click()

'print dokumenta
With DocWord
    .Activate
    .PrintPreview
    .PrintOut
End With
'zakryt dokument
DocWord.Close True
WordApp.Quit True
End Sub

Private Sub cmdShowDoc_Click()
WordApp.Visible = True
End Sub

Private Sub Form_Load()
On Error GoTo chyba
'sozdadim aplikaciyu word

Set WordApp = CreateObject("Word.Application")
'sprjachem jejo
WordApp.Visible = False
'otkroem fajl
Set DocWord = WordApp.Documents.Open(App.Path & "\proba.doc")
'sdelaem ego aktivnym
DocWord.Activate

Exit Sub

chyba:

If Err.Number = 429 Then
    'word nenainstalirovan
    '
End If



End Sub

Public Function UpravSablonu(sfind As String, sreplace As String)
Dim Nalezeno As Boolean
'iwem pervoe slovo kotoroe hotim pomenyat
WordApp.Application.Selection.Find.Text = sfind

'menyaem ego
Nalezeno = True
While Not Nalezeno = False
    With WordApp.Application.Selection
        .Find.Replacement.Text = sreplace
        .Find.Wrap = 1
        WordApp.Application.Selection.Find.Execute Replace:=1
        Nalezeno = .Find.Found
    End With
Wend
End Function

вот и файл для закачки http://servak.wz.cz/word.zip

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

likhobory

Дата 11.9.2005, 01:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 1
Всего: 20

позволю себе небольшое дополнение: поскольку WordApp уже ссылается на приложение, то WordApp.Application.Selection... вполне можем заменить на WordApp.Selection

--------------------

TSC! Russia

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »