issue with macro that fill a word document with text

[kerm007]

hello
we have an excel sheet that contain a macro who create a word document
every time we running it it fill all line with "all tests" even if the line 7 is empty.
not sure why.
plus the word doc created put text sometime in 2 lines instead of 1


here the code :

Sub Main()

  StartForm.Show
 
  Dim Name As String
  Dim OwordDocument As WordDocument
  Dim OoutlookEvents As OutlookEvents
  Dim Item As String
  Dim Items() As String
  Dim element As Variant
 
  Sheet1.Activate
 
  Dim LastCol As Integer
    With ActiveSheet
        LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
    End With

  If ActiveSheet.Cells(StartForm.LineTextBox, 1).Text <> "" Then
 
      Name = ActiveSheet.Cells(StartForm.LineTextBox, 1).Text
      
      Set OwordDocument = New WordDocument
      Set OoutlookEvents = New OutlookEvents

      OwordDocument.InsertTitle (Name)
      
      For i = 2 To LastCol
      
        If ActiveSheet.Cells(StartForm.LineTextBox, i).Text <> "" And i <> 30 Then
        
          Item = ActiveSheet.Cells(3, i).Text + " " + _
            ActiveSheet.Cells(2, i).Text + " " + ActiveSheet.Cells(4, i).Text + " " + _
            ActiveSheet.Cells(StartForm.LineTextBox, i).Text + ActiveSheet.Cells(5, i).Text + " " + _
            ActiveSheet.Cells(6, i).Text + ActiveSheet.Cells(7, i).Text + _
             " ,all tests"
              
          OwordDocument.InsertItem (Item)
          OoutlookEvents.SetEvent (Item)
        
        End If
      
      Next
      
      If ActiveSheet.Cells(StartForm.LineTextBox, 30).Text <> "" Then
        
        Items = Split(ActiveSheet.Cells(StartForm.LineTextBox, 30).Text, Chr(10))
        
        OwordDocument.InsertRetests
            
        For Each element In Items

            OwordDocument.InsertItem (element)
            OoutlookEvents.SetEvent ("Retest: " + element)
        
        Next element
        
      End If
 
  End If
 
End Sub

Thanks

 

[Joe4]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.
Be sure to follow & read the link at the end of the rule too!

Please provide links to the other places where you have posted this question.
If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[kerm007]

you mean same question in different excel forum site ?
Thanks

 

[Fluff]

That's right. Please supply the links as requested.

 

[kerm007]

here you go :

issue with excel creating a word document

hello at work we have an excel that suppose to create a word document and insert some info in our calendar the issue we have is all the line on the word doc created is having all test and they shouldn't any help is appreciate 870308 and the code that was created : Sub Main()

www.excelforum.com

 

[kerm007]

can anyone help me ?
basically she run the script choose a date and it produce a word document and insert event in outlook calendar
the issue is the word file produce get this (all test) insert and it shouldn't
Thanks