Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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.
Sub NextDocument() Dim strTempData As String strPath = "P:\" strAppPath = TemplateProject.ThisDocument.Path & "\Surgery Form.dot" strDocTitle = ActiveDocument.FormFields("Text1").Result & " " _ & Replace(ActiveDocument.FormFields("Text17").Result, "/", "-") Select Case ActiveDocument.FormFields("AttendDoctor").Result Case "Dr. Lawrence Mandel" strPath = strPath & "Surgery Scheduling\" Case "Dr. William Cruce" strPath = strPath & "Surgery Scheduling-Dr. Cruce\" Case Else MsgBox ("A doctor was not selected. Please select a doctor and try again.") Exit Sub End Select strSaveString = strPath & strDocTitle & ".doc" With ActiveDocument .SaveAs FileName:=strSaveString .Close End With MsgBox ("File has been saved to: " & strSaveString & _ " Please continue.") Documents.Add Template:=strAppPath, NewTemplate:=False End Sub
Join the community of 500,000 technology professionals and ask your questions.