Snippet Library

none

Public Function WordDoc(sFileName As String, sNewDoc As String) As String
     'Open the text file into word and save it as a word doc behind the scenes
         Dim objWord As Object
         Dim objDoc As Object
         Set objWord = CreateObject("Word.Application")
         Set objDoc = objWord.Documents.Open(sFileName)
         objWord.Selection.WholeStory
         objDoc.SaveAs sNewDoc, 0 'wdFormatDocument
         objDoc.Close
         objWord.Quit
         
         'clear memory of the objects
         Set objDoc = Nothing
         Set objWord = Nothing
         'remove this...
         MsgBox "Mission Accomplished"
     End Function


     Private Sub Command1_Click()
     Dim strbuild As String
     Dim mySpace As Integer
     'split the textbox data
         a1 = Split(Text1.Text, vbCrLf)
         a2 = Split(Text2.Text, vbCrLf)
         'get info as to which side will have more content
         a1max = UBound(a1)
         a2max = UBound(a2)
         'if side 2 > side one
         If a1max < a2max Then
           For i = 0 To UBound(a2)
           If i <= UBound(a1) Then
              mySpace = Len(a1((i)))
              mySpace = (36 - mySpace)
              Else
              mySpace = 36
              End If
              If i <= UBound(a1) Then
                  strbuild = strbuild & a1(i) & Space(mySpace) & a2(i) & vbCrLf
              Else
                 strbuild = strbuild & (Space(mySpace)) & a2(i) & vbCrLf
              End If
             Next i
         Else
         'if side one > side 2 then
' commented the lines to it wouldn't save twice.

           For i = 0 To UBound(a1)
          '    If i <= UBound(a2) Then
          '    mySpace = Len(a1((i)))
          '    mySpace = 36 - mySpace
              
           '   strbuild = strbuild & a1(i) & (Space(mySpace)) & a2(i) & vbCrLf
           '   End If
              If i > UBound(a2) Then
              strbuild = strbuild & a1(i) & vbCrLf
              End If
             ' If i > a2max Then
             ' strbuild = strbuild & vbCrLf & a1(i)
             '  End If
             Next i
             
           End If
           
         'build string to load into text file
         strmsg = lab & vbTab & recname & vbCrLf & vbNewLine & strbuild
         Open "C:my documentsmyfile.txt" For Output As #1
            Print #1, strmsg
         Close #1
         'convert it to a word document
         'pass it the name of the text file and the filename you want it saved as
         Call WordDoc("C:my documentsmyfile.txt", "C:my documentsNewDoc.doc")
     End Sub

     Private Sub Form_Load()
         'give it some dummy information for this exercise
         Text1 = ""
         Text2 = ""
         Text1 = "watermelon" & vbCrLf & "carrots" & vbCrLf & "potatoe" & vbCrLf & "onion" & vbCrLf & "custard"
         Text2 = "1 cup" & vbCrLf & "blender" & vbCrLf & "work will you."
     End Sub;