You can then edit the text so that it appears as you want.Ī text box is a shape comprising a rectangle with a textframe and text. When this macro is done, you can do a search for "Textbox start" and you will be at the beginning of text that used to be in the text boxes that are now gone from your document. ' insert the textbox text before the range object ' copy text to string, without last paragraph mark If you prefer to transfer the text from the text boxes to the document, prior to deleting the text box, then a slight modification on the above macro will work: In other words, if a text box is used for placement of text, then the text in that text box is deleted along with the text box itself.
You should realize that this macro removes all of the text boxes and their contents. The following macro will quickly remove all text boxes in your document: If you want to get rid of only the text boxes, then the quickest solution is to use a macro. (I told you this was a brute force method.) The obvious drawback to this approach is that the other formatting of the original document is also lost, and you must reformat the entire document. The document text, minus the text boxes, is now in the new document.
In the list of formats, choose Unformatted Text. Word displays the Paste Special dialog box. Choose Paste Special from the Edit menu. One potential solution is a "brute force" method. What if there are 30, 40, or more text boxes, though? Deleting them individually can quickly get tedious. If there are only one or two text boxes in the document, it is not that difficult to select them and delete them. With this you will can hide button for printing.If you do a lot of work with documents from other people, you may have a need to remove text boxes in those documents. Set oFormsInLine = ThisDocument.InlineShapes Public Function FNC_oGet_Button_Variable(sCodeName As String) As InlineShapeĭim oForm As InlineShape, oFormsInLine As InlineShapes, oOLEFormat As OLEFormat If oEventsManager.appWord Is Nothing Then Call Set_Manager_Events Set oEventsManager.button = oEditedButton Set oInShpDoc = FNC_oGet_Button_Variable(BUTTON_LINKS) Set oEventsManager.docWord = ThisDocument Set oEventsManager.appWord = Word.Application 'ThisDocument.Application Now, in ThisDocument class should create objects and linking Dim oEventsManager As New clsEventsĬonst BUTTON_LINKS As String = "cmdUpdateLinks" 'For exampleĭim oInShpDoc As Word.InlineShape, oOleDoc As Word.OLEFormat, oInShapesDoc As Word.InlineShapes Public Property Set button(oObj As clsButton) 'If button is not visible then set to true Private Sub appWord_WindowDeactivate(ByVal Doc As Document, ByVal Wn As Window) 'If process is not cancel and button is not visible Private Sub appWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean) Public WithEvents docWord As Word.Document Public WithEvents appWord As Word.Application 
If oPictureFormat.Brightness = 1 Then bIsHidden = True: Exit Function Set oPictureFormat = M_ishpButton.PictureFormat Public Property Let Visible(bValue As Boolean) Public Property Set button(oObj As InlineShape)
Public Property Get button() As InlineShape
The other will be an encapsulation of an InLineShape object that will have the methods to make the object visible, taking advantage of the Brightness property of the PictureFormat object. One will be an event manager to capture the 'before printing' event and another. It would be great if we could directly typecast from CommandButton to InShapeLine but I think Microsoft doesn't allow it, too bad. After investigating what happens with the CommandButtons, I detected that in the document they are included (if it has not been edited to be a Shape) in the InLineShape collection by being encapsulated in an InLineShape object.
0 kommentar(er)
