Jump to content

jnickrand

Member
  • Posts

    2
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

Posts posted by jnickrand

  1. I need to save my word documents to a folder on our network. Currently we have a macro called HMSSave.

    Im not sure what code I need to add to this macro in order to save the word document into a folder (ORYX) on our network.

    Macro

    Public Sub HMSSave(Optional informUser As Boolean = True)

    shouldBeMoved = True

    'Make sure to update all built in document properties.

    ActiveDocument.ComputeStatistics wdStatisticCharacters

    ActiveDocument.ComputeStatistics wdStatisticCharactersWithSpaces

    ActiveDocument.ComputeStatistics wdStatisticLines

    ActiveDocument.ComputeStatistics wdStatisticPages

    ActiveDocument.ComputeStatistics wdStatisticWords

    ActiveDocument.save

    If informUser = True Then

    If getType() = TYPE_DOCUMENT Then

    VBA.MsgBox "Transcription document saved.", vbOKOnly + vbInformation, "HMS Transcription"

    Else

    VBA.MsgBox "Transcription template saved.", vbOKOnly + vbInformation, "HMS Transcription"

    End If

    End If

    End Sub

×
×
  • Create New...