Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 3 ]
- jaroslav
- сержант
- Неактивен
- Зарегистрирован: 07.05.2010
- Сообщений: 29
Тема: Замена текста на значения из книги ексель
Добрый день.
Как можно заменить в целом документе текст типа Workbooks("Книга1").Sheets("Лист1").Cells(2, 3)
Workbooks("Книга1").Sheets("Лист2").Cells(5, 7)
Workbooks("Книга1").Sheets("Лист3").Cells(1, 2)
и т. д.
на значения из книги ексель:
Workbooks("Книга1").Sheets("Лист1").Cells(2, 3) (например, 10,2)
Workbooks("Книга1").Sheets("Лист2").Cells(5, 7) (например, -5680,0)
Workbooks("Книга1").Sheets("Лист3").Cells(1, 2) (например, 0,0)
и т. д.
- jaroslav
- сержант
- Неактивен
- Зарегистрирован: 07.05.2010
- Сообщений: 29
Re: Замена текста на значения из книги ексель
Нашел метод замены через ексель.
With Word.application
With .Selection.Find
.ClearFormatting
.Text = "<9_9*9_9>" ' между 9_9 стоит, например, Лист1!C39
.Replacement.Text = ""
.MatchWildcards = True
.Forward = True
.Wrap = wdFindContinue
End With
While .Selection.Find.Execute
kk = Replace(.Selection.Text, "9_9", "")
Sheets("Лист1").Range("A1").Formula = "=" & kk
.Selection.Find.Replacement.Text = Workbooks(s3).Sheets(1).Range("A1") ' где s3 - имя активной книги ексель
.Selection.Find.Execute Replace:=1
Wend
End With
Только есть одна проблема: текст: "Лист1!C39" заменяется на значения из книги ексель только 1 раз. Потом ворд в поле Найти ищет это значения, а не .Text = "<9_9*9_9>".
Подскажите, пожалуйста где я ошибся.
- jaroslav
- сержант
- Неактивен
- Зарегистрирован: 07.05.2010
- Сообщений: 29
Re: Замена текста на значения из книги ексель
Вот решения вопроса:
With Word.application
With .Selection.Find
.ClearFormatting
.Text = "<9_9*9_9>" ' между 9_9 стоит, например, Лист1!C39
.Replacement.Text = ""
.MatchWildcards = True
.Forward = True
.Wrap = wdFindContinue
While .Execute
.Parent.Text = Replace(.Parent.Text, "9_9", "")
Sheets("Лист1").Range("A1").Formula = "=" & .Parent.Text
.Parent.Text = Replace(.Parent.Text, .Parent.Text, Workbooks(s3).Sheets(1).Range("A1")) ' где s3 - имя активной книги ексель
Wend
End With
End With
Сообщений [ 3 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Замена текста на значения из книги ексель
В своей деятельности вы наверняка пользуетесь таким мощным текстовым редактором, каким является Microsoft Word. На портале о Microsoft Office Word вы узнаете про: работа с текстом в ворде 2010.
И, конечно, если работа с текстами в Ворде составляет значительную долю вашего труда, вам приходила в голову мысль о том, как оптимизировать ее. На портале о Microsoft Office Word вы узнаете про: знак абзаца но не абзац.
Этот вопрос является приоритетным на форуме Ворд Экспер, посвященном работе с различными версиями программы. Наш сайт о Microsoft Office Word даст ответ про: как отсканированную таблицу вставить в эксель.
Форум, прежде всего, ориентирован на написание разнообразных макросов и шаблонов для Ворда. Тут есть готовые решения той или иной задачи, разбираются различные пути. Наш сайт о Microsoft Office Word даст ответ про: создание бланка письма.
Вы найдете все о макросах – от самых азов для новичков, до тонкостей, которыми делятся друг с другом опытные пользователи. На портале о Microsoft Office Word вы узнаете про: при установке windows 7 нет документа в ворде что делать.
В одном из подразделов форума вы можете оставить описание своей проблемы и сделать заказ на разработку макроса или шаблона. Наш сайт о Microsoft Office Word даст ответ про: как умножать в майкрософт офис ворд.
Конечно, автоматизация, не единственная тема форума. Здесь обсуждаются настройки различных версий Ворда и любые другие вопросы, связанные с самой программой, редактированием, написанием, рецензированием текстов в Ворде. На портале о Microsoft Office Word вы узнаете про: microsoft office 2010 где находиться автоформат.
Самым часто возникающим проблемам посвящен отдельный раздел, который стоит посетить в первую очередь. На портале о Microsoft Office Word вы узнаете про: почему не преобразуются формулы в микросовт верде.
Если у вас есть чем поделиться с другими пользователями Ворда, вы можете выкладывать свои решения в соответствующих подразделах. Наш сайт о Microsoft Office Word даст ответ про: как выровнять всю таблицу по центру в word на delphi.