We help IT Professionals succeed at work.
Get Started

How can I truncate a footer to the first 15 characters?  Word 2010 vba

237 Views
Last Modified: 2016-02-11
I am splitting a word document with multiple letters to individual files.  The text I want to use as the filename is in the first 14 characters of the footer.
I need to truncate the footer to name the files.  
I am very new to vba, any help would be greatly appreciated.
Below is my code :

Sub BreakOnPVOHSection()

Dim letter As Range
Dim fname As Range
Dim target As Document
Dim strFileName As String
Dim strID As String
    
 ' Used to set criteria for moving through the document by section.
 Application.Browser.target = wdBrowseSection

'A mailmerge document ends with a section break next page.
 For i = 1 To ((ActiveDocument.Sections.Count) - 1)
   
     Set fname = ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).Range
     fname.End = fname.End - 1

   
      'Select and copy the section text to the clipboard
      ActiveDocument.Bookmarks("\Section").Range.Copy

      'Create a new document to paste text from clipboard.
      Documents.Add
      Selection.Paste
         
 '        ActiveDocument.Bookmarks = Mid(fname, 0, 12)
 
       ChangeFileOpenDirectory "\\vcuhshmo\users\lheaton\bpa"
       docnum = docnum + 1
       ActiveDocument.SaveAs fileName:=fname.Text & ".docx"

       ActiveDocument.Close savechanges:=wdDoNotSaveChanges
      ' Move the selection to the next section in the document
      Application.Browser.Next
   
   Next i
     
 ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Open in new window

Comment
Watch Question
Retired
CERTIFIED EXPERT
Top Expert 2012
Commented:
This problem has been solved!
Unlock 1 Answer and 5 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE