tell application "Microsoft Word"
activate
--create new document
set createDoc to make new document
set name of font object of text object of createDoc to "Lucida Grande"
set font size of font object of text object of createDoc to "14"
--insert some text
set words of document 1 to "This is a little test with AppleScript."
--simple text formtting
select word 4 of createDoc
set bold of font object of selection to true
set content of text object of selection to "sunny "
--appent text to end
insert text return & "another text" at end of text object of createDoc
--save file
save as createDoc file name "MyText.doc"
end tell
(* excel_setnameofsheet.applescript *)
tell application "Microsoft Excel"
set name of sheet 1 to "New Sheet Name 1"
set name of sheet 2 to "New Sheet Name 2"
set name of sheet 3 to "New Sheet Name 3"
end tell
(* excel_activatesheet.applescript *)
tell application "Microsoft Excel"
set activesheet to get entry index of active sheet
activate object sheet 1
delay 2
activate object sheet 2
delay 2
activate object sheet 3
end tell
(* excel_alignment.applescript *)
tell application "Microsoft Excel"
tell range "A1:J10" of active sheet
set horizontal alignment to horizontal align center
set vertical alignment to vertical alignment center
set wrap text to true
end tell
end tell
(* excel_print.applescript *)
tell application "Microsoft Excel"
print out active sheet
print out active sheet from 2 to 2 copies 4
print out active workbook
end tell
(* excel_sortrange.applescript *)
tell application "Microsoft Excel"
tell active sheet
sort range "A1" order1 sort ascending key1 column 1 order2 sort ascending key2 column 2 header header no without match case
end tell
end tell
(* excel_selection.applescript *)
tell application "Microsoft Excel"
select range "A1"
delay 3
select (cell 6 of row 10 of active sheet)
delay 3
select range "B10:C14"
end tell
(* excel_columnrow.applescript *)
tell application "Microsoft Excel"
--set column width and row height
set row height of range "1:30" to 40 -- points (rows)
set column width of range "A:Z" to 2 -- characters (columns)
delay 3
-- set range to autofit
tell range "A1:Z30" of active sheet
repeat with i from 1 to (count columns)
autofit column i
end repeat
end tell
end tell
(* excel_addcomment.applescript *)
tell application "Microsoft Excel"
tell range "A10" of active sheet
set cmt to its Excel comment -- no error if nothing (dummy comment)
set vis to visible of cmt --get any property , returns missing value if empty
if vis is missing value then
set cmt to add comment
end if
end tell
tell cmt
Excel comment text text "My comment" --overwrites, but omit 'over write'!
set visible to true
select its shape object -- to allow editing
end tell
end tell
(* excel_copypaste.applescript *)
tell application "Microsoft Excel"
copy range (range "A1:J10" of sheet "Sheet1" of active workbook)
tell sheet "Sheet1"
paste worksheet destination range "J3"
end tell
end tell
This website uses cookies to improve your experience while you navigate through the website. Out of these, the cookies that are categorized as necessary are stored on your browser as they are essential for the working of basic functionalities of the website. We also use third-party cookies that help us analyze and understand how you use this website. These cookies will be stored in your browser only with your consent. You also have the option to opt-out of these cookies. But opting out of some of these cookies may affect your browsing experience.
Necessary cookies are absolutely essential for the website to function properly. This category only includes cookies that ensures basic functionalities and security features of the website. These cookies do not store any personal information.
Any cookies that may not be particularly necessary for the website to function and is used specifically to collect user personal data via analytics, ads, other embedded contents are termed as non-necessary cookies. It is mandatory to procure user consent prior to running these cookies on your website.