Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
deejaywesley

[Resolvido] vba word salvar

Recommended Posts

Boa tarde amigos!

tenho o seguinte codigo!

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Ficheiro As String, N As Integer

Dim Rg As Range, C As Range, L As Range

'Aqui é para salvar no desktop

Ficheiro = "G:\WWW\Difusora\( JORNAL SINTESE\" & Format(Now, "ddmmyyyy") & ".txt"

Set Rg = ActiveSheet.Range("B2:B20")

N = FreeFile

Open Ficheiro For Output As N ' Abre o ficheiro para escrita

For Each L In Rg.Rows

For Each C In L.Columns

Print #N, C.Value; vbTab; ' escreve o valor da celula + uma tabulação

Next

Print #N, ' nova linha

Next

Close N ' fecha o ficheiro

MsgBox "Exportação concluída"

End Sub

esse codigo pega os valores de algumas celulas, "B2:B20" e salva em formato txt na pasta

"G:\WWW\Difusora\( JORNAL SINTESE\" & Format(Now, "ddmmyyyy") & ".txt"

o que to precisando é de um codigo parecido com esse para o WORD

quando o arquivo WORD for fechado, ele selecione todo texto e salve nesse caminho no formato txt...

tentei editar ele para o word mas nao ta funfando... alquem tem um que faça isso?:cool:

Compartilhar este post


Link para o post
Compartilhar em outros sites

tente isso:

Sub WordtoTxtwLB()

Dim fileName As String

myFileName = "JORNAL SINTESE" & Format(Now, "ddmmyyyy")

Ficheiro = "G:\WWW\Difusora\"

'Ficheiro = "C:\temp\"

ActiveDocument.SaveAs2 fileName:= _

Ficheiro & myFileName & ".txt", FileFormat:= _

wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _

WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _

LineEnding:=wdCRLF, CompatibilityMode:=0

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

opa boa noite!

testei aqui mas ta dando erro de execução '438' o objeto nao aceita esta propriedade ou metodo

e quando clico para depurar, fica em amarelo essa parte

Private Sub Document_Close()

'On Error Resume Next

Dim fileName As String

myFileName = "JORNAL SINTESE" & Format(Now, "ddmmyyyy")

Ficheiro = "G:\WWW\Difusora\"

'Ficheiro = "C:\temp\"

ActiveDocument.SaveAs2 fileName:= _

Ficheiro & myFileName & ".txt", FileFormat:= _

wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _

WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _

LineEnding:=wdCRLF, CompatibilityMode:=0

If ActiveDocument.Saved = False Then ActiveDocument.Save

End Sub

:o

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom eu uso o office 2010.

tente agora, fiz umas peq. mudanças e uns testes no 2007 e funcionou...

Sub WordtoTxtwLB()

Dim fileName As String

myFileName = "JORNAL SINTESE" & Format(Now, "ddmmyyyy")

'Ficheiro = "G:\WWW\Difusora\"

Ficheiro = "C:\temp\"

ActiveDocument.SaveAs fileName:= _

Ficheiro & myFileName & ".txt", FileFormat:= _

wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _

WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _

LineEnding:=wdCRLF ', CompatibilityMode:=0

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×