BarbaraMarth
Gebruiker
- Lid geworden
- 4 mei 2020
- Berichten
- 9
Hallo,
Ik heb een stukje code gemaakt om *doc documenten in een folder op te slaan als PDF.
Het probleem is dat hij niet enkel de *doc documenten behandelt, maar ook de *docx documenten, en dat wil ik niet.
Hoe kan ik de volgende lijn herschrijven zodat hij enkel *doc files neemt en niet *docx
Hier is mijn volledig stukje code:
Ik heb een stukje code gemaakt om *doc documenten in een folder op te slaan als PDF.
Het probleem is dat hij niet enkel de *doc documenten behandelt, maar ook de *docx documenten, en dat wil ik niet.
Hoe kan ik de volgende lijn herschrijven zodat hij enkel *doc files neemt en niet *docx
Code:
myFile = Dir$(PathToUse & "*.doc")
Hier is mijn volledig stukje code:
Code:
Sub opslaanAlsPDF()
Dim myFile As String
Dim PathToUse As String
Dim myDoc As Document
'C:\Users\barbara.blancquaert\Desktop\werkdir_omzetten_naar_PDF
PathToUse = "C:\Users\barbara.blancquaert\Desktop\werkdir_omzetten_naar_PDF\src_docs\"
SavePath = "C:\Users\barbara.blancquaert\Desktop\werkdir_omzetten_naar_PDF\pdf_docs\"
myFile = Dir$(PathToUse & "*.doc")
'bizar, hij neemt als je *doc meegeeft, zowel de *doc als de *docx files
While myFile <> ""
'Open document
Set myDoc = Documents.Open(FileName:=PathToUse & myFile)
newName = Replace(myFile, ".doc", ".pdf")
myDoc.SaveAs SavePath & newName, Fileformat:=wdFormatPDF
myDoc.Close
'Next file in folder
myFile = Dir$()
Wend
End Sub
Laatst bewerkt: