Hej!

Fann nedan exempel här på Pellesoft.
Har tidigare fått det att fungera (förra året)
men nu blir det följande fel.

-----------------------------------------
Run-time error '-2147023113(800706f7)'

Method 'Execute' of object 'Find' failed.
-----------------------------------------

Använder Microsoft Word 10.0 Object Library
som referens, har inte 9.0 som i exemplet.
Bör väl fungera även med 10:an eller?

Dim WordApp As Word.Application
Dim WordRange As Word.Range
Set WordApp = CreateObject("Word.Application")

'Öppna mallen
WordApp.Documents.Open App.Path & "\mall.doc", , True, False

'Anger hela dokumentet som sökområde
Set WordRange = WordApp.ActiveDocument.Content
'Letar reda på strängen som skall bytas ut
WordRange.Find.Execute FindText:="<Namn>", Forward:=True
'Om strängen hittas ersätts den
If WordRange.Find.Found = True Then
WordRange = "Förnamn Efternamn"
End If

'Visar Word-dokumentet
WordApp.Visible = True

Set WordRange = Nothing
Set WordDoc = Nothing
Set WordApp = Nothing

Hälsning
Pontus

Hej ! hade också problem med att få koden att köra i 10.0, jag löste det genom ett par ändringar.

Istället för denna kod:

Dim WordApp As Word.Application
Dim WordRange As Word.Rang
Set WordApp = CreateObject("Word.Application")

fick jag använda följande:

Dim WordApp As object
Dim WordRange As object
Set WordApp = CreateObject("Word.Application")

Alltså använde jag object på alla ställen där jag dimmar en variabel mot ett word objekt och det löste mina problem.

/C

Tack så mycket för hjälpen!
Fungerade fint nu.

Pontus