word 另存为 pdf 的 vba 修改

matrixx

如下word 另存为 pdf ， 得到的 pdf 文件名 会包括 doc文件的扩展名，
比如 test.docx 运行名， 得到 pdf 文件  test.docx.pdf.    如何修改一下， 直接得到 test.pdf  .  (sName = oDoc.Name 取出来能否不包括扩展名？）
================

Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim sPath As String
sPath = oDoc.Path
Dim sName As String
sName = oDoc.Name
oDoc.ExportAsFixedFormat OutputFileName:=(sPath & "\" & sName & ".pdf"), _
            ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=oDoc.Range.Information(wdNumberOfPagesInDocument), _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True
   oDoc.Save
   MsgBox "完成"

matrixx

用一个 replace  解决了

wdpfox

replace哪里？

蜀中草莽

sName = Split(oDoc.Name, ".")(0)

matrixx

蜀中草莽 发表于 2022-7-2 07:56
sName = Split(oDoc.Name, ".")(0)

不错不错， 相当可以。
比sName = Replace(oDoc.Name, ".docx", "") 好用一些。