Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim wordDoc As Word.Document Dim wordApp As Word.Application Set wordDoc = GetObject("fullpathandmerge.doc", "word.document") Set wordApp = wordDoc.Application With wordApp .Visible = True wordDoc.MailMerge.MainDocumentType = wdFormLetters wordDoc.MailMerge.OpenDataSource "datasourcepathandfilename.xls", wordDoc.MailMerge.SuppressBlankLines = True wordDoc.MailMerge.DataSource.FirstRecord = wdDefaultFirstRecord wordDoc.MailMerge.DataSource.LastRecord = wdDefaultLastRecord wordDoc.MailMerge.Destination = wdSendToNewDocument wordDoc.MailMerge.Execute False .ActiveDocument.SaveAs "fullpathandfile.doc", wdFormatDocument, False .ActiveDocument.Close False wordDoc.Close False End With wordApp.Quit
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.