copying from an excel cell to a named word text box

Hi,

I am having a bit of trouble getting this code to work. I have broken it down simply to have a single text box in the word document 'Word.docx' and have named it "Test" using the 'plain text content control' I have clicked the design mode all on the developer tab in word and then changed the name to "Test" and saved the document.

Next I have created a new macro enabled excel spreadsheet and ticked the word box in tools -> reference in the VBA display. In the excel sheet only two cells have values, E8 contains "Hello" and F8 contains "Saved"

When I run the script it should open the word document, enter "Hello" into the saved text box, rename it "Saved" then save as in both a word doc and pdf.

So what it is doing is saving the new word doc with the new name however it is not filling the text box nor is it saving a pdf with the same name

Below is the script i'm trying to run;

Sub populatesub()'declare variables
    Dim wdApp As Object, wdDoc As Object
    Dim strdocname As String
    Dim fName As String, fPath As String
    Dim ws As Worksheet
'set values
    Set ws = ThisWorkbook.Sheets("Sheet1")
    fPath = "C:\sample sheet testing\"
    fName = ws.Range("F8").Value
    strdocname = "Word.docx"
'Word environment
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    wdApp.Activate
    On Error Resume Next
    Set wdDoc = wdApp.Documents.Open(fPath & strdocname)
    If Err.Number > 0 Then Exit Sub
    wdDoc.Activate


'update text box
    wdDoc.Shapes("Test").TextFrame.TextRange.Text = ThisWorkbook.Sheets("Sheet1").Range("E8").Value


'save the files
    wdDoc.SaveAs Filename:=fPath & fName
    wdDoc.SaveAs2 fPath & fName & "pdf", wdExportFormatPDF
    wdApp.Quit


Set wdDoc = Nothing
Set wdApp = Nothing
Application.CutCopyMode = False
End Sub

Any help would be greatly appreciated