Re: section add - insert file

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

On the protected form they could add multiple documents so in order to remove
one in the middle it would probably be best to have a "Refresh" macro button
on the form to remove all added documents and start over.
How would I remove "All" ? Would it be just removing the .Last ?

Also, Where is a good source for learning Word programming?

Thanks again,
Bryan

"Doug Robbins - Word MVP" wrote:

Dim rnge As Range
Set rnge = ActiveDocument.Sections.Last.Range
rnge.start = rnge.start - 1
rnge.Delete


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

"bryan" <bryan@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:B6ADD70C-241B-4771-87E3-BF23207DE508@xxxxxxxxxxxxxxxx
How would you delete a document that was added?

Bryan

"Doug Robbins - Word MVP" wrote:

It should work for any number of checkboxes, except that you are doing to
need to supply the name of the file to insert each time.

An immediate undo of the result of clicking a checkbox would be possible
by
deleting the last Section of the document. It will be a tad more
complicated if another checkbox had been checked before the undo of the
action of checking a previous one is required.

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

"bryan" <bryan@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:7ACB03AF-AF71-426A-A38F-7090DD37DAA1@xxxxxxxxxxxxxxxx
Thanks Doug,
Will this work no matter how many check boxes I have?
If have 5 different check boxes with the potential of including 5
different
documents they will append at the bottom?
In other words:
For each check box I use the same code as described here for check2?

Another question on this topic:
Let's say they inadvertantly check box 1 and it adds the document, they
uncheck box 1, is there then a way to delete?

Thanks,
Bryan


"Doug Robbins - Word MVP" wrote:

If you always want the documents added at the end of the document in a
new
section, use:

If ActiveDocument.FormFields("Check2").CheckBox.Value = True Then
Dim myDoc As Document
Dim docrange As Range

Set myDoc = ActiveDocument
With myDoc
.Unprotect
Set docrange = .Range
docrange.Collapse wdCollapseEnd
docrange.InsertBreak wdSectionBreakNextPage
Set docrange = .Range
docrange.Collapse wdCollapseEnd
docrange.InsertFile "u:\temp3.doc"
.Protect wdAllowOnlyFormFields, NoReset
End With
End If


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

"bryan" <bryan@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:EDAA8F25-032B-4098-B974-D9864C8E0B1D@xxxxxxxxxxxxxxxx
I have tried this code and it works well if I select one checkbox. If
I
select more than 1, it is not working correctly.
My template is a letterhead (top and bottom) as are my documents.
When I check box one, it adds temp2.doc correctly.
When I check box 2, it adds a blank letterhead after my template
page,
then
adds
temp3.doc as a continuation of temp2.doc rather than starting a new
page.
I have in chk2 named myDoc1 and docrange1 but, that did not help
Here is the code for each check box:
Sub chk1()
'
' chk1 Macro
' Macro created 4/10/2008 by bjsorens
'
If ActiveDocument.FormFields("Check1").CheckBox.Value = True Then
Dim myDoc As Document
Dim docrange As Range

Set myDoc = ActiveDocument
With myDoc
.Unprotect
Set docrange = Selection.Bookmarks("\Page").Range
docrange.Collapse wdCollapseEnd
docrange.InsertBreak wdSectionBreakNextPage
Set docrange = .Range
docrange.Collapse wdCollapseEnd
docrange.InsertFile "u:\temp2.doc"
.Protect wdAllowOnlyFormFields, NoReset
End With
End If
End Sub

Sub chk2()
'
' chk1 Macro
' Macro created 4/10/2008 by bjsorens
'
If ActiveDocument.FormFields("Check2").CheckBox.Value = True Then
Dim myDoc As Document
Dim docrange As Range

Set myDoc = ActiveDocument
With myDoc
.Unprotect
Set docrange = Selection.Bookmarks("\Page").Range
docrange.Collapse wdCollapseEnd
docrange.InsertBreak wdSectionBreakNextPage
Set docrange = .Range
docrange.Collapse wdCollapseEnd
docrange.InsertFile "u:\temp3.doc"
.Protect wdAllowOnlyFormFields, NoReset
End With
End If
End Sub

Would appreciate any help so that by checking more than 1 box, the
next
file
(document) added would append after the last.

Thanks,
Bryan










.

Quantcast