diff options
-rw-r--r-- | wizards/source/template/Samples.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba index ac3431a2023b..3009f4cba705 100644 --- a/wizards/source/template/Samples.xba +++ b/wizards/source/template/Samples.xba @@ -109,9 +109,9 @@ End Sub Sub SaveCurrentStyles(oDocument as Object) -'This sub stores the current document in the user work directory +'This sub stores the current document in the directory to hold temporary files. On Error Goto ErrorOcurred - aTempURL = GetPathSettings("Work", False) + aTempURL = GetPathSettings("Temp", False) Dim aRightMost as String aRightMost = Right(aTempURL, 1) if aRightMost = "/" Then |