Pergunta : O MS alcança 2007 VBA para converter um original da palavra em uma lima de texto

Nós recebemos formulários de registo através de MS Word e nós precisamos de importá-los no acesso do MS.  Há um código de VBA para transferir um original da palavra em uma lima de texto?  Uma lima de texto é mais fácil a import. class= do

Resposta : O MS alcança 2007 VBA para converter um original da palavra em uma lima de texto

Ver o código de VBA.

Se você se está usando dentro do acesso, você precisará de fazer uma referência à biblioteca da palavra.

Mudar o primeiro trajeto da lima a sua palavra doc.  Em segundo a seu nome de TXT.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
W não ofuscante como Word.Application novo
Doc não ofuscante como Word.Document

filePath = “c:\. \ test.doc”
filePathTxt = “c:\. \ test.txt”


Ajustar doc = w.Documents.Open (o filePath)

nome de arquivo de doc.SaveAs: =filePathTxt, FileFormat: =wdFormatText, _
    LockComments: =False, senha: = "", AddToRecentFiles: =True, _ de WritePassword
    : = "", ReadOnlyRecommended: =False, EmbedTrueTypeFonts: =False, _
    SaveNativePictureFormat: =False, SaveFormsData: =False, SaveAsAOCELetter: = _
    Falso, codificando: =1252, InsertLineBreaks: =False, AllowSubstitutions: _ do =False
    , LineEnding: =wdCRLF
        
Outras soluções  
 
programming4us programming4us