Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[Ajuda] codigo vba abrir, salvar, fechar...

Dúvidas gerais sobre Word
Avatar do usuário
sirjack
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qui Abr 25, 2013 12:41 pm

[Ajuda] codigo vba abrir, salvar, fechar...

Mensagem por sirjack »

Pessoal
Tenho uns mil arquivos em word.doc, que só abrem no Word2003(devido as formatações, já testei de tudo e só abre no m...do word2003) e preciso abrí-los no Word 2010.

Comecei fazendo na mão, um a um(demoradíssimo):
abro arquivo.doc + salvo como.docx + fecho + abro próximo...e assim por diante.
Pensei, poxa, vamo roda uma macro e pau na maquina!

Tava tentando assim:
-relacionei os nomes de todos em uma coluna de planilha excel,
-copio nome da ativada,
-colo em uma inputbox, que fazia todo resto(ssalva como docx, fechava arquivo...e reiniciava o processo)


...todos os arquivos, seguem uma sequencia de nomes: informe2000, informe2001, informe2002....e vai.

Eu só não to conseguindo COLAR NA INPUTBOX, o valor que copiei da planilha.
Se alguem puder me ajudar, ou me orientar em algo mais pratico.

Obrigado pessoal!!

Segue script no vba:
Sub Finalizando()

' macro abre lista dos informes e copia nmro dos informes pra uso posterior
Workbooks.Open FileName:="D:\lista dos informes.xls"
'ativa celula atual e copia >>>>>atenção: iniciar pela celula com o 1o numero
ActiveCell.Activate
Selection.Copy
'ja pula pra posterior, pq eh a prox a ser copiada

'Range("A1").Select

Dim nome As String
ActiveCell.Offset(1, 0).Range("A1").Select

nome = InputBox("Digite Numero do Informe:", "Title")
InputBox.Paste

If nome = "" Then
'Exit Sub
End If
If nome <> "" Then
'Documents.Open ("D:\informes03\" & nome)

'abre o arquivo do informes03
ChangeFileOpenDirectory "D:\Informes03\"
Documents.Open ("Informe" & nome & ".doc"), ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""

'salva o arquivo do informes10
ChangeFileOpenDirectory "D:\Informes10\"
ActiveDocument.SaveAs ("Informe" & nome & ".docx"), FileFormat:=100, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.Close

End If

End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder