WORD VBA problem

Hi There

This is funny one as its relating to Word VBA and not Excel:

I have a mailmerge splitter that gets to a certain point and then stops with a syntax error and i can't understand why!!

If anyone can help, that would be great. I have poseted the written VBA below:

Sub MailMergeSplitter()

' Parameters

Dim Letters As Long
Dim Counter As Long
Dim DocumentCounter As Long
Dim DocName As String
Dim oDoc As Document
Dim oNewDoc As Document
Dim GenisysFolderShare As String
Dim DateTimeFormatForDocumentName As String

' Location of Genisys Share where documents are store for indexing

GenisysFolderShare = "C:\TEMP\"

nTime = Timer

Application.ScreenUpdating = False

Set oDoc = ActiveDocument

Selection.EndKey Unit:=wdStory

Letters = Selection.Information(wdActiveEndSectionNumber)

Selection.HomeKey Unit:=wdStory

Counter = 1
DocumentCounter = 1

While Counter < Letters

LTrim$ (Str$(DocumentCounter)) & ".docx"


' Copy section contents and time to use as temporary document name

DateTimeFormatForDocumentName = Format(Now(), "yyyyMMdd.hhmmss")

' Set temporary document name using current date and time and counter

DocName = GenisysFolderShare & DateTimeFormatForDocumentName & "_" & oDoc.Sections(Counter).Range.Copy

' Check for extra page break or continuous break by checking if Copy has any content

If oDoc.Sections(Counter).Range.Characters.Count > 1 Then

Set oNewDoc = Documents.Add

With Selection
.Paste
.EndKey Unit:=wdStory
.MoveLeft Unit:=wdCharacter, Count:=1
.Delete Unit:=wdCharacter, Count:=1
End With

oNewDoc.SaveAs FileName:=DocName, _
FileFormat:=wdFormatDocument, _
AddToRecentFiles:=False
ActiveWindow.Close

DocumentCounter = DocumentCounter + 1

End If

Counter = Counter + 1

Wend

Application.ScreenUpdating = True

' Output completed message and details

MsgBox "Finished creating individual mail merge documents" & vbNewLine & vbNewLine & DocumentCounter - 1 & " documents created" & vbNewLine & vbNewLine & "Time taken: " & Timer - nTime & " seconds"

End Sub


the error happens on the following line:

DocName = GenisysFolderShare & DateTimeFormatForDocumentName & "_" & oDoc.Sections(Counter).Range.Copy

Thanks in anticipation to anyone that could help

Steve