Appending Word files.

• • Reply

  13 years ago

  by ajb

  Andrew

  , United Kingdom

  Joined 13 years ago

  Can anybody please help?
   
  I want to set up a number of tick boxes, each corresponding to a separate Word file.  I then want to append all of the
  selected files and save them in one Word file.
   
  I know this should be easy, but I just can’t seem to work it out.
   
  Very many thanks for any guidance.
   

  Report abuse
• • Reply

  13 years ago

  by anatha1

  nimol men

  Sieam Reap, Cambodia

  Joined 13 years ago
  Hey ajb !
  i don't know more about your question but i have a small idea for u about Append Text to Microsoft Word .
  
  sub AppendText2Word()
  Const END_OF_STORY = 6
  Const MOVE_SELECTION = 0
  
  Set objWord = CreateObject("Word.Application")
  'objWord.Visible = True
  
  Set objDoc = objWord.Documents.Open("D:\Nimol My Music\doc2.doc")
  Set objSelection = objWord.Selection
  objSelection.EndKey END_OF_STORY, MOVE_SELECTION
  
  objSelection.TypeParagraph
  objSelection.TypeParagraph
  
  objSelection.Font.Size = "8"
  objSelection.TypeText "Hey i am mr. Nimol Anatha 2day is :" & Date()
  objSelection.TypeParagraph()
  'objSelection.TypeParagraph()
  
  objSelection.Font.Size = "10"
  objDoc.Saved = TRUE
  objWord.Quit
  end sub
  
  sorry if something not the same of your mind.
  from
  Anatha
  Report abuse