vba word salvar

[deejaywesley]

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?

[Basole]

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

[deejaywesley]

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

[Basole]

Qual a versão do Word está usando?

[deejaywesley]

office word 2007

[Basole]

vou testar aqui...

[deejaywesley]

nao precisa necessariamente ser em txt

pode ser em pdf tbem...

[Basole]

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

[deejaywesley]

Parceiro....

perfeito, isso mesmo, funcionou beleza...

muito obrigado pela dedicação!

valeu mesmo!

forte abraço!

[Patropi]

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