PROBLEMA COM SAVEAS NO WORD
Boa noite amigos!
Não consigo utilizar o método SaveAs de jeito nenhum. Não sei o que estou fazendo de errado. Poderiam me ajudar?
Erro em tempo de execução 4248
Segue meu código:
Sub SaveTextInVariable()
[ô]
[ô]
Dim sText As String
Dim strfilename As String
Application.Selection.ClearFormatting
Application.Selection.Find.Execute [Ô]veri[Ô]
Application.Selection.Expand wdLine
sText = Application.Selection.Text
sText = Replace(sText, [Ô]º[Ô], [Ô][Ô])
sText = Replace(sText, [Ô]/[Ô], [Ô] [Ô])
MsgBox ([Ô]Salvou:[Ô] & sText & [Ô]--[Ô])
strfilename = [Ô]C:\Users\DATTEIN\Desktop\TESTE\[Ô] + sText
Set objWord = New Word.Application
objWord.Visible = True
objWord.ActiveDocument.SaveAs strfilename, wdWordDocument
Set objDoc = Nothing
Set objWord = Nothing
[ô]
[ô]
End Sub
Não consigo utilizar o método SaveAs de jeito nenhum. Não sei o que estou fazendo de errado. Poderiam me ajudar?
Erro em tempo de execução 4248
Segue meu código:
Sub SaveTextInVariable()
[ô]
[ô]
Dim sText As String
Dim strfilename As String
Application.Selection.ClearFormatting
Application.Selection.Find.Execute [Ô]veri[Ô]
Application.Selection.Expand wdLine
sText = Application.Selection.Text
sText = Replace(sText, [Ô]º[Ô], [Ô][Ô])
sText = Replace(sText, [Ô]/[Ô], [Ô] [Ô])
MsgBox ([Ô]Salvou:[Ô] & sText & [Ô]--[Ô])
strfilename = [Ô]C:\Users\DATTEIN\Desktop\TESTE\[Ô] + sText
Set objWord = New Word.Application
objWord.Visible = True
objWord.ActiveDocument.SaveAs strfilename, wdWordDocument
Set objDoc = Nothing
Set objWord = Nothing
[ô]
[ô]
End Sub
Citação:
tenta assim
lembrando que sText tem que retornar o nome do arquivo com a extensão, exemplo: [txt-color=#0000f0]documento.docx[/txt-color]
strfilename = [Ô]C:\Users\DATTEIN\Desktop\TESTE\[Ô] + sText
Set objWord = New Word.Application
objWord.Visible = True
objWord.ActiveDocument.SaveAs strfilename
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothinglembrando que sText tem que retornar o nome do arquivo com a extensão, exemplo: [txt-color=#0000f0]documento.docx[/txt-color]
Bom colega o erro é explicito o documento deve ser aberto para poder ser salvo.
como vc está abrindo este documento?
como vc está abrindo este documento?
Oi Marcelo!
Eu não sei se meu algoritmo está certo. Vou descrever passo a passo o que tenho de fazer:
1° - Estou escrevendo um arquivo Word (criei ele e estou com ele aberto)
2° - Dentro do arquivo tem um protocolo
3° - Para não perder tempo, gostaria de chamar a macro para salvar automaticamente um novo arquivo com o novo protocolo que digitei no word
Resumindo:
1° - Procuro a palavra [Ô]protocolo[Ô] com o código: Application.Selection.Find.Execute [Ô]protocolo[Ô]
2° - Seleciona o restante da linha: [Ô]protocolo 12345[Ô]
3° - Salvo o que foi selecionado na variável sText
4° - Depois disso, pretendo salvar o nome do arquivo com a sTex
Deu para entender?
Não sei se tem outra forma de fazer isso. Já tentei usar o dialogFileSaveAs, mas também
ocorre um erro informando que o sText é um nome inválido...
Eu não sei se meu algoritmo está certo. Vou descrever passo a passo o que tenho de fazer:
1° - Estou escrevendo um arquivo Word (criei ele e estou com ele aberto)
2° - Dentro do arquivo tem um protocolo
3° - Para não perder tempo, gostaria de chamar a macro para salvar automaticamente um novo arquivo com o novo protocolo que digitei no word
Resumindo:
1° - Procuro a palavra [Ô]protocolo[Ô] com o código: Application.Selection.Find.Execute [Ô]protocolo[Ô]
2° - Seleciona o restante da linha: [Ô]protocolo 12345[Ô]
3° - Salvo o que foi selecionado na variável sText
4° - Depois disso, pretendo salvar o nome do arquivo com a sTex
Deu para entender?
Não sei se tem outra forma de fazer isso. Já tentei usar o dialogFileSaveAs, mas também
ocorre um erro informando que o sText é um nome inválido...
Acho que entendi, você deseja salvar o documento (protocolo) com uma numeração automática, seria isso?
Isso aÃ! Você sabe me dizer como posso fazer?
se você ja consegue colocar o numero do protocolo no sText, então bastaria incrementar esta macro
Sub SalvarDoc()
strfilename = [Ô]C:\Users\DATTEIN\Desktop\TESTE\protocolo_[Ô] + sText
ActiveDocument.SaveAs2 FileName:=strfilename, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:=[Ô][Ô], AddToRecentFiles _
:=True, WritePassword:=[Ô][Ô], ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=14
End Sub
Faça seu login para responder