/ Snippet Library - View Code

Snippet details

ID: 435

Viewed: 1486

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

To save text to an office object vba to office.

make sure you set microsoft office word 8.0 object library under preferences.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Sub mnuSaveAs_Click() Dim filenum As Integer Dim Ingredients As String Dim lab As String Dim recname As String Dim proc As String 'Static i As Integer Dim strMsg As String Dim w As New Word.Application Ingredients = TxtIngredients.Text lab = Label1.Caption recname = LblName.Caption proc = TxtProcessTest mnuSaveAs.Enabled = False If TxtProcessTest.Text = "" Then MsgBox "You cannot use a blank TextBox", vbCritical, _ "Entry Error" 'txtMain.SetFocus mnuSaveAs.Enabled = True Exit Sub Else strMsg = lab & vbTab & recname & vbCrLf & vbNewLine & Ingredients & vbTab & vbTab & proc End If w.Documents.Add w.Selection.TypeText (strMsg) w.ChangeFileOpenDirectory (App.Path) w.ActiveDocument.SaveAs Filename:=recname & ".doc", _ FileFormat:=wdFormatDocument, _ LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False w.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges w.Application.Quit Set w = Nothing strMsg = "The document, " & recname & _ ".doc" & vbCrLf strMsg = strMsg & "has be saved in the directory, " & _ App.Path & "." MsgBox strMsg mnuSaveAs.Enabled = True 'i = i + 1 End Sub

No Reviews to show