Using textframe value in comparison

Guessed · #1 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

Scaffold · #2 03-15-2022, 12:16 AM

Quote:

Originally Posted by Guessed

The most logical thing is not to select it in the first place

This is one big mighty "Oops"!

I normally program with C# and for the different API. I'm struggling with the MS Office API.
Thank you very much! This solves it for me.

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