Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 09-16-2014, 07:29 AM
gmayor's Avatar
gmayor gmayor is offline VBA Dropdown change list Entries automatically Windows 7 64bit VBA Dropdown change list Entries automatically Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,144
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Do you mean you want to add the following?



Code:
With wdDoc
    'Process the body
    Call Update(.Range)
    'Process textboxes etc in the body
    For Each Shp In .Shapes
        With Shp.TextFrame
            If .HasText Then
                Call Update(.TextRange)
            End If
        End With
    Next
    For Each Sctn In .Sections
        For Each HdFt In Sctn.Headers
            With HdFt
                If .LinkToPrevious = False Then
                    'Process the header
                    Call Update(.Range)
                End If
            End With
        Next
    Next
    .Close SaveChanges:=True
End With
In that case bear in mind that the document used by the code I posted is oDoc rather than wdDoc and you must no close that document from the code as the add-in takes care of that, so it is simply a matter of inserting the relevant bits of the code into the original macro

So you need to add this bit after the line
Next oFF
Don't forget to include The Update code and to declare the additional variables used here at the top of the function. I haven't tested you additional code.

Code:
With oDoc
    'Process the body
    Call Update(.Range)
    'Process textboxes etc in the body
    For Each Shp In .Shapes
        With Shp.TextFrame
            If .HasText Then
                Call Update(.TextRange)
            End If
        End With
    Next
    For Each Sctn In .Sections
        For Each HdFt In Sctn.Headers
            With HdFt
                If .LinkToPrevious = False Then
                    'Process the header
                    Call Update(.Range)
                End If
            End With
        Next
    Next
End With
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
Reply

Tags
automatically, dropdown, replace



Similar Threads
Thread Thread Starter Forum Replies Last Post
VBA Dropdown change list Entries automatically Multiple entries in dropdown lists paul_pearson Word VBA 151 10-18-2023 04:23 PM
Duplicating entries on multiple tabs automatically jbexley Excel 0 08-28-2014 04:48 PM
VBA Dropdown change list Entries automatically Captions automatically updating all previous entries jhats Word 1 07-29-2014 11:53 PM
Dropdown list, Macro shield5 Excel Programming 7 10-27-2013 01:51 AM
Change cell color everytime a value is selected in dropdown list angelica_gloria Excel 4 01-27-2012 06:47 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 06:31 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft