microsoft.public.word.vba.general

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" wrote in message
> news:B6ADD70C-241B-4771-87E3-BF23207DE508@microsoft.com...
> > 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" wrote in message
> >> news:7ACB03AF-AF71-426A-A38F-7090DD37DAA1@microsoft.com...
> >> > 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" wrote in message
> >> >> news:EDAA8F25-032B-4098-B974-D9864C8E0B1D@microsoft.com...
> >> >> >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
> >> >> >
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>