How to get every conytols
in [Word VBA]
|
From: Cesarini on 22 Apr 2010 15:45 Hi Guys, I'm working on Word 2007 and creating a form input user. I'm doing this for a user that have Office 2003, so I have a compatibility mode template document. It also include VBA code. What i need to do is to read every existing text control. Theses controls are ActiveX. I always have used: For Each xControl In Controls If TypeOf xControl Is TextBox Then xControl.value="" End If Next xControl But now in Word 2007 in compatibility mode I do not know how to do it, becuase there is not "Controls" in the ActiveDocument. Can any one help me about it? I will appreciate it -- ------------------ César Parrales
From: Fumei2 via OfficeKB.com on 22 Apr 2010 16:20 If these are ActiveX controls (inserted with the Controls toolbar) then they are InlineShapes. Sub AllTextBoxControls() Dim ctl As InlineShape For Each ctl In ActiveDocument.InlineShapes If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then MsgBox ctl.OLEFormat.Object.Value End If Next End Sub The above displays the text content of all ActiveX textboxes. If what you want to do (apparently) is to make all the textboxes = "", then... Sub AllTextBoxControls() Dim ctl As InlineShape For Each ctl In ActiveDocument.InlineShapes If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then ctl.OLEFormat.Object.Value = "" End If Next End Sub Gerry Cesarini wrote: >Hi Guys, > >I'm working on Word 2007 and creating a form input user. I'm doing this for >a user that have Office 2003, so I have a compatibility mode template >document. It also include VBA code. What i need to do is to read every >existing text control. Theses controls are ActiveX. > >I always have used: > >For Each xControl In Controls > If TypeOf xControl Is TextBox Then > xControl.value="" > End If >Next xControl > >But now in Word 2007 in compatibility mode I do not know how to do it, >becuase there is not "Controls" in the ActiveDocument. > >Can any one help me about it? I will appreciate it -- Gerry Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/201004/1
From: Cesarini on 22 Apr 2010 18:09 Thanks Gerry, I'll try it Regards -- ------------------ César Parrales "Fumei2 via OfficeKB.com" wrote: > If these are ActiveX controls (inserted with the Controls toolbar) then they > are InlineShapes. > > Sub AllTextBoxControls() > Dim ctl As InlineShape > For Each ctl In ActiveDocument.InlineShapes > If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then > MsgBox ctl.OLEFormat.Object.Value > End If > Next > End Sub > > The above displays the text content of all ActiveX textboxes. > > If what you want to do (apparently) is to make all the textboxes = "", then... > > > Sub AllTextBoxControls() > Dim ctl As InlineShape > For Each ctl In ActiveDocument.InlineShapes > If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then > ctl.OLEFormat.Object.Value = "" > End If > Next > End Sub > > Gerry > > Cesarini wrote: > >Hi Guys, > > > >I'm working on Word 2007 and creating a form input user. I'm doing this for > >a user that have Office 2003, so I have a compatibility mode template > >document. It also include VBA code. What i need to do is to read every > >existing text control. Theses controls are ActiveX. > > > >I always have used: > > > >For Each xControl In Controls > > If TypeOf xControl Is TextBox Then > > xControl.value="" > > End If > >Next xControl > > > >But now in Word 2007 in compatibility mode I do not know how to do it, > >becuase there is not "Controls" in the ActiveDocument. > > > >Can any one help me about it? I will appreciate it > > -- > Gerry > > Message posted via OfficeKB.com > http://www.officekb.com/Uwe/Forums.aspx/word-programming/201004/1 > > . >
From: Cesarini on 22 Apr 2010 19:32 Hi again Gerry, Everything work just fine. Thanks, it was a helpful. Just one doubt. Once i finish and take the template to he computer that has the 2003 version, will it work? I ask you because I'm not sure if the code will be recognized by that version. Just a Question. :-) And Thanks again, Regards -- ------------------ César Parrales "Fumei2 via OfficeKB.com" wrote: > If these are ActiveX controls (inserted with the Controls toolbar) then they > are InlineShapes. > > Sub AllTextBoxControls() > Dim ctl As InlineShape > For Each ctl In ActiveDocument.InlineShapes > If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then > MsgBox ctl.OLEFormat.Object.Value > End If > Next > End Sub > > The above displays the text content of all ActiveX textboxes. > > If what you want to do (apparently) is to make all the textboxes = "", then... > > > Sub AllTextBoxControls() > Dim ctl As InlineShape > For Each ctl In ActiveDocument.InlineShapes > If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then > ctl.OLEFormat.Object.Value = "" > End If > Next > End Sub > > Gerry > > Cesarini wrote: > >Hi Guys, > > > >I'm working on Word 2007 and creating a form input user. I'm doing this for > >a user that have Office 2003, so I have a compatibility mode template > >document. It also include VBA code. What i need to do is to read every > >existing text control. Theses controls are ActiveX. > > > >I always have used: > > > >For Each xControl In Controls > > If TypeOf xControl Is TextBox Then > > xControl.value="" > > End If > >Next xControl > > > >But now in Word 2007 in compatibility mode I do not know how to do it, > >becuase there is not "Controls" in the ActiveDocument. > > > >Can any one help me about it? I will appreciate it > > -- > Gerry > > Message posted via OfficeKB.com > http://www.officekb.com/Uwe/Forums.aspx/word-programming/201004/1 > > . >
From: Doug Robbins - Word MVP on 22 Apr 2010 20:46 It should be OK. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Cesarini" <Cesarini(a)discussions.microsoft.com> wrote in message news:FC0F4479-CFDD-48DA-B0A1-DC2A0C1CF3B9(a)microsoft.com... > Hi again Gerry, > > Everything work just fine. Thanks, it was a helpful. > > Just one doubt. Once i finish and take the template to he computer that > has > the 2003 version, will it work? > > I ask you because I'm not sure if the code will be recognized by that > version. > > Just a Question. :-) > > And Thanks again, > > Regards > > -- > ------------------ > César Parrales > > > "Fumei2 via OfficeKB.com" wrote: > >> If these are ActiveX controls (inserted with the Controls toolbar) then >> they >> are InlineShapes. >> >> Sub AllTextBoxControls() >> Dim ctl As InlineShape >> For Each ctl In ActiveDocument.InlineShapes >> If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then >> MsgBox ctl.OLEFormat.Object.Value >> End If >> Next >> End Sub >> >> The above displays the text content of all ActiveX textboxes. >> >> If what you want to do (apparently) is to make all the textboxes = "", >> then... >> >> >> Sub AllTextBoxControls() >> Dim ctl As InlineShape >> For Each ctl In ActiveDocument.InlineShapes >> If ctl.OLEFormat.ClassType = "Forms.TextBox.1" Then >> ctl.OLEFormat.Object.Value = "" >> End If >> Next >> End Sub >> >> Gerry >> >> Cesarini wrote: >> >Hi Guys, >> > >> >I'm working on Word 2007 and creating a form input user. I'm doing this >> >for >> >a user that have Office 2003, so I have a compatibility mode template >> >document. It also include VBA code. What i need to do is to read every >> >existing text control. Theses controls are ActiveX. >> > >> >I always have used: >> > >> >For Each xControl In Controls >> > If TypeOf xControl Is TextBox Then >> > xControl.value="" >> > End If >> >Next xControl >> > >> >But now in Word 2007 in compatibility mode I do not know how to do it, >> >becuase there is not "Controls" in the ActiveDocument. >> > >> >Can any one help me about it? I will appreciate it >> >> -- >> Gerry >> >> Message posted via OfficeKB.com >> http://www.officekb.com/Uwe/Forums.aspx/word-programming/201004/1 >> >> . >>
|
Pages: 1 Prev: Watermark macro Next: A Word Macro to VLookup a Range in Excel |