Dim sLogo, objArgs, objFSO, objWord, I

sLogo = "C:\Path\Logo.jpg"    'substitute path to your logo

Set objArgs = WScript.Arguments
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objArgs.Count = 0 then
	wScript.Echo "You need to drop Word documents onto this script!"
Else
	Set objWord = CreateObject("Word.Application")
	objWord.Visible = True
	For I = 0 to objArgs.Count - 1
		LogoAndPDF objArgs(I)
	Next
	objWord.Quit
End If

Function LogoAndPDF(sFilePath)
  Dim sFolder, sBaseName, sExt, sPDF, oDoc, oRng
  sFolder = objFSO.GetParentFolderName(sFilePath) & "\"
  sBaseName = objFSO.GetBaseName(sFilePath)
  sExt = objFSO.GetExtensionName(sFilePath)
  sPDF = sFolder & sBaseName & ".pdf"
  Select Case sExt
	Case "doc", "docx", "docm"
		Set oDoc = objWord.Documents.Open(sFilePath)
		oDoc.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
		Set oRng = oDoc.Sections(1).Headers(2).Range
		oRng.Text = ""
		oRng.InlineShapes.AddPicture sLogo
		oRng.ParagraphFormat.Alignment = 1		'wdAlignParagraphCenter
		oDoc.ExportAsFixedFormat sPDF, 17		'wdExportFormatPDF
		oDoc.Close False
  End Select
End Function