Thread: [Solved] Locking a text box
View Single Post
 
Old 10-11-2022, 01:53 PM
Charles Kenyon Charles Kenyon is offline Windows 11 Office 2021
Moderator
 
Join Date: Mar 2012
Location: Sun Prairie, Wisconsin
Posts: 9,473
Charles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant futureCharles Kenyon has a brilliant future
Default

I'm glad it is working for you. I suspect your document is in Compatibility Mode.

My right-click menu gives Format Shape which does not have Format Text Box. If I set my document for Word 2007 Compatibility Mode, then I see the Format AutoShape/Picture command and can get to the Convert to Frame button.

Here is a macro that changes a document to Word 2007 compatibility mode:
Code:
Sub Word2007CompatibilityOn()
    '
    ' Word2007CompatibilityOn Macro
    '
    '   Charles Kenyon
    '   Written for WordArt Add-In
    '   Converts Active Document to Word 2007 format
    Dim Result As Long
    Result = MsgBox(Prompt:="This will convert this document to Word 2007 format. You will lose any features added in later versions." & _
                            vbCr & "Are you sure?", title:="Word 2007 Conversion Warning", Buttons:=vbInformation + vbYesNo)
    On Error GoTo SkipConversion    ' in case this is run in an earlier version of Word
    If Result = vbNo Then GoTo SkipConversion
    ActiveDocument.SetCompatibilityMode (wdWord2007)
    MsgBox "Conversion completed. If you are using Word 2010 or later, you should see Compatibility Mode in the Title Bar.", vbInformation, "Done"
    On Error GoTo -1
    Exit Sub
SkipConversion:
    MsgBox "Conversion skipped", vbInformation, "OK"
    On Error GoTo -1
End Sub
' ==========================================================================
Private Sub TitlebarShow()
    MsgBox ActiveDocument.ActiveWindow.Caption
End Sub
Reply With Quote