Re: Accessing a TextBox

Tech-Archive recommends: Fix windows errors by optimizing your registry

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
>
>
>
.

Relevant Pages

  • Re: Woord 2007 has a BUG because it cannot open a Woord 2003 doc. file
    ... If I remove the two column format then Word 2007 doesn't crash so you're right, it appears to have something to do with the multiple columns and tables. ... There is a floating textbox anchored to the table header row ... In effect a page header. ...
    (microsoft.public.word.application.errors)
  • Re: Woord 2007 has a BUG because it cannot open a Woord 2003 doc. file
    ... You have a table that has merged cells across rows. ... The table is nested inside a newspaper/snaking column layout. ... There is a floating textbox anchored to the table header row ... In effect a page header. ...
    (microsoft.public.word.application.errors)
  • Re: problem creating macro to move textbox
    ... Did you display the header and footer pane before attempting to select the ... I have no problem recording a macro and selecting the box in the ... If you have just one textbox in the header, ...
    (microsoft.public.word.vba.general)
  • Re: Textbox in Header problem
    ... Are you sure that your textbox is anchored in the header rather than on page ... Private Sub ReplaceHeaders(sTemplateName As String) ... ' base template ...
    (microsoft.public.word.vba.general)
  • Re: Background watermark
    ... Another option is to put the text in a textbox ... anchored to the header or footer. ... Use a big bold font, ...
    (microsoft.public.word.pagelayout)