$objSelection.TypeText("Homepage: ")
;Insert and select hyperlink and set font and attributes for the selection.
$objLink = $objSelection.Hyperlinks.Add($objSelection.Range, $site,, "homepage", $site)
;Calculate where the hyperlink begins.
;Start selection at total length of all text minus the length of the url and select everything to the end of the text.
$Selectionsite = $objDoc.Range($objSelection.End - (Len($site) + 1), $objSelection.End)
;Set font, size and underline for selection.
$Selectionsite.Font.Name = $fontname
$Selectionsite.Font.Size = $fontmedium
$Selectionsite.Font.Underline = 0
$Selectionsite.Font.Color = $fontgray
$objSelection.Font.Color = $fontblue
$objSelection.TypeText(" | ")
$objSelection.Font.Color = $fontgray
$objSelection.TypeText("Webshop: ")
;Insert and select hyperlink and set font and attributes for the selection.
$objLink = $objSelection.Hyperlinks.Add($objSelection.Range, $shop,, "webshop", $shop)
;Calculate where the hyperlink begins.
;Start selection at total length of all text minus the length of the url and select everything to the end of the text.
$Selectionshop = $objDoc.Range($objSelection.End - (Len($shop) + 1), $objSelection.End)
;Set font, size and underline for selection.
$Selectionshop.Font.Name = $fontname
$Selectionshop.Font.Size = $fontmedium
$Selectionshop.Font.Underline = 0
$Selectionshop.Font.Color = $fontgray
$objSelection.TypeText(Chr(11))