從另一個子設備調用子設備時出現「預期的功能或變量」錯誤

Question

這是我的代碼。調試器指出第二個子問題，問題在哪裏。我希望用兩個不同的pre_word將文檔保存爲pdf。謝謝。

Sub yeniDosyaAdiVer() 
    yeniDosyaAdiKelimeleri = Split(ActiveDocument.FullName, ".") 
    yeniDosyaAdiKelimeleriSayisi = UBound(yeniDosyaAdiKelimeleri) 
    'MsgBox ("Kelime sayısı:" & yeniDosyaAdiKelimeleriSayisi) 
    For xcv = 0 To (yeniDosyaAdiKelimeleriSayisi - 1) 
    'MsgBox (xcv & ". kelime:" & yeniDosyaAdiKelimeleri(xcv)) 
     sonDosyaAdi = sonDosyaAdi & yeniDosyaAdiKelimeleri(xcv) & "." 
    'MsgBox (sonDosyaAdi) 
    yeniDosyaAdiVer = sonDosyaAdi 
End Sub 

Sub TİTCK2pdf() 
    With ActiveDocument 
     .ExportAsFixedFormat OutputFileName:="titck-imza-" & yeniDosyaAdiVer() & "pdf", _ 
     ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ 
     OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ 
     Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 
     CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
     BitmapMissingFonts:=True, UseISO19005_1:=False 
    End With 
End Sub 

Sub TİTCK_ic2pdf() 

With ActiveDocument 
    .ExportAsFixedFormat OutputFileName:="titck-imza-ic-" & yeniDosyaAdiVer() & "pdf", _ 
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ 
    OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ 
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
    BitmapMissingFonts:=True, UseISO19005_1:=False 
End With 


End Sub 

Answer 1

yeniDosyaAdiVer()是一個子。它不返回任何結果......在TITCK的第二行，你要那麼你需要改變子到功能

Function yeniDosyaAdiVer() 
    yeniDosyaAdiKelimeleri = Split(ActiveDocument.FullName, ".") 
    yeniDosyaAdiKelimeleriSayisi = UBound(yeniDosyaAdiKelimeleri) 
    'MsgBox ("Kelime sayısı:" & yeniDosyaAdiKelimeleriSayisi) 
    For xcv = 0 To (yeniDosyaAdiKelimeleriSayisi - 1) 
    'MsgBox (xcv & ". kelime:" & yeniDosyaAdiKelimeleri(xcv)) 
     sonDosyaAdi = sonDosyaAdi & yeniDosyaAdiKelimeleri(xcv) & "." 
    'MsgBox (sonDosyaAdi) 
    yeniDosyaAdiVer = sonDosyaAdi 
End Function 

Sub TİTCK2pdf() 
    With ActiveDocument 
     .ExportAsFixedFormat OutputFileName:="titck-imza-" & yeniDosyaAdiVer & "pdf", _ 
     ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ 
     OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ 
     Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 
     CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
     BitmapMissingFonts:=True, UseISO19005_1:=False 
    End With 
End Sub 

Sub TİTCK_ic2pdf() 

With ActiveDocument 
    .ExportAsFixedFormat OutputFileName:="titck-imza-ic-" & yeniDosyaAdiVer & "pdf", _ 
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _ 
    OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _ 
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ 
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
    BitmapMissingFonts:=True, UseISO19005_1:=False 
End With 


End Sub