Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символов / 9 сообщений из 9, страница 1 из 1
10.10.2006, 05:10:45
    #34043102
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
Задача следующая:
необходимо создать макрос, который запускается в Excel. Он должен открывать txt-файл в Word и выполнять замену символов. С первой частью проблем нет - файл открывается. Однако замена символов из под Excel не происходит, хотя при запуске из под Word всё работает. Код ниже:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Visible = True
        .Documents.Open Filename:="C:\WorkSpace\ttt.txt"
        .Selection.WholeStory
            With .Selection.Find
                                .ClearFormatting
                                .Replacement.ClearFormatting
                                .Text = ","
                                .Replacement.Text = "^t"
                                .Forward = True
                                .Execute Replace:=wdReplaceAll
            End With
Помогите разобраться. Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2006, 07:12:45
    #34043139
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
Вот у меня работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub t()
    Dim objWordApp As Word.Application
    Set objWordApp = New Word.Application
    With objWordApp
        .Documents.Open "C:\Temp\1.txt"
        With .Selection
            .WholeStory
            .Find.ClearFormatting
            .Find.Replacement.ClearFormatting
            With .Find
                .Text = ","
                .Replacement.Text = "^t"
                .Forward = True
                .Execute Replace:=wdReplaceAll
            End With
        End With
        .ActiveDocument.Save
        .ActiveDocument.Close
        .Quit
    End With
    Set objWordApp = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2006, 07:52:05
    #34043167
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
orunbek
Код: plaintext
1.
2.
    Dim objWordApp As Word.Application
    Set objWordApp = New Word.Application
VBA выдает сообщение "Compile error: User-defined type not defined"

Код: plaintext
1.
2.
3.
4.
    With objWordApp
...
                .Execute Replace:=wdReplaceAll
...
End Sub
VBA выдает сообщение "Compile error: Variable not defined"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2006, 08:53:13
    #34043210
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
Ну вы там подключите ссылку к библиотеке Word'а в Project>References
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 00:39:50
    #34045813
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
orunbek
Спасибо, всё работает, в т.ч. и в моем варианте.
P.S. Можно ли из VBA проверять подключение библиотеки и в случае необходимости включать/выключать ее?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 01:17:31
    #34045821
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
SirFisherМожно ли из VBA проверять подключение библиотеки и в случае необходимости включать/выключать ее?
Можно. Через коллекцию VBProject.Refrences, методы AddFromFile/AddFromGuid и Remove.
Это естественно потребует ручного первичного подключения библиотеки MS VBA Extensibility и разрешения для VBA править VBProjects, а это потенциальная дыра для вирусов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 01:28:46
    #34045829
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
White Owl
Всё понятно. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 06:49:52
    #34045928
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
SirFisher orunbek
Спасибо, всё работает, в т.ч. и в моем варианте.
P.S. Можно ли из VBA проверять подключение библиотеки и в случае необходимости включать/выключать ее?
а из-за чего не работал ваш вариант?
White Owl SirFisherМожно ли из VBA проверять подключение библиотеки и в случае необходимости включать/выключать ее?
Можно. Через коллекцию VBProject.Refrences, методы AddFromFile/AddFromGuid и Remove.
Это естественно потребует ручного первичного подключения библиотеки MS VBA Extensibility и разрешения для VBA править VBProjects, а это потенциальная дыра для вирусов.
а если использовать цифровые подписи?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 07:30:04
    #34045945
SirFisher
SirFisher
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символов
orunbek
Не была подключена библиотека Word в References. Сейчас всё в порядке. Еще раз - спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символов / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 316ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184154]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 210ms
total:  316ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]