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. Skrivet ur huvudet. ej testat.Text från VB
Set WordRange = WordApp.ActiveDocument.Content
WordRange.Find.Execute FindText:="<Namn>", Forward:=True
If WordRange.Find.Found = True Then
WordRange = "Förnamn"
End If
AndersSv: Text från VB
<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>