Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Visual Basic: Открыть Word документ, и сделать изменения

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2

Открыть новую тему     Написать ответ в эту тему

xntx



хнотик-багоискатель		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Troitsky
все, это уже заработало, спасибо
Всего записей: 5169 | Зарегистр. 15-02-2003 | Отправлено: 03:39 11-10-2004
timprog

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как с помощью VB открыть вордовскую страницу с текстом и разбить весь текст на блоки по пять предложений в каждом. Я в vb не шарю, поэтому нужна ваша помощь.
Всего записей: 178 | Зарегистр. 14-09-2004 | Отправлено: 15:26 27-02-2005
zeleniy



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Вот незадача... Нужно на VB открыть вордовский документ, повставлять слова всякие (в определенные места) а потом его сохранить с определенным именем.

 
У меня есть тоже приблизительно такая же задача. Как я ее решил.
В Word есть очень хорошая вещь "поля" создаем документ. Устанавливаем две панели - "формы" и "элементы управления".
С помощью панели "формы" создаем поля в документе в том месте где нам надо. Далее я делаю защиту документа, т.е.е разрешаю пользователю запись только в эти поля. Далее внешняя программа открывает документ Word ( не показывая его) заносит в поля нужуную информацию и показывает его пользователю чтобы он заполнил свои поля. По окончании ввода пользователь нажимает кнопку (command button)  которая фиксирует данные в полях и закрывает их от редактирования.
Всего записей: 777 | Зарегистр. 07-12-2001 | Отправлено: 10:01 28-02-2005
altamatick

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста... Уперто не работает =(  
 
        Word = CreateObject("Word.Application")
        Word.visible = True
        oDoc = Word.Documents.Add(ProtocolTemplate)
 
        With Word.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "[слово]"
            .Replacement.Text = "Замена!!!!!!!!"
            .Forward = True
            '.Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute(Replace:=wdReplaceAll)
        End With
 
ругаеться на wdFindContinue и wdReplaceAll - переменная не объявлена
 
Добавлено:
Может кому пригодиться, вот так работает
 
 Dim WordApp = New Word.Application
        WordApp.Visible = True
        Dim oDoc = WordApp.Documents.Add(ProtocolTemplate)
 
        With WordApp.ActiveDocument.Application.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "["
            .Replacement.Text = "Замена!!!!!!!!"
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute(Replace:=Word.WdReplace.wdReplaceAll)
        End With
Всего записей: 1 | Зарегистр. 15-11-2014 | Отправлено: 17:32 15-11-2014
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Visual Basic: Открыть Word документ, и сделать изменения


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru