Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. blinocac

    VSTO Anyone? Context errors.

    Ok, I'm new to VSTO programming, and I'm working on a project using it. Basicly what I'm trying to do is setup a command bar with a button that saves form data from a form, and saves a copy of the form in a specified directory. This button will be used with several different forms, so a config...
  2. blinocac

    Inserting Page X of Y into a footer from a VBA function?

    This code Sub CheckBox31_Click() Dim r As Word.Range ' for footers 1 = wdHeaderFooterPrimary Set r = ActiveDocument.Sections(1).Footers(1).Range If CheckBox31 = True Then With r .Text = "Draft Copy " .Collapse Direction:=wdCollapseEnd End With...
  3. blinocac

    Inserting Page X of Y into a footer from a VBA function?

    The one that I quoted there where I said I finally ended up using this solution. It looked at first as if it would work, until I realized that all the pages were 1. I gave your solution a whirl and it didn't work either, so I may be back to square one.
  4. blinocac

    Inserting Page X of Y into a footer from a VBA function?

    Yeah I got to realizing that a little later. I actually wrote that code before I saw your post.
  5. blinocac

    Inserting Page X of Y into a footer from a VBA function?

    I finally ended up using this solution Private Sub CheckBox31_Click() With ActiveDocument.Sections(1) Dim CurPage As String Dim TtlPgs As String CurPage = Selection.Information(wdActiveEndPageNumber) TtlPgs = Selection.Information(wdNumberOfPagesInDocument) If CheckBox31 = True...
  6. blinocac

    Inserting Page X of Y into a footer from a VBA function?

    My apologies. I am working in Word. The funtion looks like this: Private Sub CheckBox31_Click() With ActiveDocument.Sections(1) CurPage = Selection.Information(wdActiveEndPageNumber) TtlPgs = Selection.Information(wdNumberOfPagesInDocument) If CheckBox31 = True Then...
  7. blinocac

    Inserting Page X of Y into a footer from a VBA function?

    I am working on a form, and the form includes a checkbox that changes the wording of the footer. How do I insert the Page X of Y page numbering format from within my VBA Function?

Part and Inventory Search

Back
Top