Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "OldText" .Replacement.Text = "NewText" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll
...QAxObject *selection=...->querySubObject(...);QAxObject *find = selection->querySubObject("Find");QAxObject *replasment = find->querySubObject("Replasement");replasment = selection->querySubObject("ClearFormatting");find->dynamicCall(".Text = \"const QVariant&\"",QVariant("OldText"));...
QAxObject * word = new QAxWidget("Word.Application"); word->setProperty("DisplayAlerts", "0"); word->setProperty("Visible", true); if (word) //у нас есть не нулевой указатель, это значит приложение такое установлено и мы к нему достучались QAxObject *selection = word->querySubObject( "Selection" ); if (selection) //это значит мы успешно получили указатель на обьект Selection QAxObject *find = selection->querySubObject( "Find" ); if (find) //это значит мы успешно получили указатель на обьект Find ...
QAxObject * word = new QAxObject("Word.Application");