Whatsapp .txtファイルはオリジナルのwhatsapp形式にチャットします

Question

私は.txtファイル形式のwhatsappチャットを持っています。元のwhatsapp形式（つまり、元のインターフェイスのwhatsapp）に変換する必要があります。 入力が

例.txtファイルです：今

12/11/2014, 12:22 PM - John: Hi Stacy 
12/11/2014, 12:22 PM - John: :) 
13/11/2014, 2:59 AM - John: How are you? 
13/11/2014, 2:59 AM - John: Are u home? 
13/11/2014, 8:09 AM - Stacy: Hi John 
13/11/2014, 8:10 AM - Stacy: yeah I am good 
13/11/2014, 8:10 AM - Stacy: and home too 
13/11/2014, 9:14 PM - John: ok 
16/11/2014, 4:14 PM - Stacy: how are you? 
16/11/2014, 4:16 PM - John: I am good too 
16/11/2014, 4:16 PM - John: See u tmrw at work 
16/11/2014, 4:16 PM - John: :) 
16/11/2014, 4:24 PM - Stacy: yeah ok 

、私はのWhatsAppと同様のインターフェースを持つWord文書で出力したいです。

[右側左側とステイシー・ジョンによって、すなわち、すべてのチャット]

私はExcelにこの.txtファイルをインポートし、Wordで編集していることを実行しようとしました。しかし、それはうまくいかなかった。

必要な出力形式：

1）IからExcelのデータをインポート：

Please click here to view the required output word format （その非常に似たのWhatsAppする形式）

これは私がやったことです。 txtファイル。

2）I）は、ファイル Please click here to view that file

3をExcelにそのTXTフォーマットを変換するPythonコードを使用私は、.docファイルと追加境界

4にこれをコピーした）そして今は、出力境界を除去しました。それで、最初のリンクで私が書いたフォーマットが得られました。

私が直面している問題は、テキストがそこにない場合は、手動でそのセルに行き、 "境界線なし"を選択する必要があります。私はこれらの1000を持っています。

私はこれをプログラムで実行できますか？

WordまたはExcel VBAを使用して何かできますか？

Answer 1

イメージに示されているようなテーブルがあれば、すべてのボーダーを削除して次のコードを実行してください。

Sub demo1() 
With ActiveDocument.Range 
Dim oCell As Cell 
Dim oRow As Row 
'remove all boarders before executing this code 
    For Each oRow In .Tables(1).Rows 
     For Each oCell In oRow.Cells 
      If Not oCell.Range.Text = Chr(13) & Chr(7) Then 
       Set rng = oCell.Range 
       With rng 
        With .Borders(wdBorderTop) 
         .LineStyle = Options.DefaultBorderLineStyle 
         .LineWidth = Options.DefaultBorderLineWidth 
         .Color = Options.DefaultBorderColor 
        End With 
        With .Borders(wdBorderLeft) 
         .LineStyle = Options.DefaultBorderLineStyle 
         .LineWidth = Options.DefaultBorderLineWidth 
         .Color = Options.DefaultBorderColor 
        End With 
        With .Borders(wdBorderBottom) 
         .LineStyle = Options.DefaultBorderLineStyle 
         .LineWidth = Options.DefaultBorderLineWidth 
         .Color = Options.DefaultBorderColor 
        End With 
        With .Borders(wdBorderRight) 
         .LineStyle = Options.DefaultBorderLineStyle 
         .LineWidth = Options.DefaultBorderLineWidth 
         .Color = Options.DefaultBorderColor 
        End With 
       End With 
      End If 
     Next oCell 
    Next oRow 
End With 
End Sub