Microsoft Office Forums - View Single Post - [Solved] Amend text shape in header with VBA

Welshgasman · 09-21-2016, 01:28 AM

Paul,

The following code works great

Code:

For Each sh In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
            If sh.Type = msoTextBox And sh.Name = "Text Box 1" Then
                'sh.TextFrame.TextRange.Text = Replace(sh.TextFrame.TextRange.Text, "The Business Centre", "JAG Business Centre")
                'sh.TextFrame.TextRange.Paragraphs.Alignment = wdAlignParagraphRight
                sh.TextFrame.MarginLeft = 0 'This puts the text right on the margin
                sh.TextFrame.TextRange.Font.Name = "Arial"
                sh.TextFrame.TextRange.Font.Size = 10
                sh.TextFrame.AutoSize = True
                sh.TextFrame.TextRange.Text = strText
            End If
            
        Next sh

but as I suspected I need to autosize the header height for the new font size

How would I do that please. I've tried looking in the properties, but have yet to find the correct value.

TIA