Whatsapp .fichier txt chat dans original whatsapp format

J'ai whatsapp chats en .format de fichier txt. Je veux convertir à l'origine de whatsapp format (j'.e whatsapp interface d'origine).
L'entrée est .fichier txt

Exemple:

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

Maintenant, je veux que la sortie dans un doc Word avec une interface similaire à celle de celle de whatsapp.

[c'est à dire, tous les chats par Jean sur le côté gauche et par Stacy sur le côté droit]

J'ai essayé de le faire que par l'importation .fichier txt dans excel, puis modification dans word. Mais cela ne fonctionne pas.

Format de sortie requis:

Veuillez cliquer ici pour afficher la sortie requise format word
(Son très similaire à whatsapp format)

C'est ce que j'ai fait:

1) j'ai importé les données dans excel à partir de .fichier txt.

2) j'ai utilisé le code python pour convertir txt format de fichier excel
Veuillez cliquer ici pour afficher le fichier

3) j'ai ensuite copié cette .fichier doc et a ajouté frontières

4) Et maintenant, j'ai enlevé la sortie de la frontière. Voilà comment j'ai obtenu le format que j'ai joint dans le premier lien.

Le problème que je suis confronté est là où le texte n'est pas là, j'ai besoin d'aller manuellement la cellule et sélectionnez "No Border". Je vais avoir plus de 1000 de ces.

Est-il de toute façon je peux le faire par programmation?

Quelque chose peut être fait à l'aide de Word ou Excel VBA?

  • Bienvenue sur StackOverflow. Veuillez prendre un moment pour lire les lignes directrices dans le centre d'aide sur la façon de poser des questions ici. Vous avez besoin d'affiner votre question, montrer le code que vous avez essayé et décrire COMMENT ce code ne fonctionne pas.
  • Cindy Meister : consultez l'édition
  • Veuillez la formater afin que celui-ci est lisible - vous voulez l'aider, vous faire le travail...
  • Je ne pense pas que le Java balise correspond ici. Aussi, je pense que vous pourriez concentrer dans une seule langue, parce que nous ne pouvons pas faire le travail exactement comme vous le souhaitez. Ce que l'exception ne vous obtenez lors de l'exécution du code VBA? Ce qui est défectueux il? Il peut être utile de vous lire le DONC en Demandant Guide
  • Où est le tableau que vous ciblez dans votre code?
  • Rahul: stackoverflow n'est pas ce qui me permet de joindre plusieurs fichiers 2 parce que j'ai <10 réputation, il me semble. Donc je n'ai pas joindre ces fichiers
  • voir la réponse. Vous ajouter votre nom ou un pseudonyme

InformationsquelleAutor user3905334 | 2016-03-29
  1. 0

    Si vous avez déjà de table comme le montre l'image de ce que vous pouvez faire est de retirer le tous bords et exécutez le code suivant.

    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
    • Hai Rahul. Ce n'est pas l'exact o/p, mais j'ai eu l'idée d'ur code et je pense que je peux passer de la traction avant à l'aide de votre code. Merci lott 🙂
    • Sur DONC, Beaucoup de peu de, sera en mesure de comprendre ce que vous voulez. Vous aurez à travailler autour de la solution qu'ils fournissent.
    InformationsquelleAutor Rahul