handle file between Word & Excel in VBA

[Ethen5155]

Hi all,

well i have many files to handle between Word and Excel with a specific structure

as you see below i want to copy all Green segments then generate an Excel file in same path and copy it to column (A)
then copy all Yellow segments to same file but at column (B)

1.jpg


after that when i finish some modifications at excel i want to copy them back to word file with same structure:
Column (A) --> goes to Green
Column (B) --> goes to Yellow


Note: There are hidden segments as shown below i used wildcard "(\@)(*)(\^13)" to make them hidden

2.png


sample file is attached tooSample.doc

is it possible to do that in VBA, Any hint or help would be appreciated.


Thanks in Advance

Cheers

Ethen

[Ethen5155]

i tried my luck starting with this code, to export highlight text to a new excel file but i faced two problems

Sub ExportHighlightText()

  
Dim docCur As Document
  Dim snt As Range
  Dim Paragraphs As Range
  Dim i As Integer
 
  Dim appXL As excel.Application, xlWB As excel.Workbook, xlWS As excel.Worksheet
  Dim path As XPath
  


  Set appXL = CreateObject("Excel.Application")
  appXL.Visible = True
  Set xlWB = appXL.Workbooks.Add
  Set xlWS = xlWB.Worksheets(1)


  
  
  Application.ScreenUpdating = False
  
  Set docCur = ActiveDocument
  
  
For Each snt In docCur.Sentences
    If snt.HighlightColorIndex = wdBrightGreen Then
      i = i + 1
      xlWS.Cells(i, 1).Value = snt.Text
    End If
  Next snt
  
  
 For Each snt In docCur.Sentences
    If snt.HighlightColorIndex = wdYellow Then
      i = i + 1
      xlWS.Cells(i, 2).Value = snt.Text
    End If
  Next snt
  
 
ExitHandler:
  Application.ScreenUpdating = True
  Set snt = Nothing
  Exit Sub
  


  Resume ExitHandler
End Sub

first one it exports the text in column (B) but under other text in column (A) not opposite to it

1.jpg


second issue that it exports text as sentences and divide it to two lines not as paragraphs



2.jpg



and i'm still don't know how to get it back from excel to word with keeping same structure !!


Ethen

[macropod]

Cross-posted (and answered) at: http://www.excelforum.com/showthread.php?t=1169352


Please read our policyon Cross-Posting in item 3 of the board rules: http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3