Sub 另存为PDF() s = ActiveDocument.Name i = InStrRev(s, ".") - 1 ActiveDocument.SaveAs2 filename:=ActiveDocument.Path & "\" & Left(s, i) & ".PDF", FileFormat:=17 End Sub