Tartalomjegyzék
Mentés másként
Ez a Word makró új fájlnévvel menti az ActiveDocument fájlt, amely tartalmazza az aktuális időt:
A Sub SaveMewithDateName () 'szűrt html fájlként menti az aktív dokumentumot az aktuális mappába, és az aktuális idő szerint nevezi el strTime, FileFormat: = wdFormatFilteredHTML End Sub
Létrehozás és mentés
Ez a VBA makró új dokumentumot hoz létre, és az aktuális dátum és idő szerint menti:
A Sub CreateAndSaveAs () 'új dokumentumot hoz létre, és szűrt html fájlként menti [Az alapértelmezett mappában, és az aktuális időpontban nevezik el] Dim strTime Mint String Dim strPath Mint String Dim oDoc As Document strPath = ActiveDocument.Path & Application.PathSeparator strTime = Format (Most "yyyy-mm-dd hh-mm") Állítsa be az oDoc = Documents.Add 'új dokumentumot, és rendelje hozzá az oDoc változóhoz' írjon be egy szöveget az új dokumentumba, hivatkozva rá az oDoc változó oDoc.Range.InsertBefore "Látogassa meg a https://easyexcel.net/vba-code-library" oldalt
Mentés PDF formátumban
Ez a makró menti a Word dokumentumot PDF formátumban:
A Sub MacroSaveAsPDF () 'makró a pdf -et ugyanabba a mappába menti, ahol az aktív dokumentum található, vagy a dokumentumok mappájába, ha a fájl még nincs mentve. "," example ") If strPDFname =" "Akkor 'a felhasználó törölte a szöveget az inputboxból, adja hozzá az alapértelmezett nevet strPDFname =" example "End If strPath = ActiveDocument.Path If strPath =" "Akkor a" doc még nincs mentve strPath = Options. DefaultFilePath (wdDocumentsPath) & Application.PathSeparator Else 'csak adja hozzá \ a végén strPath = strPath & Application.PathSeparator End If ActiveDocument.ExportAsFixedFormat OutputFileName: = _ strPath & strPDFname & ".pdf", _ ExportFormExport = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _ IncludeDocProps: = True, _ CreateBookmarks: = wdExportCreateWordBookmarks, _ BitmapMissingFonts: = True End Sub
Ez a funkció bármilyen Word dokumentumot PDF -ként is elment:
Sub MacroSaveAsPDFwParameters (Optional strPath As String, Optional strFilename As String) 'strPath, if pass, must include path útleválasztó ["\"] if strFilename = "" then strFilename = ActiveDocument.Name End If' kivonat csak a fájl neve kiterjesztés nélkül If InStr (1, strFilename, ".")> 0 Ezután strFilename = Left $ (strFilename, InStrRev (strFilename, ".") - 1) End If If strPath = "" Then If ActiveDocument.Path = "" Akkor a "doc" nem még mentve, az alapértelmezett elérési utat fogjuk használni OutputFileName: = _ strPath & strFilename & ".pdf", _ ExportFormat: = wdExportFormatPDF, _ OpenAfterExport: = False, _ OptimizeFor: = wdExportOptimizeForPrint, _ Range: = wdExportAllDocument, _Wearch: BitmapMissingFon ts: = True Exit Sub EXITHERE: MsgBox "Error:" & Err.Number & "" & Err.Description End Sub
A fájl elérési útját és fájlnevét megadva jelezheti, hogy melyik fájlt szeretné menteni PDF -ként:
Sub CallSaveAsPDF () Hívja a MacroSaveAsPDFwParameters ("c:/Documents", "example.docx") Befejező al
