#1
|
|||
|
|||
Update Fields within text box
Hi,
I have a macro which sets some document variables within a document which is opened by this macro. This works fine for variables which are located outside of text boxes by using ActiveDocument.Fields.Update . But it seems that this command does not effect variables within text boxes. In generated document I have to update the fields within text boxes manually by context menu. The Shape Object does not contain Fields property. So: Do you have an idea how I can solve this problem? Best regards Duddits |
#2
|
||||
|
||||
Use instead the example code at http://www.gmayor.com/installing_macro.htm
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Hi,
thanks for your suggestion. But replacing ActiveDocument.Fields.Update by calling that sub has no effect: Again everything outside of the Textbox is updated but not fields within text box Best Regards Duddits |
#4
|
||||
|
||||
Is there a reason you can't use single-cell tables (which you can apply text wrapping to) instead of text boxes? Fields in table cells will update without the convoluted process needed for fields in textboxes.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
||||
|
||||
The code from my web site should work in a text box ... and certainly does here. However it may not work if the text box is located in a header/footer in which case you need more brute force to update it e.g.
Code:
Sub UpdateAllFields() Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend End If Next oStory UpdateFieldsAnotherWay Set oStory = Nothing lbl_Exit: Exit Sub End Sub Sub UpdateFieldsAnotherWay() Dim sView As String Dim sUpdate As String sView = ActiveDocument.ActiveWindow.View.Type sUpdate = Options.UpdateFieldsAtPrint Options.UpdateFieldsAtPrint = True Application.ScreenUpdating = False PrintPreview = True PrintPreview = False ActiveDocument.ActiveWindow.View.Type = sView Options.UpdateFieldsAtPrint = sUpdate Application.ScreenUpdating = True lbl_Exit: Exit Sub End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Update Styleref Fields | datech-hh | Word VBA | 18 | 11-04-2017 01:35 PM |
How do I update all fields from a new input | Kozzzle | Word | 7 | 10-19-2017 06:12 PM |
macro to update fields | PeaceDove | Word | 3 | 01-17-2012 02:45 PM |
Macro to update fields | rhatx | Word VBA | 0 | 03-02-2011 12:14 PM |
VBA to update certain (but not all) fields | sparkyrose | Word VBA | 0 | 05-20-2010 12:50 PM |