A simple function will give you the matching workbook name - provided it is in the same folder. If not you are going to have to change the macro to use .Name rather than .FullName and tell the macro where to find the workbook.
Function GetWorkbookName(oDoc As Document) As String
Dim strfName As String
If Len(ActiveDocument.Path) = 0 Then
GoTo err_Handler
End If
strfName = oDoc.FullName
strfName = Left(strfName, InStrRev(strfName, Chr(46)))
GetWorkbookName = strfName & "xlsx" 'Use 'xls' if the workbook is in the older format.
lbl_Exit:
Exit Function
err_Handler:
GetWorkbookName = ""
GoTo lbl_Exit
End Function
Call the function from your code e.g.
Sub Macro1()
MsgBox GetWorkbookName(ActiveDocument)
End Sub