VPF::[msword] Замена слова в прямоугольнике

admsasha

Дата 29.9.2006, 07:42 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 6

Вот код замены.

Код


     DocWord.Application.Selection.Find.ClearFormatting
      DocWord.Application.Selection.Find.Replacement.ClearFormatting
      With DocWord.Application.Selection.Find
           .text = "lalala": .Replacement.text = "blabla"
           .Forward = True: .Wrap = wdFindContinue: .Format = False
           .MatchCase = False: .MatchWholeWord = False: .MatchWildcards = False
           .MatchSoundsLike = False: .MatchAllWordForms = False
      End With
      DocWord.Application.Selection.Find.Execute Replace:=wdReplaceAll

Если в DOC документе стоит слово lalala то все отлично заменяется, но если слово находиться в прямоугольнике, то замены не происходит.

Пробывал из самого msword замена происходит везде и в прямоугольнике и вне его.

Что в этом коде нужно поменять что бы в прямоугольнике тоже заменялся текст ?

Прямоугольник - это элемент рисования, который в "панель рисования" находится.

P.S. использую office 2003

Тутанхамец

Дата 29.9.2006, 11:27 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: нет
Всего: 6

Если прямоугольник - это инструмент "Надпись", то у документа должна быть коллекция "Надписей", находящихся в документе. Перебираешь их все, и в них ищешь. Имхо.

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

Мой блог / Мои фотки / Моё Skolkobudet.ru

admsasha

Дата 29.9.2006, 14:14 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 6

Цитата(Тутанхамец @ 29.9.2006, 18:27

)

Прямоугольник - это он так в word и называется "прямоугольник", если идти по панели то:

"Рисование","выбор объекта","автофигуры","линия","стрелка","ПРЯМОУГОЛЬНИК"....

текст пишется с помощью "Добавить текст".

likhobory

Дата 30.9.2006, 10:14 (ссылка)

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

Загрузка ...

Опытный

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

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

копай здесь...

Код


ActiveDocument.Shapes(MyRectangle).TextFrame.TextRange.Text = "MyText"

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

TSC! Russia

likhobory

Дата 30.9.2006, 10:48 (ссылка)

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

Загрузка ...

Опытный

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

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

да, еще:

Цитата(admsasha @ 29.9.2006, 08:42

)

Вот код замены.

почему бы не поместить весь код внутрь конструкции With...,
символом разделения операторов советую не злоупотреблять - код будет гораздо симпатишшнее, значения по дефолту можно совсем убрать smile

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

TSC! Russia

admsasha

Дата 1.10.2006, 03:11 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 6

Цитата(likhobory @ 30.9.2006, 17:14

)

копай здесь...

код Visual Basic
ActiveDocument.Shapes(MyRectangle).TextFrame.TextRange.Text = "MyText"

А где им (прямоугольникам), названия давать ? что-то не нашел smile

Цитата(likhobory @ 30.9.2006, 17:48

)

Это код сгенерированный самим office, я только его в VB поставил и даже не заметил как он стоит по отношению к with... поправлю :-D

Cyric

Дата 2.10.2006, 19:10 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 27.4.2006
Где: Россия, г. Казань .

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

Цитата(admsasha @ 1.10.2006, 03:11

)

А где им (прямоугольникам), названия давать ? что-то не нашел

Тебе ведь в любом случае нужно перебирать все прямоугольники, не обязательно их для этого называть.
Делаешь что-то вроде этого

Код


for each shape in ActiveDocument.Shapes
     if shape.type =msoShapeRectangle Then
          if shape.TextFrame.TextRange.Text = "lalala" then shape.TextFrame.TextRange.Text = "blablabla"
          end if
     next

admsasha

Дата 3.10.2006, 04:47 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 6

Цитата(Cyric @ 3.10.2006, 02:10

)

for each shape in ActiveDocument.Shapes
     if shape.type =msoShapeRectangle Then
          if shape.TextFrame.TextRange.Text = "lalala" then shape.TextFrame.TextRange.Text = "blablabla"
          end if
     next

Теперь тоже самое только на VB smile

Добавлено @ 04:50

Цитата(Aloha @ 1.10.2006, 14:03

)

admsasha

В прикрепленном файле вариант решения

Менять надо из VB... а с самого offce заменяется текст даже моим кодом...

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