|
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! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function strDropMacros(doc As Document) As String
' Procedure : strDropMacros
' Description: Rebuilds the current document through an RTF file, dropping all code modules along the way.
' By: Chris Greaves Inc.
' Inputs: None
' Returns: None
' Assumes: Nothing
' Side Effects: May change selection point
' Tested: By the calls below.
strDropMacros = ""
Dim strFileName As String
strFileName = ActiveDocument.FullName
Dim strName As String
strName = strBreakFileString(strFileName, 2)
Dim strPath As String
strPath = strBreakFileString(strFileName, 5)
Dim boolExists As Boolean
strDropMacros = strPath & strName & ".rtf"
boolExists = boolFileExists(strDropMacros)
ActiveDocument.SaveAs FileName:=strDropMacros, FileFormat:=wdFormatRTF
ActiveDocument.Close
Documents.Open FileName:=strDropMacros
ActiveDocument.SaveAs FileName:=strPath & strName & strcExtentDoc, FileFormat:=wdFormatDocument
If boolExists Then
Else
Call doQKill(strDropMacros)
End If
'Sub TESTstrDropMacros()
' MsgBox strDropMacros(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 |