Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Курилка
Страницы: 1
RSS
Замена текста из Excel в текстовом поле Word (VBA), Замена текста из Excel в текстовом поле Word (VBA)
 
#1
18.07.2024 06:40:52
Здравствуйте. Вставил в документ Word текстовое поле (Вставка - Текстовое поле), ввел в него текст. Проверил - встроенная функция Word заменяет в нем текст так же, как и любой другой, при записи макроса выдает стандартный код vba для замены текста.
При запуске этого скрипта из Excel замена обычного текста работает, текста в поле - нет. Пожалуйста, дайте пример, как обратиться к тексту внутри текстового поля.
Sub Макрос1()
Код
'
' Макрос1 Макрос
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "99887766"
        .Replacement.Text = "работает"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 
 
 
#2
18.07.2024 08:02:15
Вопрос по VBA в Word к Excel'ю имеет весьма отдаленное отношение. Продолжайте обсуждение в Курилке
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
18.07.2024 08:23:02
можете закрывать тему, нашел.
Код
Set wa = CreateObject("Word.Application")
Set wd = wa.Documents.Open(f)
wa.Activate
msgbox wd.Shapes.Range(wd.Shapes.Count).TextFrame.TextRange.Text
 
 
 
#4
18.07.2024 08:24:28
Зачем же ее закрывать - может еще кому пригодится
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
18.07.2024 08:28:11
можете закрывать тему, нашел.
Код
Set wa = CreateObject("Word.Application")
Set wd = wa.Documents.Open(f)
wa.Activate
msgbox wd.Shapes.Range(wd.Shapes.Count).TextFrame.TextRange.Text
 
 
 
Страницы: 1
Наверх