MS Word VBA：ランタイム5487のエラーを修正しました

Question

ランタイム5487のエラーを取り除くためにこの同じビットで数日間働いていますが、運がなかったのです。私はこれに得ることができるすべての助けに感謝します。エラーが1行に発生します。

ActiveDocument.SaveAs Fullname, fileformat:=wdFormatXMLDocument, AddToRecentFiles:=False. 

ファイルのパス名は、私はそれをします。Debug.Print E:\assessment_rubrics\Program Art-Teaching Certif BA BS .docxとして出てきます。

Function cvtstr(strIn As String) As String 
    Dim i As Integer 

    Const str = "/|?*<>"":" 
    cvtstr = strIn 
    For i = 1 To Len(str) 
    cvtstr = Replace(cvtstr, Mid$(str, i, 1), " ") 
Next i 
End Function 


Sub Splitter() 

' splitter Macro 

' Macro created by Doug Robbins to save each letter created by a mailmergeas a separate file. 
Application.ScreenUpdating = False 
Dim Program As String 
Dim DocName As String 
Dim Letters As Integer, Counter As Integer 
Dim file_name, extension, Fullname, filepath, Mask As String 

Letters = ActiveDocument.Sections.Count 
Selection.HomeKey Unit:=wdStory 
Counter = 1 
While Counter < Letters 
'program = ActiveDocument.MailMerge.DataSource.DataFields("Program_Outcomes_PlanReport_Name").Value 
DocName = "Reports" & LTrim$(str$(Counter)) 'Generic name of document 
ActiveDocument.Sections.First.Range.Cut 
Documents.Add 
Selection.Paste 
'ActiveDocument.Sections(2).PageSetup.SectionStart = wdSectionContinuous 

file_name = cvtstr(ActiveDocument.Paragraphs(1).Range.Text) 
file_name = Left(file_name, Len(file_name) - 1) 
extension = ".docx" 
DocName = "E:\assessment_rubrics\" & filename & file_name 
Fullname = DocName & extension 

Debug.Print Fullname 
Debug.Print file_name 

ActiveDocument.SaveAs Fullname, fileformat:=wdFormatXMLDocument, AddToRecentFiles:=False 

ActiveWindow.Close 
Counter = Counter + 1 
Wend 

Application.ScreenUpdating = True 

End Sub 

Answer 1

私はhttps://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_other/word-visual-basic-code/f1a23c49-da37-4974-9287-b224644ae617?auth=1に行くことで問題を突き止めることができました。ファイル名の末尾に段落記号が含まれていることが判明したので、file_name = Replace(file_name, Chr(13), "")を使用して問題を解決できました。