|
|
#12
03-14-2022, 11:40 PM
|
||||
|
||||
The most logical thing is not to select it in the first place
Code:
Sub TestMacro()
Dim shp As Shape, aRng As Range
For Each shp In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
If shp.Type = msoTextBox Then
Set aRng = shp.TextFrame.TextRange
aRng.MoveStart Unit:=wdCharacter, Count:=1
aRng.Font.Subscript = True
End If
Next
End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Document Comparison | Thefirstfish` | Word VBA | 0 | 04-10-2017 01:07 PM |
| Comparison (with styles) Macro | aarona | Word VBA | 0 | 03-03-2017 11:18 PM |
| Saving & reopening comparison | MarshallAbrams | Word | 0 | 03-29-2012 06:19 AM |
| Comparison jumps to end | MarshallAbrams | Word | 2 | 03-21-2012 04:04 AM |
 oshp.TextFrame.TextRange.Font <The specified error is out of range>
|
ghumdinger | PowerPoint | 5 | 12-09-2011 10:36 PM |
Windows 10 
Office 2016
Threaded Mode