Save active document : ActiveDocument « Word « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Word » ActiveDocument 




Save active document
 
Sub GenerateGlossary()
      Dim strSource As String
      Dim strDestination As String
      Dim strGlossaryName As String

      strSource = ActiveWindow.Caption
      strGlossaryName = "word"

      Documents.Add
      ActiveDocument.SaveAs FileName:=strGlossaryName, FileFormat:=wdFormatDocument
      strDestination = ActiveWindow.Caption
      Windows(strSource).Activate


  End Sub

 














Related examples in the same category
1.Save document as
2.Defining a Named Range
3.Uppercase the first three words at the start of a document
4.Using the Duplicate Property to Store or Copy Formatting
5.Turning Off Track Changes
6.Replace all pairs of paragraph marks in the active document, you could search for ^p^p and replace it with ^p
7.Declare the HeaderFooter object variable myHeader and assign to it the primary header in the first section in the active document:
8.Checking to See if a Header or Footer Exists
9.Linking to the Header or Footer in the Previous Section
10.Creating a Different First-Page Header
11.Opening a New Window Containing an Open Document
12.Closing All Windows but the First for a Document
13.Active document paragraph
14.Activate window by name
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.