1 files changed, 24 insertions, 24 deletions
diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
index 886f7fa91967..a6dd6c18b997 100644
--- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
+++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
@@ -58,8 +58,8 @@ testcase tToolsSpellcheckWithShortcut
        exit sub
     end if
 
-    call hFileOpen (TheFile,false)
-    Call sMakeReadOnlyDocumentEditable
+    call hFileOpenLocally (TheFile,false)
+    
 
     printlog " Insert some faulty text"
     select case iSprache
@@ -149,8 +149,8 @@ testcase tToolsSpellcheckCorrect
     PrintLog "- Tools / Spellcheck without text"
 
     printlog " Open document where the formatting is set to the language we wish to test."
-    call hFileOpen (TheFile,false)
-    Call sMakeReadOnlyDocumentEditable
+    call hFileOpenLocally (TheFile,false)
+    
 
     printlog " Insert some faulty text"
     Sleep 1
@@ -284,8 +284,8 @@ testcase tToolsSpellcheck1Mistake
     end select
 
     printlog " Open document where the formatting is set to the language we wish to test."
-    call hFileOpen (TheFile,false)
-    Call sMakeReadOnlyDocumentEditable
+    call hFileOpenLocally (TheFile,false)
+    
 
     '/// Insert a sentence with one definded mistake and execute spellcheck ///
     Call wTypeKeys sErrorSampleText
@@ -387,8 +387,8 @@ testcase tToolsSpellcheckForward
         if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
             EditPaste
     else
-        Call hFileOpen(InsFile)
-        Call sMakeReadOnlyDocumentEditable
+        hFileOpenLocally( InsFile)
+        
     end if
     '/// point cursor to beginning of document and execute spellcheck ///
     Call wTypeKeys "<Mod1 Home>"
@@ -561,8 +561,8 @@ testcase tToolsSpellcheckOnlyOneWord
         if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
             EditPaste
     else
-        Call hFileOpen(InsFile)
-        Call sMakeReadOnlyDocumentEditable
+        hFileOpenLocally( InsFile)
+        
     end if
     Call wTypeKeys "<Mod1 Home>"
 
@@ -741,8 +741,8 @@ testcase tToolsSpellcheckAutomatic
 
     PrintLog "- Tools / Spellcheck / AutoSpellcheck"
     printlog " Open document where the formatting is set to the language we wish to test."
-    call hFileOpen (TheFile,false)
-    Call sMakeReadOnlyDocumentEditable
+    call hFileOpenLocally (TheFile,false)
+    
 
     '/// Enable Auto-Spellcheck in options
     Call wEnableAutoSpellcheck ( true )
@@ -937,8 +937,8 @@ testcase tToolsSpellcheckChangeLanguageAttribute
         if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
         EditPaste
     else
-        Call hFileOpen(InsFile)
-        Call sMakeReadOnlyDocumentEditable
+        hFileOpenLocally( InsFile)
+        
     end if
     Call wTypeKeys "<Mod1 Home>"
 
@@ -1135,8 +1135,8 @@ testcase tToolsSpellcheckButtonChange
         if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
         EditPaste
     else
-        Call hFileOpen(InsFile)
-        Call sMakeReadOnlyDocumentEditable
+        hFileOpenLocally( InsFile)
+        
     end if
     Call wTypeKeys "<Mod1 Home>"
 
@@ -1202,8 +1202,8 @@ testcase tToolsSpellcheckButtonChangeAll
         if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
         EditPaste
     else
-        Call hFileOpen(InsFile)
-        Call sMakeReadOnlyDocumentEditable
+        hFileOpenLocally( InsFile)
+        
     end if
     Call wTypeKeys "<Mod1 Home>"
 
@@ -1288,8 +1288,8 @@ testcase tToolsThesaurus
     end select
 
     printlog "Open new preformatted-writerdocument"
-    call hFileOpen (TheFile,false)
-    Call sMakeReadOnlyDocumentEditable
+    call hFileOpenLocally (TheFile,false)
+    
 
     printlog "-  Thesaurus without a word"
     '/// Call Thesaurus without a written word ///
@@ -1322,8 +1322,8 @@ testcase tToolsThesaurus
     wait 500
 
     printlog " Open new preformatted-document where the formatting is set to the language we wish to test."
-    call hFileOpen (TheFile,false)
-    Call sMakeReadOnlyDocumentEditable
+    call hFileOpenLocally (TheFile,false)
+    
 
     Call wTypeKeys sWordInitial
     Call wTypeKeys "<Home><Right><Right>"
@@ -1444,8 +1444,8 @@ testcase tToolsThesaurusSynonyms
     end select
 
     printlog "Open new preformatted-writerdocument"
-    call hFileOpen (TheFile,false)
-    Call sMakeReadOnlyDocumentEditable
+    call hFileOpenLocally (TheFile,false)
+    
     Call wTypeKeys sWordInitial
     Call wTypeKeys "<Shift Home>"