LesNicholls
Technical User
When saving a word file it says the disk is full even though there is loads of space left. It looks like it saves byt in fact hasnt... Any ideas anyone?
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub RecreateDoc()
Dim strDocFullName As String
Dim wrd As Application
' get filename add "Copy" to it
' then copy entire document
strDocFullName = ActiveDocument.Path & _
Application.PathSeparator & "copy" & _
ActiveDocument.Name
Selection.WholeStory
Selection.Copy
' make new instance of Word and create new doc
Set wrd = GetObject(, "Word.Application")
wrd.Documents.Add
' paste, save, and then close new doc
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.SaveAs FileName:=strDocFullName
ActiveDocument.Close
' release wrd object
Set wrd = Nothing
End Sub