Snälla någon som kan hjälpa mig håller på att försöka få in text från VB till Word, om jag vill lägga in <Efternamn> också hur ska jag lägga in det då. Måste jag skriva om hela denna för att ha en till eller kan jag få in fler här.


Set WordRange = WordApp.ActiveDocument.Content
WordRange.Find.Execute FindText:="<Namn>", Forward:=True
If WordRange.Find.Found = True Then
WordRange = "Förnamn"
End If

Anders

Skrivet ur huvudet. ej testat.

<code>
Dim namn(0 To 2) As String, namn2(0 To 2) As String
namn(0) = "<Namn>"
namn2(0) = "Förnamn"
namn(1) = "<Mellannamn>"
namn2(1) = "Mellannamn"
namn(2) = "<Efternamn>"
namn2(2) = "Efternamn"

for i = 0 to 2
Set WordRange = WordApp.ActiveDocument.Content
WordRange.Find.Execute FindText:=namn(i), Forward:=True
If WordRange.Find.Found = True Then
WordRange = namn2(i)
next
</code>