![]() |
|
#1
|
||||
|
||||
![]()
Try:
Code:
Sub RefDemo() Application.ScreenUpdating = False ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With Selection .EndKey Unit:=wdStory .Fields.Add .Range, wdFieldEmpty, Text = "REF T_LIEFERANTENERGAENZUNG_BERECHNUNG \* MERGEFORMAT \h", False End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
![]() |
Tags |
formating, vba |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
scienceguy | Excel Programming | 2 | 10-25-2021 04:44 AM |
How to edit add-ons panel in word 2010 created in word 2000 | alexxmore | Word | 2 | 03-18-2020 04:45 AM |
How do I edit my TOC to reference the section numbers instead of the page numbers??? | mikey386 | Word | 0 | 12-17-2014 02:34 PM |
![]() |
wmac | Word | 1 | 05-14-2013 08:54 PM |
MarkAsFinal - 'Edit Anyway' edit popup issue | GovindRS | PowerPoint | 1 | 06-20-2011 06:43 AM |