Link to PDF file using VBA?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - automatically update file name in header when saving as a differe. I work for the local council and have been asked to create a template (to be used by many different inexperienced users) where the filename in the header needs to be automatically updated when saving under a few filename (without using f9 or macros) - the other users are at a very basic level and would not be happy with having to press extra buttons or go into the header area. I have tried putting in IF field codes, which do work, but you still have to go into the header and press F9 PLEASE!!! Can someone help??Thanks. Tag: Link to PDF file using VBA? Tag: 59050
  - 2
    - Font size is changed when runnning search Hi I have words in a table which reflect the tones of a foreign language eg thee (falling tone) But this special format is changed and becomes thee (flat tone) when I do a word search using the following two macros. As I can't see a line for font, I wonder which line is causing the font size to change and can I take it out without any other side effects. Thanks in advance Sub Highlight() Dim sSrc As String Options.DefaultHighlightColorIndex = wdYellow sSrc = Selection.Text Resetsearch Selection.SelectColumn With Selection.Find .Text = sSrc .Replacement.Text = sSrc .Replacement.Highlight = True .MatchWholeWord = False ' or true if you like .Wrap = wdFindStop ' !!! .Execute Replace:=wdReplaceAll End With Resetsearch End Sub Sub Resetsearch() With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With End Sub Tag: Link to PDF file using VBA? Tag: 59048
  - 3
    - Hide fields Hi, I know how to hide all shapes in a document before printing: With ActiveDocument iNum = 1 Do Until iNum = .Shapes.Count + 1 .Shapes(iNum).Visible = msoFalse iNum = iNum + 1 Loop iNum = 1 End With But if I try to use the same method to hide all fields in the document, there is no such thing as: .Fields(iNum). Visible = msoFalse The field I want to hide is: { MACROBUTTON NoMacro [Click here to type your text] } and I don't think is nice to show that field on the print out. Any clue would be very appreciated. / Ulf Tag: Link to PDF file using VBA? Tag: 59047
  - 4
    - Change date in header Hello All, I am using wind XP and office 11. I want to replace the date field in header. The date field is autodated, and I want to replace it with last modDate. I can replace the autodate in the document body. but I couldn't do it in the header. Can anybody help? Thanks Karen Tag: Link to PDF file using VBA? Tag: 59042
  - 5
    - Mouse Move to close user form Causes Automation Error Mouse Move Causes Automation Error I want to use mouse move to close a second form (hide or unload) It works fine until I make it a .dot in the startup folder, then I get an Automation error. I've tried several things, including using 'on error resume', but can not get it to work as a .dot in Start Up. Any suggestions would be appreciated. TIA Tag: Link to PDF file using VBA? Tag: 59034
  - 6
    - Date picker for Word 2002? Does anybody have some VB code they're willing to share with me so I can install a date picker in a Word 2002 document? Tag: Link to PDF file using VBA? Tag: 59033
  - 7
    - How do I create a macro to submit a document in e-mail? I would like to use a macro to submit a document in e-mail. The macro would save a completed MS Word fill-in form to the local users desktop, launch a new e-mail message, and insert the saved document into the new massage. From there the user could fill in the subject line, add any desired text in the body and send to the desired recipient. I would like to be able to run this macro within Word by clicking a "Submit" button at the end of the form. Can anyone help me out? Tag: Link to PDF file using VBA? Tag: 59032
  - 8
    - Run word docs on their own window Does anyone know how to change the setting so word doc can be open in their own windows? Tag: Link to PDF file using VBA? Tag: 59031
  - 9
    - Intercept {Enter} key in VBA I have written a routine "InsertPageBreak" that checks the Selection range to ensure that no bookmarks will be split by insertion of the page break. I would like to do the same for whenever the {Enter} key is pressed to start a new paragraph, but I can't find a Word command that is initiated by the {Enter} keystroke. All help is greatly appreciated. -- Tim Shaffer Tag: Link to PDF file using VBA? Tag: 59030
  - 10
    - some of my fonts(letter) becoming signs&symbols ! WHY? A friend installed , yesterday ,on my computer (window xp home sp2) Lavasoft Ad-Aware 6 & PestPatrol , so that I will be able " to get rid " off all the SpyWare & Ad-Aware "programms" that was installed in my computer ; not long after , as he was "deleting" some of these Spyware & Ad-Aware my FONTS (letter)started tO "VANISH / TURN to (become) " SIGNS & GEOMETRICAL SYMBOLS ( at first I thought that it was "chinese" ) . Everything on myDesktop & in the START menu ,control panel , EVERWHERE in WINDOW XP ALL THE TITLED SENTENCES / TITLES GOT AFFECTED ... I REBOOTED , BUT IT WAS STILL ALL SIGNS & GEO. FIGURES ....WHY .??? WAS SOMETHINGS " IMPORTANT" DELETED ..?? AND IF SO I COULD I GET BACK MY "FONTS / LETTERS" BACK ..???? THANK YOU . Tag: Link to PDF file using VBA? Tag: 59029
  - 11
    - Word in browser, formatting question Hi! I generate a report in a jsp page and change the ContentType on the page to application/msword. The document opens up in a Word in IE. However, when the document is opened, it's loosing some formatting and when the users try to save it, it gives a warning that some formatting is going to be lost. My question is: Can I change formatting and appearance of the document on the client without programming against the Word object model ? What else can I do to satisfy the requirement that the users should be able to save it to a .doc format? Many Thanks in Advance, Tag: Link to PDF file using VBA? Tag: 59027
  - 12
    - autotextlist field control hi, how can i get the click_event fired when i right click mousebutton within a autotextlist field ,not using vba or macro,but only VB programming? Tag: Link to PDF file using VBA? Tag: 59021
  - 13
    - Changing Paragarphs in a Range I am interested in defining a range of paragraphs in the main story of a document based upon a selection and then chaging the first few characters in each paragraph in that range. When I try to update a paragraph using a "for each" loop the range is redefined apparently due to the change and I canonot effect a change in more than one selected paragraph. Tag: Link to PDF file using VBA? Tag: 59013
  - 14
    - FileSearch Object not working I have a macro which uses a Shell FTP to retrieve a file from UNIX to Windows to be used as a data source for a mail merge (just acomma deleimited test file). At one site which is running Windows XP and Word 2002 I'm having problems with the FileSearch object not finding the file after the successful Transfer of the file. First the user was getting a runtime error #70 Permission Denied and after checking with the site's IT dept. and being assured that the user has Full rights to the network directories where the action is taking place, the error continued. I then commented out a KILL command which got rid of the premissions error (it deletes the script I created to be used in the FTP), but after that the macro does a file search to be sure that the file is really there and it always fails, even though I can see the file in the directory. The code is: '***** Delete file with userinformation Kill (DownloadPath & "Ftpget.txt") '***** Check if file is present after download Set objFSO = Application.FileSearch With objFSO .LookIn = DownloadPath '***Path to where file is .FileName = FileToGet '**Name of file .MatchTextExactly = True If Not .Execute > 0 Then '***** File doesn't exists, display error message! ElseIf FileLen(DownloadPath & FileToGet) < 10 Then '***** File does infact exists, now check if it is more then 0 bytes =) error message2 Else '***** File download succesfull End If End With Set objFSO = Nothing The user always recieves the first error message. I've check the references and they are all the same. This code works at other sites. Is there something that was not installed on this user's machine? Can anybody help? I'm out of ideas. Thanks, Steve Tag: Link to PDF file using VBA? Tag: 59005
  - 15
    - HT mine data from Word to SQL Server I need to be able to somehow mark parts of an existing Word document, pull the marked data from the document and map it into a table in SQL. I have seen information on how to do it from Excel, but not for Word. Can you point me in the right direction? Tag: Link to PDF file using VBA? Tag: 58996
  - 16
    - Changing numbers ** This is a re-posting of the question asked on word.vba.beginners on 9 November. I'm reposting it here due to a paucity of responses to my first post! ** We sometimes get documents where paragraph numbering needs changing and for one reason or another we cannot use automatic paragraph numbering in the document, just manual numbering. I am trying to write a macro that will enable you to renumber basic paragraphs in a document (nothing fancy, just ones numbered 1, 2, 3, 4 etc). I am using the Selection.Find method to search for the first number, then I want to replace it with another (incremented) number, search for the next number, replace that, and so on till the end of the document. I cannot get this to work. If finds the first number and replaces it but then stops. Here's the code I've got so far, and I daresay I'm going about it the wrong way. Sub ReplaceNos() Dim a As Integer Number = 1 Selection.Find.ClearFormatting With Selection.Find .Text = Number .Forward = True .Wrap = wdStop .Format = False Do While .Execute if Selection.Information(wdHorizontalPositionRelativeToTextBoundary)/72<2 then Number = Number + 1 a = Selection.Text a = a + 5 Selection.Text = a Selection.Collapse Direction:=wdCollapseEnd End if Loop End With End Sub This *should* search for the digit 1 and, if it is within the first 2 inches of the left margin, replace it with 6. Then search for "2", replace it with 7, etc etc. Silly question... why does it not work? I really need a lot more knowledge of how the selection.find method works, I think! Steve Wylie Tag: Link to PDF file using VBA? Tag: 58994
  - 17
    - Word templates over a WAN I have a client that has an interesting problem. The IT department wants control over templates that are installed on their corporate intranet. The network is broken up into several LANs operating at 100Mbs that are interconnected using a WAN at 7Mbs. They also have users that connect to the intranet using either dialup/broadband using a VPN. All templates are stored on their central server and they have the path to the templates set for each individual user using the Workgroup templates. A user that creates/uses a document that uses the template from the LAN experiences a 2 to 3 second delay. This user A saves the document and sends to user B that is on a different segment of the WAN. When user B opens the document then the open will take 20 to 30 seconds to complete. Each of the templates is running some VBA. Some users experience wait times of upto 20 minutes when opening a document. My guess is that when the document is opened by user B it is trying to reference the template that is on user A's segment of the WAN. I have the following recommendations for the client: 1) Replicate the servers for each of the segments such that the template is resolved to the local LAN. 2) Deploy the templates to each and every client machine on their network. Provide an installer that each user will use to install on each individual system. Any thoughts or comments? Tag: Link to PDF file using VBA? Tag: 58993
  - 18
    - error when changing a paragraph style My document has a paragraph style named "myData." When I select one paragraph and run this subroutine: For Each para In Selection.Paragraphs para.Style = myData Next para I get the following error message: "One of the values passed to this method or property is out of range," and the line: para.Style = myData is highlighted. What am I doing wrong? Tag: Link to PDF file using VBA? Tag: 58992
  - 19
    - Check is a Word file is empty How would I check if a Word file does not contain either data or code? Thanks Tag: Link to PDF file using VBA? Tag: 58991
  - 20
    - Using outlook contact details CAN I USE CONTACT INFORMATION IN OUTLOOK CONTACTS TO WRITE LETTERS OR A FAX IN WORD? Tag: Link to PDF file using VBA? Tag: 58990
  - 21
    - Finding Boot Drive Is there a function for finding the boot drive from within VBA that will work will with Word '97 and later for Windows '98 or later? I have an installer that installs an INI file in the Windows directory on the user's system, which may or may not be on the C: drive. When my template opens, I need to read that INI file, but I'm not sure how to know the drive to use. Thanks in advance, gary Tag: Link to PDF file using VBA? Tag: 58989
  - 22
    - Determine if cursor on a graphic Does anyone know how to programmically determine if the cursor/current selection resides on ANY type of graphic? Thanks a bunch. Tag: Link to PDF file using VBA? Tag: 58988
  - 23
    - Tracked changes and outline levels In code, how do I read a tracked change in Word and know the outline level? I want the code to find a tracked change, read it, record the outline number/level, and write a summary of the change. For example, if paragraph 3.1 of a document had a tracked change that showed the word "contract" was replaced with "purchase order", I want the code to write the following: "In paragraph 3.1, replace 'contract' with 'purchase order'." Tag: Link to PDF file using VBA? Tag: 58979
  - 24
    - Switching Between Printers in a Single Macro Hello, I am in a fix. I have a macro that basically needs to perform the following tasks: Save a mail merge document to an RTF with a specific name. (So far so good on this one!) Print the RTF to a PDF file. Print the RTF to the printer on LPT1. Delete the RTF. Close any remaining open windows. Most of the macro is working fine. My trouble is switching between the two printers. No matter what I do, the default printer is being changed to Adobe PDF. I either need to know how to prevent this or how to switch it back to the printer on LPT1. The template, which incorporates this macro, is being distributed to several different people each with different printers and printer names. Is there a way to accomplish what I need???? Here is my macro so far ... ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Sub OSDFileSaveAsRTF() ' ' OSDFileSaveAsRTF Macro ' Save merged file as an RTF file ' With ActiveDocument.Bookmarks strFileName = .Item("OSDNumber").Range.Text strFileName = strFileName & .Item("BasicForm").Range.Text End With ActiveDocument.SaveAs FileName:="c:\osd\" & strFileName & ".rtf", _ fileformat:=wdFormatRTF 'Print saved RTF File to PDF File With Dialogs(wdDialogFilePrintSetup) .Printer = "Adobe PDF" .DoNotSetAsSysDefault = True .Execute End With 'ActivePrinter = "Adobe PDF" Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _ PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 'Set active printer back to printer on LPT1 'ActivePrinter = " on LPT1:" 'Delete RTF File 'ActiveDocument.Close 'Kill "c:\osd\" & strFileName & ".rtf" 'Close remaining active documents 'ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Any help would be greatly appreciated. Thanks in advance for your assistance. Regards, Gilley aka DilbertIsMyHero Tag: Link to PDF file using VBA? Tag: 58978
  - 25
    - Switching Printers within the same Macro I have searched and searched for a solution to my problem. I have found bits and pieces but nothing to tie it all together. I have a macro which basically does the following: Saves a merge document to an RTF file. Prints the saved RTF file to a PDF file. Prints the saved RTF file to the printer on LPT1. Closes the active window. Deletes the RTF file. Closes remaining open windows. The problem lies in switching between the Adobe printer and the printer on LPT1. This template, which contains the macro, will be distributed on several different computers. Each computer has its own printer with its own name. I am saving to the RTF file so that the PDF file is forced to have the same name in a specific directory. Below is my macro (such as it is right now)! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Sub OSDFileSaveAsRTF() ' ' OSDFileSaveAsRTF Macro ' Save merged file as an RTF file ' With ActiveDocument.Bookmarks strFileName = .Item("OSDNumber").Range.Text strFileName = strFileName & .Item("BasicForm").Range.Text End With ActiveDocument.SaveAs FileName:="c:\osd\" & strFileName & ".rtf", _ fileformat:=wdFormatRTF 'Print saved RTF File to PDF File With Dialogs(wdDialogFilePrintSetup) .Printer = "Adobe PDF" .DoNotSetAsSysDefault = True .Execute End With 'ActivePrinter = "Adobe PDF" Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _ PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 'Delete RTF File ActiveDocument.Close Kill "c:\osd\" & strFileName & ".rtf" 'Close remaining active documents ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I hope you can make heads or tails from the above since the line breaks are messed up. I basically want to make sure at the end of the process that the default printer is the printer on LPT1 not Adobe PDF. No matter what I do, the default printer keeps getting switched over. Any help would be appreciated. And thanks in advance. Regards, Gilley aka DilbertIsMyHero Tag: Link to PDF file using VBA? Tag: 58976
- Next
  - 1
    - How to hide the Auto* for user use ? [Posted to microsoft.public.word.vba.general and copy sent to the cited author] Hi, How to hide the AutoOpen, AutoNew and AutoClose macros from the list which appears when uqser go to Tools/Macro/Macros. Knowing, I don't wish to lock access to this list (ie. remove the Macro command in menu) nor erase these subs in the code by itself (since I just want to stop the user calls but not the internal ones). Any idea ? Tag: Link to PDF file using VBA? Tag: 58973
  - 2
    - Finding Bookmarks in Headers I need to be able to goto a bookmark in a header and I use several different headers in the same document by using section breaks. I have not determined how to do this since the headers are not visible in the goto list. I am using word 2002 sp3 Tag: Link to PDF file using VBA? Tag: 58968
  - 3
    - Template Codes/Signature I'm not sure this is the correct forum, but our department has 10-12 templates that we all use. Up to now, we've been maintaining our own copies in our Office Template folder, but would prefer to keep one authoritative copy in our departmental folder, and configure each user's Word to look in that folder also. We can insert a Field code to insert the username, but we'd like to insert a scanned signature also, tied to the user. Does anyone know how to do this? Thanks for all help. Sprinks Tag: Link to PDF file using VBA? Tag: 58966
  - 4
    - Extending match time for a combo box Hi all, I have an application (a Word 2002 VBA macro) that requires users to make a selection from a combo box. The users typically type text to make the match, but the 2-second default timing for the combo box isn't enough. They're complaining that they'd like more time to type. I can't find any properties on the ComboBox to change this. I did find this text in the Help documenting the time allowed for matching: "The matching feature resets after two seconds (six seconds if you are using Far East settings). For example, if you have a list of the 50 states and you type "CO" quickly, you will find "Colorado." But if you type "CO" slowly, you will find "Ohio" because the auto-complete search resets between letters." Has anyone figured out a way to change this behavior so it takes longer than 2 seconds to reset? Thanks, Doug Tag: Link to PDF file using VBA? Tag: 58963
  - 5
    - eliminating corruption from pasted in text Many style, bullet, and numbering problems seem to start when text is pasted in from another Word document. Can someone suggest a way to use VBA to get text from another document without causing corruption? Thanks, Keith Tag: Link to PDF file using VBA? Tag: 58960
  - 6
    - Receiving error message starting Word relating to mso.dll Every time I try to run Word I get the an Signature Error message relating to "mso.dll". How do I fix this? Tag: Link to PDF file using VBA? Tag: 58959
  - 7
    - custom menu items linked to 'remote' macro I'd like to add a custom menu item (easy enough), but want the macro to point to macro located in a file on the network. The reason for this is so that many users will use this macro and I dont want to have to maintain each user's normal.dot file. I want a single source for the macro, so that users can benefit from updates/bug fixes/revs etc without having to copy the code each time there's a revision. It seems the problem is that the only macros that show up as available for menu items are located in the normal.dot file (stored locally). I program Excel quite a bit, and it's easy enough to link a menu item to a networked spreadsheet. But it seems this option is not available to Word? If not, are there any elegant solutions/workarounds? Tag: Link to PDF file using VBA? Tag: 58953
  - 8
    - shift tabs for a selected paragraph? I need to shift all of the tabstops for a selected paragraph to the right by a given amount, say 0.2 inches. So far all of my approaches meet with error messages or unexpected results. Can someone suggest a way of accomplishing this? Thanks, Keith Tag: Link to PDF file using VBA? Tag: 58952
  - 9
    - VBA to remove toolbar and menu choices How can I use VBA to remove toolbar and menu choices for a particular document? Thanks, Keith Tag: Link to PDF file using VBA? Tag: 58949
  - 10
    - Intercept a toolbar or menu function call? In Word Office 2003 with SP1, is there a way to intercept the function call to a menu item or toolbar button, so that it uses custom functionality in place of the standard Word functionality? Thanks, Keith Tag: Link to PDF file using VBA? Tag: 58948
  - 11
    - Fill Word table from external data source? I have a series of Word documents that display detail about a single topic. For one of those pieces of detail, an Access database contains the detail for all topics (simple table that includes a column for topic name). This allows us to view all the detail for a specific topic in one place, but also allows us to view all the info for a specific detail data item across topics. I don't want to update both places when a change is made. Is it possible to keep the data in the Access database, then dynamically fill a table in each Word doc with the detail for its specific topic when the Word doc is opened? Tag: Link to PDF file using VBA? Tag: 58946
  - 12
    - Find "Previous" or "Backwards" Word 2003. Windows XP The Word find dialog only has "Find Next". There doesn't seem to be any way to "Find Prvious" or whatever command to search/find backwards through the document. Is there any way to do this with some VBA code? It should be hooked to the current Find process. I.E. One Keyboard shortcut would "find next" and another would "find previous." I'm looking for a way to go directly back to the prior hit, or second prior hit, but then proceed forward again. A locked loop to go through the entired document in the bacwards direction only isn't really helpful. Thanks for any help. Fred Holmes Tag: Link to PDF file using VBA? Tag: 58942
  - 13
    - Macro Button Appearanc Does anyone know how to show a macro button as used? Let me explain - word standard bold button, if your cursor is in text that is bold the button appearance is depressed or it looks activated. when the text is not bold the button appears normal. I would like to add that functionality to a template I am working on, however I have been unable to find any documentation on how to achieve this. Tag: Link to PDF file using VBA? Tag: 58940
  - 14
    - Changing the selection position Hi all I woder whether there is any way of changing the position of the selection to another position e.g. a cell in a table or just Go to end of document, beginning of document etc. Thank you in advance Shmuel Tag: Link to PDF file using VBA? Tag: 58931
  - 15
    - Can I associate a smart tag with an custom object? Hi I want to associate a smart tag with a custom object within Word, Excel, Powerpoint. The objects can be a table, chart or text that have special properties which enable its contents to be remotely updated from a web server (via SOAP/XML interface). I want to associate a smart tag with these object types to enable users to perform certain actions on the object, such as "refreshing" the table, chart, text from the remote web server. After reading all about Smart Tags, I am sure this is possible, though possibly Smart tags are not the best solution. If I use Smart tags, I would not need to code a recogniser, as the object would only need to be associated with a smart tag and its actions upon creation. I was thinking that perhaps a better way to do this would be to provide a context-sensitive pop-up menu for each object and enable the user actions through this menu. Does anyone have any advice on this topic? Regards M -- Mark McGillion PhD Tag: Link to PDF file using VBA? Tag: 58925
  - 16
    - Hidden help text I am trying to create a document that has certain words in it that when you move the cursor over the word a bubble will appear with text, such as a help or other terms that can be used in place of what is on the form. I want to be able to edit this information. Is there any way to do this? Tag: Link to PDF file using VBA? Tag: 58922
  - 17
    - Removal of templates Is it possible to remove (uninstall) advertised templates (templates that was installed with Office, like: "Elegant fax", "Elegant Letter", etc... ) from computer using VBA? I would like to remove them from "templates" dialog ("File"->"New..."). I know that it can be done through Office setup application, but how to automate this because I have to do it on 200+ computers in our network. Tag: Link to PDF file using VBA? Tag: 58921
  - 18
    - how to send mail via default mail application? I need to send my document via default mail application. What i must use to do this? Maybe some sugestions about writing and sended it? Tag: Link to PDF file using VBA? Tag: 58920
  - 19
    - Using VBA via ActiveX? Are there any issues to be aware of in running VBA via ActiveX controls, and creating docs from webpages etc. --- Message posted from http://www.ExcelForum.com/ Tag: Link to PDF file using VBA? Tag: 58917
  - 20
    - Help with printing on specific paper size Hi. I want to print a document (an invitation) to a specific paper size (4.7 in x 6.5 in.), but for some reason the document keeps printing in the middle of the page and some words are cut off. Any suggestions? Thank you. Tag: Link to PDF file using VBA? Tag: 58915
  - 21
    - Working with a created instance of xl wd2k/off2kPro What I want to do is (from a Word Macro) create an instance or use an existing instance, of Excel and copy a range of cells. I figured I'd want this in case the user already had Excel running (I didn't want to shut them down). This was made necessary because I can't use the InsertFile function in Off 2003 so I thought I'd use the "PasteFromExcel" function. Sometimes it would work, other times it wouldn't so I decided to do some learning at home (hence my testing is in Off 2k). This is the 1st time I've delved into this so I'm way over my head here (a little bit of knowledge is a dangerous thing!). Here is my test macro (I've added comments with *'s); Note that it locates/opens the Wb and sheet ok (so I've deleted some logic for "readability"). Sub GetThePSTable() Dim XLap As Excel.Application Dim XLwb As Excel.Workbook Dim XLSht As Excel.Worksheet Dim XLPSnm As String xx = "" On Error Resume Next Set XLap = GetObject(, "Excel.Application") If XLap Is Nothing Then Set XLap = New Excel.Application xx = "Using New Object" Else xx = "Using Existing Object" End If XLap.Visible = True Set XLwb = XLap.Workbooks.Open(PSDir & PSName) Set XLSht = XLwb.Worksheets(XLPSnm) XLSht.Activate lro = 0 XLSht.Range("a65536").Select XLap.ActiveCell.End(xlUp).Select lro = XLap.ActiveCell.Row *******Works OK to here******** *** The following three statements are what I've been testing (by uncommenting one at a time) 'XLSht.Cells(3, 1) = "This is inserted" ** This works 'XLSht.Range(Cells(1, 1), Cells(lro, 4)).Select ** This will work "once in a while" 'XLSht.Range(Cells(1, 1), Cells(lro, 4)).Copy ** This doesn't work (doesn't copy to the clipboard) Set rngSect = Ad.Sections(1).Range.Paragraphs(3).Range **N/A to problem - I set breakpoint here rngSect.Select 'Selection.PasteExcelTable False, False, True '** Not applicable to 2k** XLap.DisplayAlerts = True XLwb.Close If xx = "Using New Object" Then XLap.Quit Set XLap = Nothing End If Set XLwb = Nothing Set XLSht = Nothing End Sub In addition - At the breakpoint I'll get "<Remote server machine does not exist or is unavailable>" as a hover message on the "XLSht.range.......Select" It's right, "the remote server does not exist" - this machines sitting all alone. What started as an interesting educational exercise and had turned into a nightmare as the results are unpredictable. Can anyone give me hints? -- Regards; Rob ------------------------------------------------------------------------ Tag: Link to PDF file using VBA? Tag: 58914
  - 22
    - Assign a vba sub routine to a key combination? How can I assign a vba subroutine to a key combination such as Alt+R? Thanks, Keith Tag: Link to PDF file using VBA? Tag: 58912
  - 23
    - How to retrieve the content of a page I am looking for a way to retrieve the text content of a page. I didn't seem to find an easy way to do this in vba. Any ideas? Tag: Link to PDF file using VBA? Tag: 58906
  - 24
    - Update all fields on saving/closing Hey, would anyone be able to pass on the code for updating all fields in a template when the user closes and/or saves and closes? Here is what I have so far: ActiveDocument.Fields.Update TIA, Jason Tag: Link to PDF file using VBA? Tag: 58903
  - 25
    - Saving Word documents in temp files I am working on an MS Word add-in written in C# using IDTExtensibility2. I would like to save a copy of the ActiveDocument at certain times. I would like for this saving to be similar to Word's auto-recover saving where it is completely transparent to the user. This means that when a new document is saved by my code the filename does not appear in the title bar and the user is prompted to save changes to a new file (not the one I saved to). Also, when my code saves from an existing document, the user is still prompted to save their changes. I tried to save using Document.SaveAs(), but it is just as if the user saves the document. Is there another function that can do this save for me? One other idea I've had is to make a copy of the Document object, and then save that Document to a file. I've not found any way to copy the Document, other than the shallow object.MemberwiseClone. Thanks for the help. David Tag: Link to PDF file using VBA? Tag: 58902

It is possible to link Word to an Excel spreadsheet via VBA command similar to
this:

Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet", filename:= _
"C:\excel\datasheet.xls", linktofile:=True, DisplayAsIcon:=False

Is a similar (or dissimilar, but functional) link to a .pdf file possible? I
just want the 'image' of the file, not ability to edit, etc..

Thanks.

Roy

Top

RE: Link to PDF file using VBA? by Ranjan

Ranjan
Thu Mar 24 07:21:04 CST 2005

Can we embed .zip & .pdf files via .Net in Excel sheets? We are using
following for embeding other MS Office files,

Excel.Shape shp = (Excel.Shape)oSheet.Shapes.AddOLEObject(Type.Missing
,@"D:\Customers.xls" ,true,true,"packager.exe",0,"test.xls",Type.Missing
,Type.Missing ,Type.Missing ,Type.Missing );

Thanks!

"Roy Lasris" wrote:

> It is possible to link Word to an Excel spreadsheet via VBA command similar to
> this:
>
> Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet", filename:= _
> "C:\excel\datasheet.xls", linktofile:=True, DisplayAsIcon:=False
>
> Is a similar (or dissimilar, but functional) link to a .pdf file possible? I
> just want the 'image' of the file, not ability to edit, etc..
>
> Thanks.
>
> Roy
>

Top