Programmatically make text box borders invisible

Daniel Antone · #1 01-01-2017, 04:14 PM

Thanks Paul for your prompt reply, and happy new year
Yes, the code seems correct, especially it does not return an error message but, after running, it does not change the formats specified.

However, I was lucky this time, I found a solution. I used CanvasShapes and CanvasItems collections with a variable to refer to the textboxes then apply the formats. It worked. It seems the selection object is no good here.
Just in case if anybody needs this remark, it wasted many hours of my time, here is the correct code

Code:

  Dim shpCanvas As Shape 
  Dim shpCanvasShapes As CanvasShapes  
  
  'use to refer to each textbox inside the canvas
  Dim shpCanvasTB As Shape  

  Set shpCanvas = ActiveDocument.Shapes("MainCanvas")
  Set shpCanvasShapes = shpGridCanvas.CanvasItems
  
  For Each shpCanvasTB In shpCanvasShapes
    If shpCanvasTB.Type = msoTextBox Then
      
      With shpCanvasTB
        .Fill.Visible = msoFalse
        .Line.Visible = msoFalse
        With .TextFrame
          .MarginLeft = 0
          .MarginRight = 0
          .MarginTop = 0
          .MarginBottom = 0
        End With
        
        .Select
        With Selection
          .Font.Size = 12
          .ParagraphFormat.Alignment = wdAlignParagraphCenter
          .Font.Italic = True
        End With
        
      End With
      
    End If
    
  Next shpGridCanvasTB

Thanks again

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Loop through controls, make certain controls invisible	MacroWizard	Word VBA	2	11-10-2015 02:36 PM
How to make Section headers (Header 2) invisible at print time?	inframan	Word	7	08-10-2012 09:39 PM
How do I make invisible the lines in the table	Snvlsfoal	Word Tables	1	08-11-2011 05:45 AM
Object set to invisible yet I can still move its (invisible) animation paths??	seanspotatobusiness	PowerPoint	0	05-23-2011 03:39 AM
Make text invisible to printer	ilkks	Word	2	05-06-2011 04:26 AM