Deleting Specific pages from Word Document using Macro

'
' TEST Macro
' Macro created 2/16/2012 by PCTR010312DM
Sub PageDelete()
sNumber = InputBox("Delete from which page", "Delete Pages", 1)
sRange = InputBox("Delete how many pages", "Delete Pages", 1)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=sNumber
For a = 1 To sRange
ActiveDocument.Bookmarks("\page").Range.Delete
Next a
End Sub

Comments

Post a Comment

Popular posts from this blog

PeopleSoft AP Matching Process Key Tables for troubleshooting purpose

SELECT * FROM PS_MTCH_CNTRL; -- Match Control Details SELECT * FROM PS_MTCH_LOG_HDR_VW; -- Matching Log SELECT * FROM ps_vchr_mtch_detls; -- Voucher Details selected for Matching SELECT * FROM PS_MTCH_RULE_OVRD; -- If any Voucher has been match Over-Ridden SELECT * FROm PS_MTCH_VCHR_SRCH; -- Vouchers Selected for Matching SELECT * FROM PS_AP_MATCH_EXC_VW; -- Match Exception SELECT * FROM PSXLATITEM where FIELDNAME = 'MTCH_EXCPTN_TYPE'; SELECT * FROM PS_AP_MTCH_RULECFG; -- Match Rule SELECT * FROM PS_AP_MTCH_RULES; -- Match Rule SELECT * FROm PS_AP_MTCH_WB_FLD; -- Match Rule SELECT * FROm PS_AP_MTH_RULETYPE; -- Match Rule SELECT * FROm PS_AP_VCHR_HDR_SUM; -- Header Details that stores and used for Match Rule SELECT * FROm PS_AP_VCHR_LN_SUM; -- Line Details that stores and used for Match Rule SELECT * FROM PS_AP_VCHR_MTCH_VW; SELECT * FROm PS_AP_MTCH_WB_VW; SELECT * FROm PS_AP_WB_OTH_VW; SELECT * FROM PS_MATCH_OBJECT;
Read more

How to Set a Default Password in PeopleSoft

How to set the default password for all users or a specific user in PeopleSoft? 1)       Run the below SQL to set the default password for all User IDs: UPDATE PSOPRDEFN SET OPERPSWD = ‘New Password’ , ENCRYPTED = ‘0’; 2)       Run the below SQL to set the default password for a specific User ID  or group of user ids: UPDATE PSOPRDEFN SET OPERPSWD = ‘New Password’ , ENCRYPTED = ‘0’ WHERE OPRID IN (‘ User ID List’ ); 3)       Run the below Script using data mover to Encrypt the Password: Here's an example of how to encrypt a single user password (FS) already listed in PSOPRDEFN: ENCRYPT_PASSWORD FS ; To encrypt all user passwords in PSOPRDEFN, enter: ENCRYPT_PASSWORD *; Both Update Password and Encrypt Password script can be run together using Data Mover. For All Users: UPDATE PSOPRDEFN SET OPERPSWD = ‘New Password’ , ENCRYPTED = ‘0’; ENCRYPT_PASSWORD *; For Single Us...
Read more

PS Query Security Tree

--SQL will show the Query Security Tree Name and Permission it is associated with for a specific Table Name. SELECT A.TREE_NAME, A.DESCR, B.PARENT_NODE_NAME, B.TREE_NODE, B.TREE_NODE_TYPE, C.CLASSID, B.TREE_NODE_NUM, B.PARENT_NODE_NUM, C.ACCESS_GROUP, C.ACCESSIBLE FROM PSTREEDEFN A, PSTREENODE B, PS_SCRTY_ACC_GRP C WHERE ( A.SETID = ' ' AND A.TREE_STRCT_ID = 'ACCESS_GROUP' AND A.SETID = B.SETID AND A.SETCNTRLVALUE = B.SETCNTRLVALUE AND A.TREE_NAME = B.TREE_NAME AND B.TREE_NODE = :1 AND B.TREE_NAME = C.TREE_NAME ) ORDER BY 7, 8, 6 ; --Below SQL will give the List of Queries that is exist in the system, but some of the Records used in Query in not available in the Query Security Tree SELECT A.QRYNAME, A.DESCR   FROM PSQRYDEFN A, PSQRYRECORD B   WHERE ( A.OPRID = B.OPRID      AND A.QRYNAME = B.QRYNAME      AND NOT EXISTS (SELECT 'X'   FROM PSTREEDEFN C, PSTREENODE D   WHERE C.EFFDT =       ...
Read more