Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function strSaveAsRTF(doc As Document) As String
' Procedure :   strSaveAsRTF
' Description:  Saves the document as an RTF file.
' By:           Chris Greaves Inc.
' Inputs:       DOCUMENT
' Returns:      STRING full name of saved file
' Assumes:      Nothing
' Side Effects: May change selection point
' Tested:       By the calls below.
    Dim strFileName As String
    strFileName = doc.FullName
    Dim strName As String
    strName = strBreakFileString(strFileName, 2)
    Dim strPath As String
    strPath = strBreakFileString(strFileName, 5)
    Dim boolExists As Boolean
    Dim strNewFileName As String
    strNewFileName = strPath & strName & ".rtf"
    boolExists = boolFileExists(strNewFileName)
    ActiveDocument.SaveAs FileName:=strNewFileName, FileFormat:=wdFormatRTF
    strSaveAsRTF = strNewFileName
'Sub TESTSaveAsRTF()
'    MsgBox strSaveAsRTF(activedocument)
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function strSaveAsRTF(doc As Document) As String
' Procedure :   strSaveAsRTF
' Description:  Saves the document as an RTF file.
' By:           Chris Greaves Inc.
' Inputs:       DOCUMENT
' Returns:      STRING full name of saved file
' Assumes:      Nothing
' Side Effects: May change selection point
' Tested:       By the calls below.
    Dim strFileName As String
    strFileName = doc.FullName
    Dim strName As String
    strName = strBreakFileString(strFileName, 2)
    Dim strPath As String
    strPath = strBreakFileString(strFileName, 5)
    Dim boolExists As Boolean
    Dim strNewFileName As String
    strNewFileName = strPath & strName & ".rtf"
    boolExists = boolFileExists(strNewFileName)
    ActiveDocument.SaveAs FileName:=strNewFileName, FileFormat:=wdFormatRTF
    strSaveAsRTF = strNewFileName
'Sub TESTSaveAsRTF()
'    MsgBox strSaveAsRTF(activedocument)
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001