Макро работает в Word 2013, но не в 2010 году

Question

Я хотел создать шаблон для своих сотрудников и создать макрос, который «Сохраняет как ..» в конкретный файл, а также использует заголовок, чтобы предложить имя.

Как-то Macro игнорирует местоположение для назначения и открывает стандартные «Документы» папку

Это решается благодаря следующему коду!

 

Sub FileSave() 
' 
' FileSave Macro 
' Het actieve document of de actieve sjabloon opslaan 
' 

    ChangeFileOpenDirectory _ 
     "F:\Company\Marketing\Voorstellen\Voorstellen\Voorstel\" 

     If ActiveDocument.Path = "" Then 
     ' If the document has never been saved, the 
     ' value of its .Path is an empty string; otherwise 
     ' it has the file's path and name. 
     With Dialogs(wdDialogFileSaveAs) 
      .Name = MakeDocName ' call the function below 
      .Show    ' the suggested name will be in the dialog 
     End With 
    Else 
     ' The document has already been saved with a name 
     ' so just save it there. 
     ActiveDocument.Save 

     End If 

End Sub 


Function MakeDocName() As String 
    Dim theName As String 
     Trim(ActiveDocument.BuiltInDocumentProperties("Title")) 
    MakeDocName = theName ' return the assembled name 
End Function 

Answer 1

я просто удалил все нерабочей части вашей функции MakeDocName и это работало очень хорошо для меня в Word 2010 (также обратите внимание на капитал T в собственности собственности:

Function MakeDocName() As String 
    Dim theName As String 
     theName = "C:\00_Projects_temp\" & Trim(ActiveDocument.BuiltInDocumentProperties("Title")) 
    MakeDocName = theName ' return the assembled name 
End Function 

Answer 2

Удалить (\)backslash

theName = "F:\Company\Marketing\Voorstellen\Voorstellen\Voorstel\" 

Для

theName = "F:\Company\Marketing\Voorstellen\Voorstellen\Voorstel" 
                  ^'suggested Name = Voorstel