Workbooks : Save as and Save

Hi,
we have read a lot of message about workbooks authorizations and how to allow users to save in their favorites. Also we have found differents message where some collegues try to avoid users to save workbooks, not in a role neither in their favorites.
In this topics the solution provided is to modify the workbooks object type as not modificable in the connection transport, that will not allow to users that has not SAP_ALL authorization create new workbooks and we have two differents types of user.
I will try to explain our scenario:
We have 3 types of users:
-- Keyuser:    Users which can create queries, and workbooks and save it in a shared folder
-- Enduser:    Users which can create workbooks and save only in their favorites, not in the shared folder.
-- Basicuser: Users should only execute the workbooks from the shared folder.
We have created one specific role for each type of user and one role with the folders where the users can share the reports.
For the Basicuser we have created a role with the next authorizations:
   - S_RFC --> ACTVT = 16 ; RFC_NAME = *; RFC_TYPE = FUGR
   - S_RS_AUTH --> BIAUTH = 0BI_ALL
   - S_RS_COMP --> ACTVT = 16 ; RSINFOAREA = ZLO_14* ; RSINFOCUBE = * ; RSZCOMPID = * ;RSZCOMPTP = *
   - S_RS_COMP1 --> ACTVT = 16 ; RSZCOMPID = * ;RSZCOMPTP = * ; RSZOWNER = *
   - S_RS_FOLD --> SUP_FOLDER = 'X'.
   - S_RS_PARAM --> ACTVT = * ; PARAMNM = *
In the role with the shared folder ZBI_SHARED_FOLDER the authorizations are:
   - S_TCODE   --> TCD = RRMX
   - S_USER_AGR --> ACTVT = 03 ; ACT_GROUP = ZBI_SHARED_FOLDER
As far as I have understand the authorizations that user should not be allowed to save any workbook at his favorites. But the user can save workbooks and also view, and create folder in the favorites.
Please has some one avoid that type of users to save any workbook by authorization whithout change the changeability of the object workbooks.
Our system version is SAP NetWeaver BI 7.0
I will apreciate any help, we have go live in one week.
Many thanks in advanced.
Maria

Hi,
we have openned a message to sap and the answer is that there is no way to avoid users save in their favourites by authorization.
Thanks.
Best Regards,
Maria

Similar Messages

How toggle among "Don't Save", "Cancel", and "Save" buttons with keyboard?

When a dialog box comes up, how do I toggle between, like, "Don't Save", "Cancel", and "Save" via my keyboard? I.e. I don't want to have to click with the mouse if different than the highlighted choice.
Thanks.

HI,
Try here: http://forums.macworld.com/message/392463
Carolyn

Distributing fillable form to a Group so they can save changes and "save as" ?

How do I distribute my finalized document to a group who can fill in the information and save or save as the document to their files?

HI;
It sounds like distributing your form as a PDF is probably the way you want to go. The following FAQs will help you decide.
Should I distribute a Web or PDF form?
Tutorial: Creating and Distributing fillable PDF forms
This page has some more PDF related FAQs as well if you do choose to distribute as PDF
Thanks,
Josh

[as2]How to make function to save screenshot and save moment

im using Adobe flash and action script 2 to make my final project application (my project is game).
on last step i have a problem.
i make 2 button..
first button : i want to use first button to save screenshot in certain parts , like (x, y, w ,h)
second button : i want to use second button as button to save game moment.. how to make this..

1. google: as2 jpegencoder
2. google: sharedobject as2

Precalculation and save workbook

Hi,
Can i Precalculate a workbook and save it to the server.
For example i have workbook, and i don't "refresh query when opening workbook."
I will precalculate Workbooks and save the last results to the server, so users can see the last results every time they open the workbook without waiting.
I can do this with VBA. With VBA i open the workbook, refresh query and save the workbook, Can i do the same with precalculation ?

SAP's solution would be to publish the wotkbook to the Portal.
OLAP cache (assuming it is activated - check in RSRT - Cache Monitor, or use tran RSRCACHE) will save the results of an OLAP query in dedicated memory on the Appl server, or can also be cached to disk. When the next user comes along and runs the same query with the same values, assuming there has been no new data loaded to the underlying Infoprovider(s), the query results are retrieved from the OLAP cache, eliminating the need to to actually run the query against the DB.

Spotlight not working properly in Save and Save As dialog boxes

When I'm in any program and I go to the "Open Files" dialog box, I can use the spotlight search to search for files by name or by content, and it works fine. However in the "Save File" and "Save File As" dialog boxes, spotlight will only find folders by name. It will not find any files by name or by content in the current folder or anywhere else. It will only show any folders who's name is a match for what I type.
I spoke to Apple support who suggested that I reindex my drive, which I did, but it didn't help. Their next suggestion is to reinstall the OS, which I'm not going to do. By the way, I have a Mac Pro and a MacBook Pro which both exhibit the same behavior, so it appears to be a problem with the OS itself. They are both running 10.6.1. I booted up in safe mode and had the same problem.
Any ideas?
Thanks,
Mark

If you want to report this to Apple, either send Feedback or send bug reports and enhancement requests via its Bug Reporter system. To do the latter, join the Apple Developer Connection (ADC)—it's free and available for all Mac users and gets you a look at some development software. Since you already have an Apple username/ID, use that. Once a member, go to Apple BugReporter and file your bug report/enhancement request. The nice thing with this procedure over submitting feedback is that you get a response and a follow-up number; thus, starting a dialog with engineering.

Action & Droplet "save as" vs "save as web" not working - Possible bug?

Before I state the issue, I am running the latest updates and have tried this in Photoshop CS4 & CS5.
I believe this is a bug in Photoshop, unless someone can get this Action & droplet to work right.
Here's the issue:
I create an Action with the "Save as Web & Devices" and save the image as a PNG. Then create a Droplet and set the destination as "Folder" with a destination different from the source file, and check Override Action "Save As" Commands and use File Naming with Document Name + _H50 + extension (example: MyFile_H50.gif). The file naming convention I made doesn't carry over to the processed images.
However this droplet will work with the Action when I use the "Save As" command, but not the "save as web & devices" option. Has anyone came across this issue or know how to fix it?
The difference between "save as" and "Save as web" is a 3kb files size plus the "_H50" naming convention is not used.
Here's a detailed process of my action and creation of the droplet:
CREATION OF ACTION:
1.) I have a .TGA file open with alpha channel layer.
2.) I set the selection to the alpha channel, go back to the layers panel, double click layer, Set backgound to Layer 0, Inverse the selection, delete the background, trim image to transparent pixels, change image size to a fixed height of 50 pixels.
Here's the variable step that works or doesn't work depending if I choose "Save as" or "Save as Web & Devices"
3.) File > "Save as Web & Devices", save image as PNG w/ alpha, and select my "processed images" folder & save, close original image without saving.
CREATION OF DROPLET:
1.) Save droplet location, Play action with include subfolders, Suppress file open options dialog, Suppress Color profile warnings.
2.) Destination: Select a folder
3.) Use File Naming: Document Name + _H50 + extension
4.) Save log errors.
Next I drag some images onto the droplet, it processes the images into the folder but doesn't use the File Naming convention.
Now, if I use the "save as" command in the action and create the droplet the same way, it works!
The difference between "save as" and "Save as web" is a 3kb files size plus the "_H50" naming convention is not used.
What the heck is going on? Please Help
-Josh

The following example action and droplet may give you
an idea how to do this with one droplet.
The idea is to make an intermediate folder to save the renamed psds to.
Then use save for web to save the psds as pngs in a different folder.
1. Make a folder to hold the psd files (temp psd in the example droplet)
2. Open one of your targa files and record the steps to prepare your file
    (loading the channel selection, trim, etc)
3. Save your file as a psd.
4. Now save the file using save for web to the folder where you want your
final pngs to be (saved for web in the example action) and don't change
the file name when saving.
5. Go to the folder where you saved the png using save for web and delete that file.
   (so you don't get an overwrite message when using your droplet)
6. When creating the droplet, specify the name you want the saved pngs to be and
   choose the destination folder where the psds will be saved. (temp psd)
The end result of all this, should save your files, renamed as psds (to a folder)
and save for web should save the renamed psds as pngs, to the place
you saved the file using save for web.
One drawback of all this, you end up with a folder full of psds.
You could just delete the psd files inside the folder after each run.
(click on the images below to enlarge)
Hope this helps.
MTSTUNER

How to Create and Save a workbook on Enterprise Portal

Hi,
I need to find out how I can create and save a workbook (for a query) in Enterprise portal. Can we save a work book and run it in the same format?
Thanks

Hi,
refer below thread
Re: How do you save the Workbook as View when the workbook do not have quer
also see sap help
http://help.sap.com/saphelp_nw04/helpdata/en/4d/f3fa40badbf36fe10000000a1550b0/frameset.htm
Thanks

What auth obj to use for allowing user to create and save workbook?

Hi all,
We are on BI 7.0, we have requirement which will allow users to develop and save workbooks (NOT BEX query) via BEx Analyzer. I have examined the auth obj S_RS_WKBK but it is obsolete auth obj and there is nothing similar obj in BI 7.0.
i then looked at the S_BDS_D, is this all i need in order to allow user to save workbook on to the backend system?
pls note, user can only save workbook NOT BEx query.
regards,
Joe

Hi,
Actually there is no direct away to do it
First use the Authorisation s_user_agr , here in the activity field assign01,02,03 and 06 , in the role name assign a specific role name.
In s_user_tcd in transaction asssign - RRMX.
Got to PFCG, maintain the role.
Hopr this will be expedite.
ThaX and Regards
Vaibhave Sharma

Precalculate and Save Workbook in a client network place

Hi gurus,
My customer wants to precalculate and save it in his network place. I'm doing the precalculation with Broadcaster and this has to send it with email. My question is if there is a way to save (automatically) the workbook in the network places after theprecalculation via background process. They don't want to send the workbook with email.
Thanks in advanced,
Regards
Csr

If you are using the SAP Enterprise Portal, there is a way to do this by creating a "dummy" folder in KM that actually points to a network folder on a remote server. There is a white paper available that describes the steps involved, titled "How to Broadcast a BI Report to a Directory on the Enterprise Portal Server". (The title is actually somewhat misleading, because the folder can be anywhere, not just on the portal.)
Here is the link to it: [https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/40027b87-b9a8-2b10-099c-a1312e25a59c ]
Hope this helps...
Bob

Steps to plan and save data in Workbook

Hi all,
Please provide me steps to Plan and save a data in a real time cube using workbook.
I have gone through different articles in SDN and tried to relicate but failed to save the data.
May be I am missing some thing, some steps. Please provide me with steps as giving links will not help me.
Thanks
Sunny

Hi,
You will have to follow the below steps to create a workbook which can save data in realtime cube.
1. First create Aggregation level(mandatory for input ready query which can save data) in Planning Modeler.
    Aggregation level you will have to create on Reatime cube.
    Transaction code for Planning modeler is RSPLAN.
2. After you have created aggregation level .
   -> Create Query in Query Designer on the Aggregation level.
3. Make sure that you have made the setting for keyfigure as Input-ready.
    Also make sure to make you have set the Query Property as 'Start Query in Change mode".
   -> Then only query will be eligible for entering and saving the data on execution.
4. Now when you execute the query in Bex Analyser and save it as Workbook.
-> Data can only be entered and saved when the query open in input-ready mode.
5. The best way to check in Bex analyser whether query is input-ready or not is
-> In the query result layout , use Right lcik of Mouse -> then in the context menu
-> you should see the following two options apart from other options
Two options are:
1. Transfer plan values
2. Save values
If you get these two options then query is input ready and you can enter data and save it in realtime cube using the
Right mouse click -> Save values
6. If query is not coming as input-ready then it means that not all charateristics are drilled down
   -> means that rows does not contains unique records.
In that case you will have to drilldown to make each rows contain unique records.
-> The best way is to restrict the characteristics with variable or single values in filter area.
-> this will give you drilldown data and so the query will come as input-ready.
Pls also check the link:
http://help.sap.com/saphelp_nw70/helpdata/en/43/f234619e3c4c5de10000000a155369/frameset.htm
Regards,
Amit

Open and Save Excel Files

Hi All,
I need code of How to open and save excel file in local system in Oracle forms.
With Regards,
Chandra Shekhar

Hello Chandra,
Webutil can be used to achieve this functionality.
STEPS TO FOLLOW
================
1. Install and configure Webutil following instructions in the webutil manual
and the readme file.
2. Create a form with a block Eg. DEPT
3. Create a button, and in that button put the following code -
DECLARE
application Client_OLE2.Obj_Type;
workbooks Client_OLE2.Obj_Type;
workbook Client_OLE2.Obj_Type;
worksheets Client_OLE2.Obj_Type;
worksheet Client_OLE2.Obj_Type;
args Client_OLE2.List_Type;
cell ole2.Obj_Type;
j INTEGER;
k INTEGER;
BEGIN
application := Client_OLE2.create_obj('Excel.Application');
workbooks := Client_OLE2.Get_Obj_Property(application, 'Workbooks');
workbook := Client_OLE2.Invoke_Obj(workbooks, 'Add');
worksheets := Client_OLE2.Get_Obj_Property(workbook, 'Worksheets');
worksheet := Client_OLE2.Invoke_Obj(worksheets, 'Add');
go_block('dept');
first_record;
j:=1;
k:=1;
while :system.last_record = 'FALSE'
loop
for k in 1..3 /* DEPT has 3 columns */
loop
If not name_in(:system.cursor_item) is NULL Then
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
Client_OLE2.release_obj(cell);
End If;
next_item;
end loop;
j:=j+1;
next_record;
end loop;
/* For the last record */
for k in 1..3
loop
If not name_in(:system.cursor_item) is NULL Then
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
Client_OLE2.release_obj(cell);
End If;
next_item;
end loop;
Client_OLE2.Release_Obj(worksheet);
Client_OLE2.Release_Obj(worksheets);
/* Save the Excel file created */
args := Client_OLE2.Create_Arglist;
Client_OLE2.Add_Arg(args,'d:\test.xls');
Client_OLE2.Invoke(workbook, 'SaveAs', args);
Client_OLE2.Destroy_Arglist(args);
/* release workbook */
Client_OLE2.Release_Obj(workbook);
Client_OLE2.Release_Obj(workbooks);
/* Release application */
Client_OLE2.Invoke(application, 'Quit');
Client_OLE2.Release_Obj(application);
END;
4. Save the form and compile it.
5. Run the form.
6. Execute the query in the block.
7. Click on the button.
8. An excel file will be created in the d:\ directory by the name test.xls.
Kind regards,
Alex
If someone's answer is helpful or correct please mark it accordingly.

Version Management with Analysis workbooks? Doesn't save workbooks in BW Netweaver platform or BO Platform

SAP BusinessObjects Analysis, Edition for Microsoft Office - 1.4 SP6
SAP BusinessObjects BI Platform - 4.1 SP2
BW 7.3
SAP Logon pad - 7300.1.0.1074
We are trying to implement What-if analysis in Analysis Office tool like Revenue increase by N percentages. Excel formula applied for this in the adjacent column to keyfigures that is coming from BEx Query.
Here, I need to save the Workbooks in versions as V1, V2, V3, etc., for various percentages.
When I try to save this in BO platform, only the version V1 (first copy) is getting saved. But, the modified workbook is not getting saved with different name as V2 or V3, etc.,
When I try to save this Netweaver platform, even the first copy V1 is not getting saved. But it displays different versions in the save window before closing the Analysis Office application.
Please provide information on VERSION MANAGEMENT with Analysis Office.
Note: I see a difference in 'Open' and 'Save' window that is Roles are not visible in the 'Open Workbook' window but Roles are visible in 'Save Workbook' window.
Thanks,
Jeni.

SAP BusinessObjects Analysis, Edition for Microsoft Office - 1.4 SP6
SAP BusinessObjects BI Platform - 4.1 SP2
BW 7.3
SAP Logon pad - 7300.1.0.1074
We are trying to implement What-if analysis in Analysis Office tool like Revenue increase by N percentages. Excel formula applied for this in the adjacent column to keyfigures that is coming from BEx Query.
Here, I need to save the Workbooks in versions as V1, V2, V3, etc., for various percentages.
When I try to save this in BO platform, only the version V1 (first copy) is getting saved. But, the modified workbook is not getting saved with different name as V2 or V3, etc.,
When I try to save this Netweaver platform, even the first copy V1 is not getting saved. But it displays different versions in the save window before closing the Analysis Office application.
Please provide information on VERSION MANAGEMENT with Analysis Office.
Note: I see a difference in 'Open' and 'Save' window that is Roles are not visible in the 'Open Workbook' window but Roles are visible in 'Save Workbook' window.
Thanks,
Jeni.

File Server - File size\type search and save results to file

I already have a vb script to do what I want on our file server, but it is very inefficient and slow. I was thinking that a powershell script may be more suitable now but I don't know anything about scripting in PS. So far the vb code that I
have works, and I am not the one who wrote it but I can manipulate it to do what I want it to. The only problem is, when I scan the shared network locations it stops on some files that are password protected and I don't know how to get around it. If
someone else knows of a PS script to go through the file system and get all files of a certain type or size (right now, preferably size) and save the file name, size, path, owner and dates created\modified please point me to it and I can work with that. If
not, could I get some help with the current script that I have to somehow get around the password protected files? They belong in a users' HOME directory so I can't do anything with them. Here is my code:
'Script for scanning file folders for certain types of files and those of a certain size of larger'
'Note: Script must be placed locally on whichever machine the script is running on'
'***********VARIABLES FOR USE IN SCRIPT***********'
'objStartFolder - notes the location of the folder you wish to begin your scan in'
objStartFolder = "\\FileServer\DriveLetter\SharedFolder"
'excelFileName - notes the location where you want the output spreadsheet to be saved to'
excelFileName = "c:\temp\Results_Shared.xls"
'**********END OF VARIABLES**********'
Set objFSO = CreateObject("Scripting.FileSystemObject")
fileName = objFSO.GetFileName(path)
'beginning row and column for actual data (not headers)'
excelRow = 3
excelCol = 1
'Create Excel Spreadsheet'
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
CreateExcelHeaders()
'Loop to go through original folder'
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Call Output(excelRow) 'If a subfolder is met, output procedure recursively called'
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
'Autofit the spreadsheet columns'
ExcelAutofit()
'Save Spreadsheet'
objWorkbook.SaveAs(excelFileName)
objExcel.Quit
'*****END OF MAIN SCRIPT*****'
'*****BEGIN PROCEDURES*****'
Sub ShowSubFolders(Folder)
'Loop to go through each subfolder'
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Call Output(excelRow)
Next
ShowSubFolders Subfolder
Next
End Sub
Sub Output(excelRow)
'convert filesize to readable format (MB)'
fileSize = objFile.Size/1048576
fileSize = FormatNumber(fileSize, 2)
'list of file extensions currently automatically included in spreadsheet report:'
'.wav, .mp3, .mpeg, .avi, .aac, .m4a, .m4p, .mov, .qt, .qtm'
If fileSize > 100 then'OR objFile.Type="Movie Clip" OR objFile.Type="MP3 Format Sound" _ '
'OR objFile.Type="MOV File" OR objFile.Type="M4P File" _'
'OR objFile.Type="M4A File" OR objFile.Type="Video Clip" _'
'OR objFile.Type="AAC File" OR objFile.Type="Wave Sound" _'
'OR objFile.Type="QT File" OR objFile.Type="QTM File"'
'export data to Excel'
objExcel.Visible = True
objExcel.Cells(excelRow,1).Value = objFile.Name
objExcel.Cells(excelRow,2).Value = objFile.Type
objExcel.Cells(excelRow,3).Value = fileSize & " MB"
objExcel.Cells(excelRow,4).Value = FindOwner(objFile.Path)
objExcel.Cells(excelRow,5).Value = objFile.Path
objExcel.Cells(excelRow,6).Value = objFile.DateCreated
objExcel.Cells(excelRow,7).Value = objFile.DateLastAccessed
excelRow = excelRow + 1 'Used to move active cell for data input'
end if
End Sub
'Procedure used to find the owner of a file'
Function FindOwner(FName)
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & FName & "'}" _
& " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem in colItems
FindOwner = objItem.AccountName
Next
End Function
Sub CreateExcelHeaders
'create headers for spreadsheet'
Set objRange = objExcel.Range("A1","G1")
objRange.Font.Bold = true
objExcel.Cells(1, 1).Value = "File Name"
objExcel.Cells(1, 2).Value = "File Type"
objExcel.Cells(1, 3).Value = "Size"
objExcel.Cells(1, 4).Value = "Owner"
objExcel.Cells(1, 5).Value = "Path"
objExcel.Cells(1, 6).Value = "Date Created"
objExcel.Cells(1, 7).Value = "Date Modified"
End Sub
Sub ExcelAutofit
'autofit cells'
Set objRange = objExcel.Range("A1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("B1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("C1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("D1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("E1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("F1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("G1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
End Sub
David Hood

Accessing Excel through automation is bvery slow no matter what tool you use. Scanning a disk is very slow for all tools.
Since Vista all system have a search service that catalogues all major file itmes like size, extension, name and other attributes. A search of a 1+Tb volume can return in less that a second if you query the search service.
You can easily batch the result into Excel by writ4ing to a CSV and opening in Excel. Use a template to apply formats.
Example. See how fast this returns results.
#The following will find all log files in a system that are larger than 10Mb
$query="SELECT System.ItemName, system.ItemPathDisplay, System.ItemTypeText,System.Size,System.ItemType FROM SystemIndex where system.itemtype='.log' AND system.size > $(10Mb)"
$conn=New-Object -ComObject adodb.connection
$conn.open('Provider=Search.CollatorDSO;Extended Properties="Application=Windows";')
$rs=New-Object -ComObject adodb.recordset
$rs.open($query, $conn)
do{
$p=[ordered]@{
Name = $rs.Fields.Item('System.ItemName').Value
Type = $rs.Fields.Item('System.ITemType').Value
Size = $rs.Fields.Item('System.Size').Value
New-Object PsObject -Property $p
$rs.MoveNext()
}Until($rs.EOF)
¯\_(ツ)_/¯

Extract All Embedded Files in All Folders and Save Each? Copy/Paste from PDF to Word?

I have most of what I need here, but I’m missing 2 important pieces.
#1) I want to copy/paste from all PDF files in a folder and paste the copied data into a single Word file.
It works fine if I have ONLY Word docs in my folder. When I have PDF files and Word files, the contents of the Word files are copied in fine, but the contents of the PDF files seem to come in as Chinese, and there is no Chinese in
the PDF, so I have no idea where that’s coming from.
#2) I want to extract all embedded files (in all my Word files) and save the extracted/opened file into the folder. Some embedded files are PDFs and some are Excel files.
Here the code that I’m working with now.
Sub Foo()
Dim i As Long
Dim MyName As String, MyPath As String
Application.ScreenUpdating = False
Documents.Add
MyPath = "C:\Users\001\Desktop\Test\" ' <= change this as necessary
MyName = Dir$(MyPath & "*.*") ' not *.* if you just want doc files
On Error Resume Next
Do While MyName <> ""
If InStr(MyName, "~") = 0 Then
Selection.InsertFile _
FileName:="""" & MyPath & MyName & """", _
ConfirmConversions:=False, Link:=False, _
Attachment:=False
Dim Myshape As InlineShape
Dim IndexCount As Integer
IndexCount = 1
For Each Myshape In ActiveDocument.InlineShapes
If Myshape.AlternativeText = PDFname Then
ActiveDocument.InlineShapes(IndexCount).OLEFormat.Activate
End If
IndexCount = IndexCount + 1
Next
Selection.InsertBreak Type:=wdPageBreak
End If
On Error Resume Next
Debug.Print MyName
MyName = Dir ' gets the next doc file in the directory
Loop
End Sub
If this has to be done using 2 Macros, that’s fine.
If I can do it in 1, that’s great too.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Hi ryguy72,
>>When I have PDF files and Word files, the contents of the Word files are copied in fine, but the contents of the PDF files seem to come in as Chinese, and there is no Chinese in the PDF, so I have no idea where that’s coming from.<<
Based on the code, you were insert the file via the code Selection.InsertFile. I am trying to reproduce this issue however failed. I suggest that you insert the PDF file manually to see whether this issue relative to the specific file. You can insert PDF
file via Insert->Text->Object->Text from file.
If this issue also could reproduced manually, I would suggest that you reopen a new thread in forum to narrow down whether this issue relative to the specific PDF file or Word application.
>> I want to extract all embedded files (in all my Word files) and save the extracted/opened file into the folder. Some embedded files are PDFs and some are Excel files.<<
We can save the embedded spreadsheet via Excel object model. Here is an example that check the whether the inlineshape is an embedded workbook and save it to the disk for you reference:
If Application.ActiveDocument.InlineShapes(1).OLEFormat.ClassType = "Excel.Sheet.12" Then
Application.ActiveDocument.InlineShapes(1).OLEFormat.DoVerb xlPrimary
Application.ActiveDocument.InlineShapes(1).OLEFormat.Object.SaveAs "C:\workbook1.xlsx"
Application.ActiveDocument.InlineShapes(1).OLEFormat.Object.Close
End If
And since the Word object model doesn't provide API to save the embedded PDF, I would suggest that you get more effective response from PDF support forum to see whether it supports automation. If yes, we can export the PDF as embedded spreadsheet like code
absolve.
Hope it is helpful.
Regards & Fei
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Workbooks : Save as and Save

Similar Messages

Maybe you are looking for