Dynamically create documents

MrRikkie · #1 10-11-2012, 11:55 AM

Hello,
I have to write a lot of functional designs for my company and they all use chapters that are the same every time. Sometimes i need a certain chapter the next time i dont need that chapter but several other ones.

I now have all seperate chapters saved in seperated word document, like : chapter_a.docx chapter_b.docx ....

I also created a visual basic code that is able to add the content of an external word document to the current document.

The thing i'm looking for know is that I can show a dialog to the user from where he can select one more more chapters which are then copied in the document.
[] chapter_a

[x] chapter_b
[] chapter_c
[x] chapter_d
[] chapter_e
and so one.

Two questions ;
1. How do I create such a dialog and pass the selected values to a subroutine
2. What is the best way to startup this code ie. when creating / opening the document the first time or can i assign a special key combination to start this dialog.
-----
The code that i have now is created using the function to record a Macro but it works so far.

Code:

Sub FilesToCopy()

Call CopyPasteFromExternalFile("c:\isp\Hoofdstuk1.docx")
Call CopyPasteFromExternalFile("c:\isp\Hoofdstuk2.docx")

End Sub

Sub CopyPasteFromExternalFile(strFileToPaste As String)
'
' CopyPasteFromExternalFile Macro
' Test om content van externe bestanden te kopieren
'
    Documents.Open FileName:=strFileToPaste, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.Close
    Selection.EndKey Unit:=wdStory
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

------
Hope somebody can help me out.
Erik

macropod · #2 10-12-2012, 09:15 AM

What you'll need for this is a userform with checkboxes for the various chapters and code to test whether a particular checkbox is checked and, if so, import the corresponding chapter.

To see how to create & use a userform, see:
http://gregmaxey.com/word_tip_pages/..._userForm.html
http://www.fontstuff.com/vba/vbatut09a.htm

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Have Powerpoint dynamically update from an excel or other file?	oshkosh	PowerPoint	3	04-05-2016 06:10 AM
Linking Documents via Hyperlinks to create a "packet"	moose288	Word	3	09-22-2012 08:22 PM
draw charts dynamically	pouya7525	PowerPoint	0	09-06-2012 10:45 AM
Dynamically creating new drop down boxes.	dmncs	Word VBA	1	05-06-2012 09:29 PM
How do I dynamically update data in a Word Document from a database table	RSchmidt	Word	1	07-14-2011 04:27 PM