Consulting

Results 1 to 3 of 3

Thread: Bulk rename based on contents in document

  1. #1
    VBAX Regular
    Joined
    Dec 2016
    Posts
    22
    Location

    Bulk rename based on contents in document

    Hi there,

    I have a set of 50 documents in a folder on my desktop with the following naming scheme:

    50000.docx
    50001.docx
    50002.docx
    .
    .
    .
    50050.docx

    I am trying to do a bulk rename of these documents based on contents stored within specific textboxes.

    I can do this one at a time with the below code; however, it is quite a laborious process.

    Sub FileSaveAs()
    Dim StrNm As String
    With ActiveDocument
    StrNm = .Shapes(4).TextFrame.TextRange.Text & " " & .Shapes(36).TextFrame.TextRange.Text
    With Dialogs(wdDialogFileSaveAs)
    .Name = StrNm
    .Show
    End With
    End With
    End Sub


    There are two complications here:

    1) Not all of these word documents are actually word documents, and so the code must be able to move onto the next document if the Documents.Open function fails, and
    2) Not all of the documents have textboxes from which there is data to extract

    In both instances, the name of the file can remain the same.

    I'm hoping 50000.docx can be renamed to the contents of 'Shape(4)' & 'Shape(36)'.docx in each document that is 1) able to be opened, and 2) where these shapes exist

    Any guidance would be greatly appreciated.

    Cheers,
    enjam

  2. #2
    VBAX Contributor
    Joined
    Jul 2020
    Location
    Sun Prairie
    Posts
    118
    Location
    The numbering of Shapes in Word is almost random in edited documents; to me, it is unpredictable. Named bookmarks are much more predictable as are xml nodes.
    See Document Batch Processes by Graham Mayor, MVP and Batch Folder Process Add-In by Greg Maxey once you get your error handling down.

  3. #3
    VBAX Regular
    Joined
    Dec 2016
    Posts
    22
    Location
    Thanks Chas, I'll approach this problem slightly differently and post an alternative thread in the Excel section of this forum.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •