ole word.application (OpenInsight 32-Bit) [Revelation On-Line Wiki]

OpenInsight 32-Bit, Barry Stevens

Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community

At 26 MAY 2010 08:58:20PM Barry Stevens wrote:

I have a word document that is the result of a word merge that is saved.

I then need to be able to replace text in the document.

The record macro to do this a follows, which I need 'decoded' into OLE commands. (I have a couple of fields to replace so if this makes a difference please show).

Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
      .Text=NEWSPAPER_INSERTION_DATES"
      .Replacement.Text=FRIDAY 28th MAY 2010; MONDAY 31st MAY 2010"
      .Forward=True
      .Wrap=wdFindContinue
      .Format=False
      .MatchCase=False
      .MatchWholeWord=False
      .MatchWildcards=False
      .MatchSoundsLike=False
      .MatchAllWordForms=False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
tia

-Barry