Re: Accessing a TextBox
- From: "Jay Freedman" <jay.freedman@xxxxxxxxxxx>
- Date: Wed, 13 Apr 2005 15:42:54 -0400
Hi Jim,
Need more details, please...
- Does the document contain more than one section? If so, which section is
the table in?
- Is the table in the primary footer, rather than the first-page or
even-page footer?
- Is it the only table in that footer?
- Which cell should the number be put into? Is it a particular cell in a
known row and column, or do you have to find it by searching for something
(if so, what?)
- Is the variable a number type (Integer, Single, etc.) or a String or a
Variant?
- Does it need to be formatted in any special way (leading zeros, etc.)?
- (least important) What's the name of the variable?
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Jim wrote:
> I am trying to do something similar to what I see in Jay's answer,
> but not quite the same. I am trying to paste a number I have stored
> as a variable into a cell of a table which is embedded in a footer.
> Any ideas on how to do this would be appreciated.
>
> "Jay Freedman" wrote:
>
>> Stefan_B wrote:
>>> Hello,
>>>
>>> I have a textbox which sits in the header of a document, is their
>>> anyway I can access the textbox, so that I may search the Header for
>>> particulars pieces of text?
>>>
>>> Thanks,
>>> Stefan.
>>
>> Hi Stefan,
>>
>> The following code assumes that "the header" means the primary
>> header of section 1 (there could be first-page and/or even-page
>> headers, or you could want a different section), that the header
>> actually contains at least one shape object (a text box is a shape
>> object), and that the first shape is the textbox you want to search.
>> If any one of these assumptions isn't true, the On Error trap will
>> be triggered and the macro will simply exit. In a real macro, you
>> should test each assumption in turn and handle any problems
>> appropriately.
>>
>> It also assumes you're just searching for the first occurrence of
>> the text "find me" -- of course, that can be changed, and the search
>> can be altered to become a replacement. All the interesting stuff is
>> in the Set oRg statement.
>>
>> Sub foo()
>> Dim oRg As Range
>>
>> On Error GoTo Bye
>>
>> Set oRg = ActiveDocument.Sections(1) _
>> .Headers(wdHeaderFooterPrimary).Shapes(1) _
>> .TextFrame.TextRange
>>
>> With oRg.Find
>> .ClearFormatting
>> .Format = False
>> .Forward = True
>> .Wrap = wdFindStop
>> .Text = "find me"
>> If .Execute Then
>> oRg.Select
>> End If
>> End With
>>
>> Bye:
>> End Sub
>>
>> --
>> Regards,
>> Jay Freedman
>> Microsoft Word MVP FAQ: http://word.mvps.org
.
- Follow-Ups:
- Re: Accessing a TextBox
- From: Jim
- Re: Accessing a TextBox
- References:
- Re: Accessing a TextBox
- From: Jim
- Re: Accessing a TextBox
- Prev by Date: Re: GetSpellingSuggestions -- 9132
- Next by Date: Re: GetSpellingSuggestions -- 9132
- Previous by thread: Re: Accessing a TextBox
- Next by thread: Re: Accessing a TextBox
- Index(es):
Relevant Pages
|