Нужно сделать замену текста в договоре с помощью VBA

@Ser Artur · Регистрация: 19.07.2011

Author24 — интернет-сервис помощи студентам

Estj blank dogovora kak ee mojno izmenitj pri pomoshi Userform1 na kotorom estj TextBox1 i CommandButton1 V smysle v Textbox-e napisatj KOPYTA i on pomenjal ee vmesto OOO “ROGA I KOPYTA Ja v worde ne BUM BUM”

DOGOVOR

Erevan 11.12.2006

OOO “ROGA I KOPYTA” pomenjatj na “KOPYTA”

@Gleb1 · 01.06.2006, 18:25

Интересует ли Вас еще ответ на Ваш вопрос?

@Ser Artur · 01.06.2006, 18:36 **[ТС]**

Da estestvenno

@Gleb1 · 01.06.2006, 19:10

В документе в Word в требуемых местах вставьте закладки с конкретными именами.
В Excel в VBE через Tool-References подключите ссылку на библиотеку с Word.
В программе объявите массив, значения элементов которого должны точно соответствовать названиям закладок в документе в Worde, например:

Visual Basic

1	mas = Array("aaa", "bbb", "ccc")

.
Объявите еще один массив, например, buf, размерность которого должна равняться количеству закладок, и заполните его теми значениями, которые Вы хотите записать в документ в Worde в местах расположения закладок.
Далее в программе:

Visual Basic

    Set WordApp = CreateObject("Word.Application")
    Set DCell = Range("I1")  'ячейка, через которую будут передаваться значения в закладки
' bbb - переменная с именем Word-файла 
    With WordApp
        .Visible = True
        .Documents.Open FileName:=bbb, ReadOnly:=True
        Set WordDoc = .ActiveDocument
        .ScreenUpdating = False
            For I = 1 To UBound(mas) 
                DCell.Value = buf(I)
                DCell.Copy
                .Selection.GoTo What:=wdGoToBookmark, Name:=mas(I)
                .Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= wdInLine
                .Selection.Find.ClearFormatting
            Next I
            .Selection.GoTo What:=wdGoToBookmark, Name:=mas(1)
            .Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
          Next I
End With

В цикле в рабочую ячейку DCell помещаете вставляемое значение, копируете его. Переходите на нужную закладку и вставляете значение.

21.01.2007, 16:34

А есть ограничение на количество закладок в документе Word?

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
		1
	Нужно сделать замену текста в договоре с помощью VBA 26.05.2006, 18:50. Показов 2416. Ответов 4 Метки нет (Все метки) Estj blank dogovora kak ee mojno izmenitj pri pomoshi Userform1 na kotorom estj TextBox1 i CommandButton1 V smysle v Textbox-e napisatj KOPYTA i on pomenjal ee vmesto OOO “ROGA I KOPYTA Ja v worde ne BUM BUM” DOGOVOR Erevan 11.12.2006 OOO “ROGA I KOPYTA” pomenjatj na “KOPYTA” 0

@Gleb1 1 / 1 / 0 Регистрация: 19.05.2011 Сообщений: 80
	01.06.2006, 18:25	2
	Интересует ли Вас еще ответ на Ваш вопрос? 0

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
	01.06.2006, 18:36 [ТС]	3
	Da estestvenno 0

Float
	21.01.2007, 16:34	5
	А есть ограничение на количество закладок в документе Word?