Access - Problema con encabezados y formularios

Hola buenas tardes, estoy realizando una serie de documentos en word desde Access, los cuales llevan unos encabezados de página con unos dibujos y un texto que es variable según la base de datos, y mi problema es que al utilizar la siguiente instrucción me borra los dibujos, un saludo y muchas gracias de antemano.

Set wordDoc = appWord.Documents.Open(FileName:=CurrentProject.Path & plantilla)
wordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = Str

Solucionado buscando

.Sections(1).Headers(wdHeaderFooterPrimary).Range.InsertAfter ( Str )