Criando um calendário a partir de um documento do Word

Question

Alguém conhece um aplicativo de calendário que pode ler um documento do Word e criar um calendário com base em cada linha?

Exemplo:

Monday 
 1. 8-9 Wake up
 2. 9-12 Work out
 3. 12-6 Work

Usando isso, ele deve criar um calendário de texto simples que deve ser parecido com isto:

Alguém sabe algo assim?

    

Answer 1

Eu suponho que você esteja à mão com estilos, etc no Word e apenas re-colocar no Word não está funcionando para você.

Eu não entendo se você está procurando:

1. Faça uma conversão única ou mantenha o documento como está;
2. Insira essas linhas como entradas em um programa de calendário ou apenas exiba os dados em um formato de calendário-y.

Se você estiver fazendo uma conversão única, salve o documento em formato de texto simples e trabalhe com as linhas.

Se você quiser importar as linhas para um programa de calendário, poderá exportá-las para arquivos .ics, que podem ser importados para praticamente qualquer programa de calendário, como o Google Agenda, etc. Consulte link para detalhes sobre o layout.

Se você está procurando apenas uma exibição, marque as linhas com nomes de estilo de data / atividade usando uma sintaxe como

<style type="text/css">
 ol.daylist { list-style-type: lower-roman }
 li.dayofweek { list-style-type: none }
 li.todoitem { background-color:#00ff00;}
</style>
<ol class="daylist">
    <li class="dayofweek">Monday</ol>
    <li class="todoitem">8-9 Wake up</li>
    <li class="todoitem">9-12 Work out</li>
</ol>

e use um arquivo CSS para exibir os dados da maneira que você gosta.

Se você quiser usar o documento existente como está e apenas exibir a exibição dinamicamente, use o VBA para ler o conteúdo do documento e gravar as linhas como um arquivo html que pode ser aberto com o navegador da web do sistema. .

Este código de exemplo adaptado do link mostra como você pode usar um VBA macro para abrir o documento e ler cada linha.

Você pode ver onde, se o documento usar estilos, você poderia testar o estilo e usá-lo para determinar qual estilo atribuir à linha à medida que você a escreve em um arquivo html.

Sub OpenAndReadWordDoc()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim tString As String, tRange As Word.Range
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("c:\calendar.docm")
With wrdDoc
    For p = 1 To .Paragraphs.Count
        Set tRange = .Range(Start:=.Paragraphs(p).Range.Start, End:=.Paragraphs(p).Range.End)
            tString = tRange.Text
            tString = Left(tString, Len(tString) - 1) 'this is to avoid including CR/LF
           MsgBox (tString)
        Next p
        .Close ' close the document
    End With
    wrdApp.Quit ' close the Word application
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub