Word Workspace

  • November 2019
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Word Workspace as PDF for free.

More details

  • Words: 91
  • Pages: 1
sub save_workspace_files() documents.open ("c:\word_workspace_file.doc") selection.wholestory selection.delete unit:=wdcharacter, count:=1 for i = 2 to documents.count selection.typetext text:=documents.item(i).fullname selection.typeparagraph next activedocument.close (wdsavechanges) msgbox "opened file's fullnames was saved: c:\word_workspace_file.doc" end sub sub load_workspace_files() dim a as string dim i as integer i = 0 documents.open ("c:\word_workspace_file.doc") activedocument.pagesetup.orientation = wdorientlandscape while activedocument.paragraphs.count > 1 selection.homekey unit:=wdstory selection.endkey unit:=wdline, extend:=wdextend selection.moveleft unit:=wdcharacter, count:=1, extend:=wdextend a = selection.text selection.cut selection.delete unit:=wdcharacter, count:=1 documents.open (a) i = i + 1 documents.item("c:\word_workspace_file.doc").activate wend activedocument.close (wddonotsavechanges) msgbox "all document (" + str(i) + " ) opened succesfully" end sub

Related Documents

Word Workspace
November 2019 9
Two Workspace
November 2019 13
Workspace Diagram
December 2019 16
009 - Photoshop Workspace
October 2019 17
Rshieh-workspace Desk
June 2020 0