Word VBA automated save file name 
Author Message
 Word VBA automated save file name

I have current VBA project that take the output of an
Access report that has been brought into Word as an .rtf
file.  These Access reports are grouped as well.  What my
coding does is after Access has created the .rtf file (up
to 200+ plus) it takes codes from Microsoft Q article
Q216845 and creates a seperate document for each section.  
This code works just fine.  Then, it saves it as a
specific file name and searches for the 11th to the 13th
character.  This works just fine also.  However, the
project has now changed as to where I can not tell it to
just use character #11 to 13.  I need to have it look for
a specific word with a colon after it, then take the next
word as the file name, and this might be 2 or 3 words
also.  I can not seem to get this to work.  Below is the
coding that I know works that I have been trying to

Dim rngTitle As Range
Dim strTitle As String

'   Find "xyz" and replace with Section Break Next Page,_
remove Page Break

        With Selection.Find
            .Text = "xyz"
            .Forward = True
            .Wrap = wdFindContinue
        End With
        If Selection.Find.Execute = False Then
    Exit Do
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.InsertBreak Type:=wdSectionBreakNextPage
        End If

    Selection.HomeKey Unit:=wdStory

   ' Used to set criteria for moving through the document_
by section.
   Application.Browser.Target = wdBrowseSection

   'A mailmerge documents ends with a section break next_
   'Subtracting one from the section count stop error_
   For i = 1 To ((ActiveDocument.Sections.Count) - 1)

      'Select and copy the section text to the clipboard

      'Create a new document to paste text from clipboard.

   ' Removes the break that is copied at the end of the_
section, if any.
      Selection.MoveUp Unit:=wdLine, Count:=1,_
      Selection.Delete Unit:=wdCharacter, Count:=1
      Selection.Delete Unit:=wdCharacter, Count:=1
ChangeFileOpenDirectory "J:\Working Files\Reports"
     Set rngTitle = ActiveDocument.Range(Start:=11,_
     strTitle = rngTitle.Text
     ActiveDocument.SaveAs FileName:="Territory " &_
strTitle & " Report" & ".doc"
      ' Move the selection to the next section in the_
   Next i
   ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Any help is GREATLY appreciated!


Tue, 29 Nov 2005 03:49:44 GMT  
 Word VBA automated save file name
Reply in word.vba.beginners

    Cindy Meister

Sat, 03 Dec 2005 16:33:23 GMT  
 [ 2 post ] 

 Relevant Pages 

1. Word VBA to Save File Name from MergeField

2. Save Word-Dok under different name using VBA

3. Save file names with a Word macro

4. How do you save OLE embedded file objects from MS-Word VBA

5. Word 2002: How to save a file in Word 97 format in Word 2002

6. (Access/Word Merge) Automating Saving of Merge Results

7. New to Word VBA: automating a template (multiple related questions)

8. automate emailing from Word through VBA - using it as the editor

9. SAving a MS Word file to a PDF file and a text file

10. How to get a Unique File Name for Automated Export

11. Word Label Merge: Javascript/Word VBA File Contention

12. Automated file name processing...


Powered by phpBB® Forum Software