Template will not print second page

server · Guest

message unavailable

Google · Sponsor

Cameron · Guest

Well, what happens with this document is there are a number of paged in it.
The button is placed in the header of each document and if the user wants ot
print out that particular page then certain attached pages also print out
(hense the extra printout statement). But there is one instance in the list
of pages where the context stems over to a second page. For the most part the
current page method works fine but just this one instance. Is there a way to
have the Button click event be able to check to see if there are two or more
pages? Could I out some sort of reference in the document that could trigger
that there where more then two pages and then have to printout method change
to accomidate more then one page? I ask because there is a template file that
could very well have the same problem.

"Doug Robbins - Word MVP" wrote:

Alan B. Densky · Guest

Hi Jay,

Thanks for your help. This is pretty close. I just need to know what I can
replace the .Execute Replace:=wdReplaceAll
with so that it doesn't delete every instance in the document, just the
first one it comes to. I tried wdReplace, but it didn't like that.

Alan

"Jay Freedman" <jay.freedman@verizon.net> wrote in message
news:vdkl23dahr2nkafc8e4c49c22lk5sd9l98@4ax.com...

Alan B. Densky · Guest

Hi Jay,

Forget the previous post. I've just about got everything working now. I
have one section of the macro left to do.

After I do the find & replace, I need to select a range of text. I have to
go back up to the top of the article (this is not the top of the document
because there is a string of hundreds of versions of the article in this
very long document.

Then I need to select a range of text (moving down in the document).

It would also be nice if I could copy that range to the clipboard.

Here is what I have so far:
Sub LeaveLinks()
'
' LeaveLinks Macro
' Macro recorded 4/18/2007
'
'Find the string that starts the links block of text and delete the text on
that line
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "LINKS SECTION======"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With

'Delete the block of text that doesn't have any links in it
Dim oRg As Range
Set oRg = ActiveDocument.Range
With oRg.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "(NO LINKS SECTION======)(*)(END NO LINKS SECTION======)"
.Replacement.Text = ""
.Forward = True
.Format = False
.MatchWildcards = True
.Wrap = wdFindContinue
.Execute Replace:=Word.WdReplace.wdReplaceOne
End With

'Go back up and find the beginning of the article

Selection.Find.ClearFormatting
With Selection.Find
.Text = "Article With Back links"
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

'Select the range of text to copy to the clipboard
With oRg.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "(Article With Back links)(*)(END NO LINKS SECTION======2)"
' ' .Replacement.Text = ""
.Forward = True
.Format = False
.MatchWildcards = True
.Wrap = wdFindContinue
.Execute Replace:=Word.WdReplace.wdReplaceOne
End With

'Copy the selected range to the clipboard

End Sub

Thanks for all of your help!

Alan

"Alan B. Densky" <sales@neuro-vision.us> wrote in message
news:MeaXh.33790$254.17869@bignews7.bellsouth.net...

Guest · Posted: Wed May 23, 2007 1:24 pm Post subject: Re: Macro help needed please

"Alan B. Densky" <sales@neuro-vision.us> wrote in message
news:Oy8Wh.926$TD3.238@bignews5.bellsouth.net...

Len Robichaud · Guest

First, Create a Command Button on your form
Then in the OnClick event, choose Code Builder and paste the following Sub

*************************************
Sub PopWordTemplate()
On Error GoTo PopWordTemplate_Error

Dim strTemplateFolder as string
Dim strTemplateFileName as string
Dim strTemplatePath As String
Dim objWord As Word.Application
Dim docWord As Word.Document

'Open Word
On Error Resume Next
'If Word is already Open
Set objWord = GetObject(, "Word.Application")
'If Word is not Open, Open it
If Err.Number <> 0 Then 'Start Word
Set objWord = CreateObject("Word.Application")
End If

On Error GoTo PopWordTemplate_Error

'The following assumes the word template is in the same folder as your
Database
'If it is somewhere else replace the following with strTemplateFolder =
"your path here" (the quotes are required)
strTemplateFolder = Application.CurrentProject.Path

strTemplateFileName = "\"& "your Template Name" &".dot"
strTemplatePath = strTemplateFolder & strTemplateFileName

'Opens the template as a new doc and allows it to be viewed
objWord.Documents.Add Template:=strTemplateFile, NewTemplate:=False
objWord.Visible = True

With objWord
' Find a bookmark and replace it with something from your Open Form
.ActiveDocument.Bookmarks("MyBookmark1").Select
.Selection.Text = me!SomeFieldOnMyForm1
.ActiveDocument.Bookmarks("MyBookmark2").Select
.Selection.Text = me!SomeFieldOnMyForm2
End With

Exit Sub

PopWordTemplate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
PopWordTemplate of Module basAutomation"
End Sub
*********************************
Len Robichaud

"Doctorjones_md" <xxxDoctorjones_mdxxx@xxxyahoo.com> wrote in message
news:%23akCoUWmHHA.4624@TK2MSFTNGP04.phx.gbl...