Stop multiple pastes at bookmark

macropod · #7 07-14-2011, 03:56 PM

Hi chipnputt,

I've had a quick look at your 'ExportToWord' sub. There are some odd things there, plus some inefficiencies that could be improved upon. For example:
1. Why do you have:

Code:

If Err.Number <> 0 Then 'Word isn't already running
End If

and:

Code:

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
ActiveDocument.Unprotect

Neither of these seem to do anything useful.

2. The code:

Code:

  If i = 2 Then
    DaySheet = "Monday"
  End If
  If i = 3 Then
    DaySheet = "Tuesday"
  End If
  If i = 4 Then
    DaySheet = "Wednesday"
  End If
  If i = 5 Then
    DaySheet = "Thursday"
  End If
  If i = 6 Then
    DaySheet = "Friday"
  End If
  If i = 7 Then
    DaySheet = "Saturday"
  End If

would be simpler and more efficicent as:

Code:

  Select Case i
    Case i = 2: DaySheet = "Monday"
    Case i = 3: DaySheet = "Tuesday"
    Case i = 4: DaySheet = "Wednesday"
    Case i = 5: DaySheet = "Thursday"
    Case i = 6: DaySheet = "Friday"
    Case i = 7: DaySheet = "Saturday"
  End Select

and, notwithstanding that I've demonstrated that copying & pasting is unnecessary for what you're doing:

Code:

  Worksheets(DaySheet).Activate
  Worksheets(DaySheet).Range(BmTeamName).Select
  Selection.Copy

would be simpler and more efficicent as:

Code:

Worksheets(DaySheet).Range(BmTeamName).Copy

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to insert Bookmark	rockwellsba	Word VBA	2	05-31-2011 01:07 AM
Help with PPT AddIn that pastes slides into another presentation	matt.wilson	PowerPoint	0	01-05-2011 03:28 PM
Controlling Style when a user pastes into a form	Cris0205	Word	0	08-05-2010 04:33 PM
Can you stop multiple calendars from fading?	JohnGalt	Outlook	2	08-05-2010 09:06 AM
Word only pastes plain text	seskanda	Word	6	02-19-2010 10:01 AM