Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[35.153.106.141] |
|
Сообщ.
#1
,
|
|
|
Здравствуйте!!! Мне нужно во всех таблицах текстового документа DOC заменить определенное слово(предложение) на другое. Помогите пожалуйста?! За раннее спасибо!
|
Сообщ.
#2
,
|
|
|
Aleksey_Kos, у тебя проблема в том, чтобы заменить слово только в таблицах, а вне таблиц оставить что-ли?
procedure TForm1.Button1Click(Sender: TObject); const wdReplaceOne = 1; wdReplaceAll = 2; wdDoNotSaveChanges = 0; wdFindStop = 0; wdFindContinue = 1; wdFindAsk = 2; var WordApp: OleVariant; i: integer; begin WordApp := CreateOLEObject('Word.Application'); WordApp.Visible := False; WordApp.Documents.Open('F:\Programs\tbls.doc'); WordApp.Selection.Find.ClearFormatting; WordApp.Selection.Find.Text := 'old'; WordApp.Selection.Find.Replacement.Text := 'new'; WordApp.Selection.Find.Forward := True; WordApp.Selection.Find.Wrap := wdFindStop; // <--- WordApp.Selection.Find.Format := False; WordApp.Selection.Find.MatchCase := False; WordApp.Selection.Find.MatchWholeWord := False; WordApp.Selection.Find.MatchWildcards := True; WordApp.Selection.Find.MatchSoundsLike := False; WordApp.Selection.Find.MatchAllWordForms := False; for i := 1 to WordApp.ActiveDocument.Tables.count do begin WordApp.ActiveDocument.Tables.Item(i).Select; WordApp.selection.Find.Execute(Replace := wdReplaceAll); end; WordApp.ActiveDocument.SaveAs('F:\Programs\tbls.doc'); WordApp.ActiveDocument.Close(wdDoNotSaveChanges); WordApp.Quit; WordApp := Unassigned; end; |
Сообщ.
#3
,
|
|
|
Спасибо большое! Вообще мне нужно заменить слово и в таблице и вне таблицы(в тексте), но для текста я уже сделал. Завтра проверю твой код, спасибо!
Добавлено Спасибо, работает. Еще хотел бы узнать такую вещь... Можно ли заменить слово в поле ввода. Я имею в виду - домустим есть у нас блок-схема с разными блоками, в блоке написано слово, вот - можно ли это слово заменить программно?! |
Сообщ.
#4
,
|
|
|
volvo877 Еще хотел бы узнать такую вещь... Можно ли заменить слово в поле ввода. Я имею в виду - домустим есть у нас блок-схема с разными блоками, в блоке написано слово, вот - можно ли это слово заменить программно?!
|