Thread: How to copy VB code from Source File to Target File programmatically?

This is for MSWORD 2003!!!!!

1) I'm trying to automate updating of VB Projects from a Revised SOURCE document into multiple TARGET document(s); one document at a time.
2) I used http://www.cpearson.com/excel/vbe.aspx (Copy A Module From One Project To Another) as starting code.
3) Everything works OK, except for the "ThisDocument" module. For this module, you can't import the code directly into it, since it can't be deleted. Therefore, you have to insert code into a TEMP module, then delete all the lines from the target "ThisDocument" module, then either .InsertLines or .AddFromFile to copy code lines from the TEMP module into the now empty target "ThisDocument" module.
4) Word crashes, though, when either of these two instructions are executed. From internet, got the idea that when code is added from the top down, that it sees "Sub ABC()" w/o the "End Sub" causing a compile error which causes the crash. So, I tried the idea of copying the lines (one line at a time, in a For ... Next loop) from the BOTTOM UP!
5) But, it still crashes. If I step thru it one line at a time, I find that it crashes when it comes to a line that has the COTINUATION DASH (" _") at the end of the line. This causes a compile error and a crash.
6) In the VB Editor, if I go to Tools / Options / Editor and UNCHECK the "Auto Syntax check" box, AND Tools / Options / General and UNCHECK the "Compile on Demand" box, then it DOESN'T crash.
But, I'd rather avoid this special steps, if there is some other trick out there to make this work. ... Any ideas on better ways to do this????? ... Thanks, sauerj

Why not create a Template that contains the code instead?

I was able to solve this myself. Solution deletes all modules from target file & wipes the ThisDocument module clean. Then, imports all modules from source file into target file & copies the lines of code from the source ThisDocument to the target ThisDocument. Then, asks if you want to do the same to another target file.
A lot faster than manually using the Organizer built-in tool, and then manually copy/paste over the ThisDocument code (which the Organizer doesn't do). I used it today to update ~20 documents (repeating the process 3 separate times), so gave it a good acid test. ... I like it!
Current solution changes ONE Target document at a time. It wouldn't be too difficult to change this so to change MULTI-Selected Target documents (in a common folder) in one swoop, which would be even better!!! Possible weekend plans.

When I try to e-mail the solution (which is a Doc file containing the VB code) from within the business environment to the outside, the business firewall blocks it thinking it is a virus. So, I won't post solution here, as may lead to bad things on this forum.
If anyone wants solution and AFTER getting moderator's OK, then I will post. ... Regards, sauerj

In your I would have use a Word -template containing all macros.
E:\OF\example.dot

For each user I would have made a document, based on this template and saved.

  with documents.add "E:\OF\example.dot"
    .saveas "E:\OF\" & username & ".doc"
    .close 0
  end with

I would then have sent each user a macro to 'open' that document:

sub start()
  documents.add "E:\OF\" & username & ".doc"
End sub

All macros in the template will be available for all users.
If some macros change in the template all users will benefit. The only thing you have to do is adapt the template. (most efficiently done by adapting a copy of the tmeplate and when finished saving that under the templates name).