Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=453222 Wed, 08 Sep 2004 11:18:40 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=453222

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

ActiveWindow.Panes(2).Close

End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Dez-nomer"

.Replacement.Text = "yyy"

.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

на языке Си:

//Активизация колонтитула

if(WordApp->ActiveWindow->View->SplitSpecial != wdPaneNone)

{

WordApp->ActiveWindow->Panes->Item(2)->Close();

}

if ((WordApp->ActiveWindow->ActivePane->View->Type == wdNormalView)

&& (WordApp->ActiveWindow->ActivePane->View->Type == wdOutlineView))

{

WordApp->ActiveWindow->ActivePane->View->Type == wdPrintView;

}

WordApp->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageHeader;

WordApp->ActiveWindow->ActivePane->View->NextHeaderFooter();

if (WordApp->Selection->HeaderFooter->IsHeader == true)

{

WordApp->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageFooter;

}

else

{

WordApp->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageHeader;

}

WordApp->Selection->Find->ClearFormatting();

WordApp->Selection->Find->Replacement->ClearFormatting();

//Поиск и замена

OleVariant oldStr,newStr;

OleVariant EmptyPar=False;

OleVariant Yes=True;

oldStr=AnsiString("Dez-nomer");

newStr=AnsiString("xxx");

OleVariant Replace = wdReplaceAll;

WordApp->ActiveDocument->Range(EmptyParam,EmptyParam)->Find->Execute(oldStr,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

newStr,Yes);

Самое интересное, что ни этот код, ни макрос в колонтитуле не работают.
Я использую вордовский шаблон, где в колонтитул вставлена таблица. В одной из ее ячеек стоит "Dez-nomer", который нужно поменять. При активизации колонтитула данные в ячейках странно себя ведут: то они активны, то они приглушены (на языке С++ это Enabled = false). Но в том, и другом случае поиск и замена отсутствуют. Несколько раз макрос отрабатывался, но по большей части он игнорирует фразу по запросу поиска. Я бы не суетилась, если бы макрос постоянно не работал, но почему через раз... Тогда мне не понятно, как добраться до данных в таблице, которая находится в колонтитуле.
И еще важный момент: когда я открываю колонтитул на двойной щелчок (без участия макроса), а затем запускаю макрос на поиск фразы и ее замену, то макрос работает. Дело, наверное, в самом шаблоне, но его делали несколько лет назад. Ворд я знаю неплохо, но не могу разобраться, в чем причина. И стили проверила, и все свойства.
Может кто-нибудь знает ответ на мой вопрос?
И еще: если эти два куска (активизация колонтитула и поиск фразы) исполнять по отдельности, то они работают как надо. Только поиск фразы осуществляется по всему документу, не затрагивая колонтитул.]]> laifik Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452590 Tue, 07 Sep 2004 15:49:41 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452590 Цитата SmK,7.09.04, 16:21

А почему нельзя сделать Dll на Бейсике и уже его использовать в C ?
Или я чего то непонимаю или так гораздо проще, если код на Бейсике уже есть.

Это уже высший пилотаж. Я не умею это делать. Зато Ворд из Билдера загружаю со многими возможностями. И мне даже интересно довести это до конца.
Далее я еще хочу осуществить формирование оглавления на основе заголовков со стилями.
А что касается использования VBA, то можно прикрепить макрос, но хочется обойтись без него.]]> Guest Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452514 Tue, 07 Sep 2004 14:17:49 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452514

WDoc->Sections->Item(1)->get_Range()->Find->Execute(...

WDoc->Sections->Item(1)->Headers->Item(wdHeaderFooterFirstPage)->Range->Find

WDoc->Sections->Item(wdHeaderFooterType)->Headers->Item

(wdHeaderFooterFirstPage)->Range->Find

]]> Bas Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452470 Tue, 07 Sep 2004 13:21:59 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452470 Или я чего то непонимаю или так гораздо проще, если код на Бейсике уже есть.]]> SmK Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452421 Tue, 07 Sep 2004 12:31:41 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452421

//Найти в колонтитуле и изменить

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "Dez_nomer"

.Replacement.Text = "rr"

.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

С огромным трудом, но удалось перевести на Си.
Получилось вот что:

//Активизация колонтитула

WordApp->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageHeader;

WordApp->ActiveDocument->Range(EmptyParam,EmptyParam)->Find->ClearFormatting();

WordApp->ActiveDocument->Range(EmptyParam,EmptyParam)->Find->Replacement->ClearFormatting();

//Замена слова

OleVariant oldStr,newStr;

OleVariant EmptyPar=False;

OleVariant Yes=True;

oldStr=AnsiString("Dez_nomer");

newStr=AnsiString("xxx");

WordApp->ActiveDocument->Range(EmptyParam,EmptyParam)->Find->Execute(oldStr,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

newStr,Yes);

Вроде все правильно, но происходит активизация колонтитула, а замена слова почему-то нет. Если повнимательнее присмотреться к первому коду, посоветуйте, чего мне не хватает во втором?]]> laifik Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452162 Tue, 07 Sep 2004 08:05:45 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452162 Цитата laifik,7.09.04, 07:42

OleVariant tr = AnsiString("true");

Bas, вот в этой фразе я сморозила глупость. Обратила внимание, когда увидела Ваш код. Спасибо большое.
Но на этом вопрос не закончился.
А если текст "Текст номера" находится в колонтитуле. То как активизировать колонтитул на языке Си и заменить в нем фразу? Опять же, на Бейсике все понятно.]]> laifik Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452136 Tue, 07 Sep 2004 07:50:31 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452136

OleVariant oldStr,newStr;

OleVariant EmptyPar=False;

OleVariant Yes=True;

oldStr=AnsiString("@3");

newStr=AnsiString(MaskEdit1->Text);

WApp->ActiveDocument->Range(EmptyParam,EmptyParam)->Find->Execute(oldStr,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

newStr,Yes);

Добавлено в 07.09.04, 07:52:
Работаем с Word, COM]]> Bas Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452133 Tue, 07 Sep 2004 07:46:05 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452133 на бейсике это так потому что это родной вордовский "объект". :)
В си тебе придётся создавать OLE объекты, подключаться к ворду и там уже исполнять VBA макросы.]]> Song Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452128 Tue, 07 Sep 2004 07:42:58 +0000 Замена слова в Ворде https://forum.sources.ru/index.php?showtopic=65244&view=findpost&p=452128 На Бейсике это так:

Selection.Find.Execute

With Selection.Find

.Text = "Текст номера"

.Replacement.Text = "1052-426-003"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

With Selection

If .Find.Forward = True Then

.Collapse Direction:=wdCollapseStart

Else

.Collapse Direction:=wdCollapseEnd

End If

.Find.Execute Replace:=wdReplaceOne

If .Find.Forward = True Then

.Collapse Direction:=wdCollapseEnd

Else

.Collapse Direction:=wdCollapseStart

End If

.Find.Execute

End With

End Sub

Пробую перевести на язык Си, ничего не получается.
Прошу учесть, что Ворд у меня уже открыт, документ создан, нужно найти только фразу "Текст номера" и заменить ее на "1052-426-003".
Читала справку Ворда, там приблизительно так же. Зато в самом Билдере после

WordApp->Selection

Find в структуре не числится. Есть только get_Find, но опять же не получается его прикрепить.
На форуме нашла

OleVariant oldStr=AnsiString("Текст номера");

OleVariant newStr=AnsiString("1052-426-003");

OleVariant tr = AnsiString("true");

WordApp->ActiveDocument->Range(EmptyParam,EmptyParam)->Find->Execute(oldStr,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,

newStr,tr);

но задача не выполняется, работа Ворда прерывается. Подскажите работающий код, пожалуйста! :(]]> laifik Borland C++ Builder/Turbo C++ Explorer