Word Automation Paste Issue

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Word Automation Question? Hi all, I'm using a Web Browser COM control to display the Word document, however, I'd like to programmatically open the word document and display the active document within a Panel, does anyone know how to do it? Thanks, David Tag: Word Automation Paste Issue Tag: 89354
  - 2
    - how can I find ORPHAN files to delete in front page -- gerie Tag: Word Automation Paste Issue Tag: 89340
  - 3
    - Unprotecting and Protecting Document via mouse click on active pag I have a two page template in which the first page contains nothing but tables and the second and every page there after contains a repeating header and footer (but not shown on the first page). I have the concept of document protection and have created a bookmark called bmDocNarrative and inserted it on Page 2 where I want the user to start typing. When the template is opened into a document, it is protected and the user fills in the fields based on Form Fields. When the user tabs out of the last form field on Page 1, there is an on exit macro which unprotects the document and goes to the said bookmark so the user can start typing the narrative. My question is if the user arrows or mouse clicks their way back to page one, all of the tables are now â??unlockedâ?? because the document is unprotected. What would some simple code be to force the document back into protection mode while Page 1 is active and to unlock it if the user tries to click back into the text (or page 2 or any other page than page 1)? Or am I making this too complicated? Tag: Word Automation Paste Issue Tag: 89337
  - 4
    - Jumping Cursor I created a 12 page protected form with many tables. Each table has text form fields and nested tables. At the top of each page, the employee name, date and location are supposed to be entered. So, I created a table on each page with one row that serves as the header. This â??header tableâ?? has six columns of which 3 contain form fields. The other three just contain labels. This row is on each of the 12 pages. Once the user types in the required information and presses the tab key, the information fills down to each of the remaining 11 pages. To move between the form fields on each page and between pages, the user uses the tab key. However, when the users tabs from one page to the next , the cursor jumps to the header field on page one then returns to the correct field on whatever page he should be. On the same page the tab key works as it should. Even weirder, when I mouse-click on the header table cells on any page other than the first, the cursor jumps to the top of the document and stays there. How can I stop this? I used the following code for the fill downs for the three fill-in fields, I just changed the field name. In the form-field options, I used these as on-exit macros. Sub Autofill_Name1() Dim strInput As String strInput = ActiveDocument.FormFields("Name1").Result ActiveDocument.FormFields("Name2").Result = strInput ActiveDocument.FormFields("Name3").Result = strInput ActiveDocument.FormFields("Name4").Result = strInput ActiveDocument.FormFields("Name5").Result = strInput ActiveDocument.FormFields("Name6").Result = strInput ActiveDocument.FormFields("Name7").Result = strInput ActiveDocument.FormFields("Name8").Result = strInput ActiveDocument.FormFields("Name9").Result = strInput ActiveDocument.FormFields("Name10").Result = strInput ActiveDocument.FormFields("Name11").Result = strInput ActiveDocument.FormFields("Name12").Result = strInput End Sub -- Lynne Tag: Word Automation Paste Issue Tag: 89336
  - 5
    - printing and exiting from macro first let me say i know extremely little about programming. i have made a macro in access that launches a mail merge document in word. after running the macro, the output is printed and then word is to close the file and exit back to access. here are my problems. 1. when i run the macro in word (run to printer) the printer dialogue box shows up so i have to pick the printer to print to. 2. if i run the word macro to a new document and print, i get the dialogue box that wants to know if i want to save the new file. 3. i then get an error message telling me that word is still printing and cannot exit (the printing has already ended when i get this message.) needless to say that having to deal with these issues makes automating my process very difficult. if anyone out there know how do deal with these please advise. much apprecaited. Tag: Word Automation Paste Issue Tag: 89334
  - 6
    - Updating a TextField from a UserForm How do I set the value of a textfield/bookmark from a UserForm? [Note: This may be a duplicate message - my apologies.] Tag: Word Automation Paste Issue Tag: 89328
  - 7
    - Updating text fields from a Userform Pardon this, however its been several weeks since I posted my question and I can't seem to find the original post... How do I take the value from a user field and set the value of a text field/bookmark in a document? Tag: Word Automation Paste Issue Tag: 89325
  - 8
    - identifying .wmf image Hi all Relisted as I previously accidently put this in the wrong forum. Is there any way in VBA to scan a document and indentify the various image file types in the doc. I am wanting to do this so that I can carry various tasks on various files types. For instance:- Resize all the .WMF images Move the inlineshape type images Etc etc Anyone reckon this is possible? As basic reply as possible please as I am not strong in programming Many thanks Tag: Word Automation Paste Issue Tag: 89322
  - 9
    - Control Toolbox Controls in Documents I am stumgling in the dark trying learn something to help a poster. I have a Word document with some controls entered in the document using the Control Toolbox. Specifically I have some options buttons named Pass1 through Pass4. I can run Sub Test1() to return the caption of Pass1. I can further specifically (and I don't know if it is right or not) declare the variable as a MSForms.OptionsButton and get the result using Sub Test2(). What I can't figure out is how to cycle through each control in the document and determine the caption. It seems that there is no: For each Ct in Me.Controls or Me.MSForms.OptionButtons or Me.Anything that will work. Can anyone help or confirm the quest is hopeless. Thanks. Sub Test1() Dim Ct Set Ct = Me.Pass1 MsgBox Ct.Caption End Sub Sub Test2() Dim Ct As MSForms.OptionButton Set Ct = Me.Pass1 MsgBox Ct.Caption End Sub Sub Test3() Dim Ct As MSForms.OptionButton For Each Ct In Me (what would go here to get name of each OptionButton in the form). MsgBox Ct.Caption Next End Sub Tag: Word Automation Paste Issue Tag: 89321
  - 10
    - Install project HI all, I have just spend 2 hours scanning the NG for info on this. A lot of people seem to praise InnoSetup. So I downloaded it and read the FAQ and some script examples. The main problem I see is that these software are designed to install executable files in (normally) the "Program Files" folder and also provide an uninstall mechanism, both of which are unnecessary when installing templates. I cannot figure out how to tell it to install my templates in the current user Workgroup Templates location (read from the registry?) and to make sure that some of the templates stay hidden once they are installed. (One template is used to invoke the other, and another one is not a template but a database, so they need to be hidden.). I need to make a deployment package for some very inept users who cannot be trusted to follow installation instructions. While I could create a Word file with autoexecuting code that would act as an installation mechanism (this would still require distributing 4 documents instead of one single installation package), it thought I might try to use a "real" install tool so as to look more professional. I also looked at VS 2003, it seemed way too complicated for such a simple install. I would really appreciate it if anybody can give some pointers on InnoSetup (Or any other installation software). -- Salut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREMOVE@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org Tag: Word Automation Paste Issue Tag: 89317
  - 11
    - Macro to convert Word to PDf and store in certain location I have a user looking to create a macro that would convert a word 2003 document to adobe 7 PDF document, save that document to a specific folder on the server. Plus and this is what I am struggling with, they want it done with out any pop ups for the user to have to answer. Any ideas. Thanks ahead of time Barbara Tag: Word Automation Paste Issue Tag: 89316
  - 12
    - Display status bar message from template in startup folder I have created a template in my Word Startup folder that allows me to remap the numpad decimal point to a comma (courtesy of the thread at http://tinyurl.com/ogwsp). I have also created toolbar buttons to assign and unassign on demand rather than on startup. There is a part of the code in this module to put a message on the status bar to notify the user that the numpad decimal has been remapped. This works when I have the template open, but does not seem to work when I have another document open. Also, I'm assuming i do not need the ThisDocument.Saved = True line in there for it to work, but I threw it in anyway since it was there. I'd like to get rid of it if I can. My code, as taken from the above noted thread, is as follows: Option Explicit Sub AssignNumpadPeriodToComma() CustomizationContext = NormalTemplate KeyBindings.Add KeyCategory:=wdKeyCategoryMacro, _ KeyCode:=BuildKeyCode(wdKeyNumericDecimal), _ Command:="TypeAComma" ThisDocument.Saved = True StatusBar = "Custom key assignment loaded by MyKeys.dot " & _ "in the Word Startup folder." End Sub Sub TypeAComma() Selection.TypeText "," End Sub Sub UnassignNumpadPeriodToComma() FindKey(BuildKeyCode(wdKeyNumericDecimal)).Clear End Sub Thanks. Tag: Word Automation Paste Issue Tag: 89315
  - 13
    - count the value of Optionbox in a table I have a table with 5 columns Step Action Expected Results Pass Fail in the pass fail columns there are option boxes. I want to count the number of passes and the number of fails to total them with out counted every cell. Hopefully there is a loop i can use. Tag: Word Automation Paste Issue Tag: 89312
  - 14
    - Import data from access into a table Ok i would like to import data from an access database table into a table in a microsoft word file. The table is already created and i would to just insert the data into that table. Here is the tricky part: each record should have a new table. The table created is a template for how all the tables should look. Is there a way to to have it so that a new table is copied from the template and the data is inserted into it. Or will i have to create a table for each record on my own. I was given some sample code to use with it and would like to know if it is correct, and also some tips to go about using it. The source of my code was not sure if the code for the table was correct, and also i would assume that cell(#,#) is (row,column). Sub GetDataFromDataBase() 'allocate memory for the database object as a whole and for the active record Dim myDataBase As Database Dim myActiveRecord As Recordset 'Open a database Set myDataBase = OpenDatabase("C:\DataBaseFolder\Database.mdb") 'Access the first record from a particular table Set myActiveRecord = myDataBase.OpenRecordset("Table_1", dbOpenForwardOnly) 'Loop through all the records in the table until the end-of-file marker is reached Do While Not myActiveRecord.EOF 'If field #1 contains a non-zero value, 'insert the value of field #2 into the document 'after the current cursor or selection location If myActiveRecord.Fields("Field_1") <> 0 Then 'this will put the data after the cursor, you have to set it up so that it goes in the correct field in your table, if you want it in a table, i believe it's selection.tables(#).cell(#,#) selection.tables(#).cell(#,#) myActiveRecord.Fields("Field_2") End If 'access the next record myActiveRecord.MoveNext Loop 'Then close the database myActiveRecord.Close myDataBase.Close End Sub Thank you for any help that you can give. Tag: Word Automation Paste Issue Tag: 89311
  - 15
    - How do I enable 'Set' in Tab Leader I would like to set a tab leader but the set option is grayed. Tag: Word Automation Paste Issue Tag: 89309
  - 16
    - how can I make a doc. in word with option buttons Does anyone know how I can make option buttons in a word document and make it to where they have to be answered, I believe it may involve macros, but I know nothing about macros. Tag: Word Automation Paste Issue Tag: 89300
  - 17
    - Word to PDF without print driver Hello! It's great that new Word 2007 will have "Publish to PDF" add-in, which creates PDF files *without using printer driver*. Currently I use FinePrint pdfFactory to convert .doc files to PDF, but it is implemented as "virtual printer" driver. http://www.fineprint.com/ Similar solution is free PDFCreator http://en.wikipedia.org/wiki/PDFCreator Is there an add-in that enables to save Word files as PDF for older versions of Word (2000/XP/2003), that does not rely on printer driver? BTW, it seems that "Publish to PDF" functionality will be implemented as additional download&install http://msdn2.microsoft.com/en-us/library/ms406051.aspx Also I would like to know, since Open XML support ( and ODF support, that will base on Open XML awareness) will be added to older Word version ), http://www.microsoft.com/office/preview/beta/converter.mspx http://blogs.msdn.com/brian_jones/archive/2006/07/05/657510.aspx [quote] The Open XML formats that are going to be the default in Office 2007 are going to be the most important in my mind. It's the Open XML formats that allow us to build the ODF support (and will open doors to a number of other formats as well). The PDF and XPS functionality would be another example of new formats we're providing this release. [/quote] whether PDF support will be added to Word XP/2003 Thanks, Roman Tag: Word Automation Paste Issue Tag: 89291
  - 18
    - Word 2003 - Automating Letter Template I have a letter template, complete with fillin fields for name/address, subject, salutation etc which all works fine. When it comes to completing the body of the letter, I'd prefer NOT to use a fillin field, but to perhaps automatically move the cursor to the correct point once all fillin fields have been completed. Is there another field I could use, perhaps witha bookmark? Any suggestion gratefully accepted. TIA Amanda Tag: Word Automation Paste Issue Tag: 89285
  - 19
    - Changing font for unicode characters Hi, I had a problem in MS Word that started off from the Equation Editor. Somehow some of my definitions for font styles seemed to be reset and I (apparently) mistakenly thought that I had set Palatino Linotype as the font for _everything_, but actually I discovered that I only get correct rendering if "Symbol" is set to the Symbol font. Otherwise minus sign (or "en dash"), "identical to" and other characters come out 'wrong'. You can play around with this if you're interested, but it's more by way of background to my actual question. I wondered why the "identical to" character (Unicode 2261 [HEX]) wasn't rendering correctly in Equation Editor with "Symbol" is set to the Palatino Linotype font. I decided to investigate the rendering of the font in the body of the document in a variety of fonts ...in fact, _every_ installed font. Therefore I created and ran the following macro: Sub macro2() For Each afont In FontNames Selection.Font.Name = afont Selection.InsertAfter "2261" Selection.ToggleCharacterCode Selection.InsertAfter " " & afont & vbCr Selection.EndKey Unit:=wdStory Next afont End Sub This should run fine for you provided your security settings are apropriately configured. It is not convenient to reproduce the output, as it spans several pages, but I found that the results were not as expected. For example, for what should have been Palatino Linotype, the "identical to" character was rendered in Arial Unicode MS. As I watched the Selection.Font as the code was stepped through, I noticed that discrepancies arose between Selection.Font.Name Selection.Font.NameAscii Selection.Font.NameBi Selection.Font.NameFarEast and Selection.Font.Name.Other Is this an application 'feature', a known MS bug, an unknown MS bug, or is _my_ code buggy? Thanks for your comments, DIV Versions: Equation Editor: 3.1 Word: 11.8026.8028 SP2 XP: 5.1.2600 SP2 Tag: Word Automation Paste Issue Tag: 89275
  - 20
    - transparencia como devo proceder para fazer uma transparencia? e cartao de visitas Tag: Word Automation Paste Issue Tag: 89272
  - 21
    - How can I tell if my file has been saved already? I have a template, with fill-in form fields. I have a working macro to 'SaveAs' the document as it exits a particular form field. But I want to execute the SaveAs macro only if it's a new document and has not been saved before. Is there a way to set up an if statement to tell if the file is new or has been saved already? Thanks, Ruth Tag: Word Automation Paste Issue Tag: 89269
  - 22
    - How about a Moderator to get rid of the non-computer "junk" posts How about a moderator to get rid of the non-computer related posts (i.e. Dogs in China, A Good Sexy Hotline, etc.)? Brendan ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=8a1b9656-8ae0-4855-bb38-1549b3174558&dg=microsoft.public.word.vba.general Tag: Word Automation Paste Issue Tag: 89266
  - 23
    - =?Utf-8?Q?How_to_change_security_settings_?= I have to deploy a template to over 30 computers with some of the computers having different users (Running Windows 2000). The problem is that each user has to change their security setting from High to Medium to run the template. Is there a way to simplify this (ie. modify one normal.dot file and deploy it to all the computers via the network so each user does not have to manually change their setting)? Or is this security setting housed somewhere else? Tag: Word Automation Paste Issue Tag: 89265
  - 24
    - Approval VBA Macro We have documents that need to go through a formal approval process. Without getting into workflow, etc..., I just need a simple macro that will grab the currently logged on userid along with the date/time stamp. I'm a novice vba user and have done some vba stuff in Excel. Actually, I was able to do this in Excel by creating a control box and when the user clicked either Yes or No, their username and the date/time stamp appeared next to the check box. Oh, in Excel I have two checkboxes, one for yes and one for no. If they change their mind and uncheck the box then their username and date/time disappear. I need this same functionality in Word as well as to have these "approval" fields locked after it is accepted or rejected (for auditing purposes). I have found some Word code but it makes no sense to me because unlike Excel there are no cell, sheet, etc... references. I would appreciate any help I can get on this. Thanks! Randy Tag: Word Automation Paste Issue Tag: 89264
  - 25
    - Trying to copy formatted text _without_ Style? I get documents with a mish-mash of styles and formatting applied directly to the text. I am wondering if there is some way I could copy all of the text and any direct formatting over into a new doc based on my own template, but not any styles. I tried FormattedText in VBA, but the style came into the new document with the text - so did Edit>>Paste Special>>RTF. I'm beginning to think I would need to crawl through every word of every paragraph, capture any formatting applied in an array, paste the text over as unformatted, then read the paragraph word by word and apply any formatting in the array. Is there an easier way? Ed Tag: Word Automation Paste Issue Tag: 89263
- Next
  - 1
    - security - read-only recommended Hello, Through VB and the Word object model is it possible to un-select the tools > options > security > Read-only recommended check box? thanks Tag: Word Automation Paste Issue Tag: 89262
  - 2
    - OCX Form Field Collection Form fields inserted into a document from the Forms toolbar can be accessed by ActiveDocument.FormFields("formfieldname"). This does not work for fields inserted into the same document from the Control Toolbox. In a Userform, you can use the Controls collection but I can't figure out how to access the fields inserted from the Controls Toolbox. I want to write a construct like: For each ctl in Controls... Is there a way to do this? Thanks, Peter Tag: Word Automation Paste Issue Tag: 89261
  - 3
    - Problem with FormattedText Doing a mailmerge from Excel with Word automation. I am altering a document and then doing SaveAs. This runs in a loop and after doing SaveAs I need the original document to do the same again. Rather than closing and reopening this document I prefer to keep the text + formatting in a range variable and putting that back. Only reason for this is that is quicker. This is the simplified code I have: Dim wd As Object 'need to add Word here as there also is a DAO Document! Dim Doc As Word.Document Dim rngAllText As Word.Range Set wd = CreateObject("Word.Application") Set Doc = wd.Documents.Open(strLetterDoc) Set rngAllText = Doc.Content.FormattedText.Duplicate 'alter the document here 'do SaveAs here Doc.Content.FormattedText = rngAllText At this line line I get error 5937: Cannot copy content between these 2 ranges. Thanks for any advice in this. RBS Tag: Word Automation Paste Issue Tag: 89259
  - 4
    - How to write a smart document How to create a Smart Document How to use XML in it How to certify XML file Tag: Word Automation Paste Issue Tag: 89258
  - 5
    - *.dot won't run a "Document_Open" Macro when opened from Netwrk Se I have a *.dot file that is setup on our network server for users to access. The document opens fine but I need to force open a User Form (UserForm1) as soon as the template opens. Additionally, if I run the template from my local machine I can get the User Form to open via the below code. Private Sub Document_Open() Application.Run MacroName:="goPCDFiller" End Sub (1) What code to I need to execute to get the template to open the User form when it is deployed on a network server? (2) Also, is there a code available that forces open WORD to view/run the template because many of our users have â??Quick View Plusâ?? installed (which is fine) but it takes over the *.doc and *.dot files when the user tries to open one of them. Tag: Word Automation Paste Issue Tag: 89257
  - 6
    - Word 2007: Binding customXML to Content Control Hi I have been trying to get my own XML file working with Content Controls. But I can not find a way to define the x-path binding to my xml. I will be very happy if any of you can give me a hint on how to define the mapping (from within word 2007 - beta 2). Best Regards, Kaj Bromose Tag: Word Automation Paste Issue Tag: 89256
  - 7
    - Printing Forms from Macros I have created some protected forms for users but I also have a customized printing menu. This enables the users to print to different paper trays (we have several) easily without having to go CTRl P change the paper type and remember which tray is which each time. My printing menu lists the paper trays by type. How can I get the Printing macros to print the protected forms. If I try at the moment I get Run-time Error 4605. Any help would be greatly appreciated. JayM Tag: Word Automation Paste Issue Tag: 89249
  - 8
    - Interacting with oracle DB from VBA without Oracle Client on PC? Hi all, I noticed that their are some solutions for VB.NET to connect to an Oracle Database without having an Oracle client on your PC (for eample Core Lab's OraDirect .Net Dataprovider). Installing and maintainig Oracle clients is considered to be a pain (various Database versions require different clients) and is avoided by using more and more web based applications from Oracle. Only for Word VBA stuff I need an oracle client to be present on all machines. I was wondering if anyone has ever tried this from VBA as I would love to get rid of the Oracle client. Kind regards, rVo Tag: Word Automation Paste Issue Tag: 89245
  - 9
    - problems with the word-exel comand Hi, I have a file that first save each one of the words of a document, after that, it paste the words in an excel file and then counts and deletes the repeated words, my problem is in the exl.sort command, the program breaks when it arrives to the sort procedure of excel, I attached the code, please help Sub Macro1() Dim arr1() cntr1 = 0 a = ActiveDocument.Characters.Count For n = 1 To a If ActiveDocument.Characters(n).Text = " " Then cntr1 = cntr1 + 1 ReDim Preserve arr1(cntr1) arr1(cntr1) = word1 letter1 = Empty word1 = Empty Else letter1 = ActiveDocument.Characters(n).Text word1 = word1 + letter1 End If Next Set exl = CreateObject("excel.Application") exl.workbooks.Add exl.Visible = True exl.Cells(1, 1).Select cntr3 = 1 For cntr3 = 1 To UBound(arr1) exl.Cells(cntr3 + 1, 1) = arr1(cntr3) Next exl.Columns("A:A").Select â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??The program breaks here exl.Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??The program breaks here For b = 2 To UBound(arr1) cntr12 = 1 For C = 2 To UBound(arr1) If exl.activesheet.Cells(b, 1) = exl.activesheet.Cells(C, 1) And b <> C Then exl.Rows(C).Delete C = C - 1 cntr12 = cntr12 + 1 If exl.Cells(C, 1) = Empty Then GoTo endsub End If End If Next exl.Cells(b, 2) = cntr12 Next exl.Range("A1") = "Word" exl.Range("B1") = "Counter" exl.Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal endsub: End Sub thanks Tag: Word Automation Paste Issue Tag: 89244
  - 10
    - reformating a string... Hello, I have a word document that looks as follows: {"word1 / word1a"}, {"word2 / word2a"}, {"word3 / word3a"}, ..... {"word1000 / word1000a"} What I need to do is remove the '/ wordxa' from the document so it looks like this: {"word1"}, {"word2"}, {"word3"}, ..... {"word1000"} Any help would be appreciated. Thanks, RABMissouri2006 Tag: Word Automation Paste Issue Tag: 89239
  - 11
    - Adding watermark to every page Hi all, I have a bit of a panic on the go here and would like to ask for assistance. Can anyone suggest how I could programmatically (using VBA) add a watermark to every page in every section in a 10 to 20 page word doc? I want to add the word "COPY". I thought maybe I could add a specific sized textbox with hidden borders, containing COPY in large pale grey font colour (maybe running vertically in the textbox). Then set the textbox to appear behind the normal text. How on earth I would go about that, I dont have the faintest idea. Anyone prepared to offer help or suggest an alternative method? Unfortunately I dont have enough time to try and fubble around for days on end like I isually do. Any help or suggested code would be greatly appreciated. Many thanks Gem_man Tag: Word Automation Paste Issue Tag: 89236
  - 12
    - VBA Reading a Word Document's Form Field into a User Form Text Box How do I grab the value from an Form Field in an active document and then place that value into a User Form that has a corresponding text box. I thought it would be something like this but I canâ??t seem to get it to work. Private Sub UserForm1_Initialize() Me.tbLastFirstMiddle.Value = ActiveDocument.FormFields("docLastFirstMiddle") End Sub Tag: Word Automation Paste Issue Tag: 89232
  - 13
    - Header/Footer not protected in form Hello, I have a document template protected for forms. When the user creates a new document based on the template, they can click on the header. This switches them from page layout view to normal view and creates a header pane at the bottom of the document to allow the user to edit the header. This is not what I want. I don't want the users to be able to touch the header in any way. The reason I need a header is that the form fields are in table rows and can expand, causing the document to end up with more pages than the template it was based on. Any help would be appreciated. Thanks! Tag: Word Automation Paste Issue Tag: 89225
  - 14
    - printing to multiple printers with macro? Is there a macro that I could write that could print a MS word file to one printer, and then also print it to another printer . Both printers are remote / network printers Tag: Word Automation Paste Issue Tag: 89216
  - 15
    - Hiding text based on custom document property Good afternoon, all, I am trying to show/hide text based on a custom document property, Audience. When my document opens, a form appears with three options, All, Agency, and Program Office. Here is the code behind the form button's onClick event: Private Sub cmdOpen_Click() Dim st As style If Me.Controls("optAll").Value Then ActiveDocument.CustomDocumentProperties("Audience").Value = "All" ElseIf Me.Controls("optAgency").Value Then ActiveDocument.CustomDocumentProperties("Audience").Value = "Agency" Else ActiveDocument.CustomDocumentProperties("Audience").Value = "ProgramOffice" End If If Me.Controls("optAll").Value Then For Each st In ActiveDocument.Styles If InStr(st.NameLocal, "Agency") > 0 Then st.Font.Color = wdColorBrightGreen st.Font.Hidden = False ElseIf InStr(st.NameLocal, "ProgramOffice") > 0 Then st.Font.Color = wdColorRed st.Font.Hidden = False End If Next Else For Each st In ActiveDocument.Styles st.Font.Color = wdColorAutomatic If InStr(st.NameLocal, "Agency") > 0 Then st.Font.Hidden = Not Me.Controls("optAgency").Value ElseIf InStr(st.NameLocal, "ProgramOffice") > 0 Then st.Font.Hidden = Not Me.Controls("optProgramOffice").Value End If Next st End If ActiveWindow.View.ShowHiddenText = False frmAudience.hide End Sub So...first I set the custom document property. If the user chooses the option labelled All (which I would do when I am creating this manual) I want to show all styles, with any style containing the word 'Agency' in its name showing as bright green text and any style with ProgramOffice showing as red. If the user choosed the option labelled "Agency" I want only the styles containing 'Agency' to show, and have all styles containing 'ProgramOffice' to be hidden. So, I set the Hidden property of all the styles containing Agency to the opposite of the option control. In other words, if Agency was selected, then Me.Controls("optAgency").Value will be true, and I want the font for the styles containing 'Agency' to have a hidden property of false. The problem is that after running the lines that assign the value to st.Font.hidden, st.Font.hidden equals -1. I found one posting that I didn't really understand, but it seemed to say that this was because the style was a paragraph style. So, can I do what I want? If so, what am I missing? Any ideas, resources, references would be greatly appreciated. Thanks, Kathryn Tag: Word Automation Paste Issue Tag: 89212
  - 16
    - VBA into already created table(s) in a Header or Footer MS Word - VBA into Header or Footer (and into a table in the same) Is there a way to allow gain access to a header or footer in Word via VBA? I have a one page form full of tables (Page 1) and the narrative begins on Page 2. There is a header and footer on page 2 and subsequent pages (but not on page 1). The header and footer have tables and I need to be able to bookmark the tables somehow and copy certain data from page 1 to this header and footer. As I see it, there are two ways to do it: #1 Use a VBA â??prompt boxâ?? (UserForm) for the data to be captured and force the data into the header for footer as well as certain fields on Page 1. OR #2 Have a macro run on a Text Form Field "EXIT" which automatically COPIES and PASTES data from Page 1 to the header & footer on Page 2 I have tried where â??tblLastFirstMiddleâ?? is the Form Text Field / Bookmark and vLastFirstMiddle is the text box control on VBA UserForm. ActiveDocument.FormFields("tblLastFirstMiddle").Result = vLastFirstMiddle.Value This works fine for Page 1 but I have yet to be able to (1) manually place a bookmark / text form field in an already created header or footer and (2) call that bookmark in the header or footer and (3) Copy and Paste the data into it. Any suggestions? Tag: Word Automation Paste Issue Tag: 89210
  - 17
    - lost my office disk i con't open work downloads. what to do lost my office disk i con't open work downloads. what to do Tag: Word Automation Paste Issue Tag: 89202
  - 18
    - Form Field Entry & Exit Macro drop-down list Does anyone know where the list of macros is taken from for the entry and exit macro for form fields? I am building a form and have added a textbox. I want to execute a macro on exit. When I click on the drop-down list associated with the exit macro on the Text Form Field Options dialog box, the only macros I see are ones in my Normal.dot file. I want to select a macro I have written in the form which has been saved as a .dot file. Thanks! Peter Tag: Word Automation Paste Issue Tag: 89193
  - 19
    - HOWTO Keep original document name after a forced SaveAs. HOWTO Keep original document name after a forced SaveAs. Please help, I have script to force the current document to be saved using the ThisDocument.SaveAs method. After I invoke the SaveAs, the "Name" of the document changes from whatever it was to the path name I give in the "SaveAs" call. I want the name to go back to the original name, but the ThisDocument.Name property is read only, and won't let me change it back. How can one do this? Is there a way to change the name back? Is there perhaps a way the "ThisDocument" can be copied to a dummy document, then the dummy saved via SaveAs and then destroyed without any GUI? Tag: Word Automation Paste Issue Tag: 89192
  - 20
    - RegEx Range.Text object corrupting embedded footnotes I have a macro which processes text using Regular Expressions (to find run-in heads in paragraphs). It seems that regular expressions will only work on the Range.Text object and not Range.FormattedText. I thought I had most of the kinks worked out of this but found a new wrinkle yesterday. It seems that, if the text of a paragraph is altered by a RegEx, then the embedded footnotes in that paragraph are broken. I have a sense that this is because the proper information isn't be passed back to the document by the Range.Text object when a replacement is made (duh). Before I sit down and write a macro that cuts out the embedded footnotes and replaces them with a marker before the RegEx is run and then reverses the replacement after the RegEx is run, I thought I would check with the experts and see if there are any better (and easier) approaches out there. I have tried replacing the RegEx searches with S/R using Word's wildcard search options but can't achieve the desired search complexity with them. I always run into the "expression is to complex" error. As a side question, are the limitations of Word's Wildcard Search listed anywhere. The one major one I've encountered is the limitation to 7 groups instead of the regular 9. There seem to be others but I can't recall them right now. Anyway, any suggestions would be appreciated. Thanks, Jeff Tag: Word Automation Paste Issue Tag: 89190
  - 21
    - cehck for page numbers in footer word doc hi i need to check with visual basic macro if a page number is define in a word file. i need to know if any kind of page number is exist by the code and how to remove it thanks Tag: Word Automation Paste Issue Tag: 89187
  - 22
    - custom dictionaries seem to get corrupted Dear all, My custom dictionaries (for spelling checks) often don't accept newly added terms, or I have to klick 'Add' twice before a new entry is added, and then, Word stops again at newly added term as if they weren't already in the dic file. Now when I open the dic file, some entries seem to be displayed vertically (ech letter is a new entry). Other entries are in the file twice (AV-button). Can anyone explain/solve this behavior? Shirley Nomey Word XP 2002 on Windows XP SP2. AMD AV-button C o n f i g F r e e H T M L - c o d e H T M L - AV-button AV-features AV-solution AV-PC BDJ Blu Blue-ray Bluetooth Centrino Tag: Word Automation Paste Issue Tag: 89185
  - 23
    - How do I code VBA to hit button on a different worksheet? I have a protected worksheet that has a button that I want to execute using VBA. The worksheet in question is protected with the exception of certain cells where I can paste values. I am creating a VBA to do all the pasting but I can't figure out how to execute the button. Run or Call don't work. Help. TIA. Tag: Word Automation Paste Issue Tag: 89181
  - 24
    - Word 2003 page numbers Is it possible to read the page number of a word document at the cursor location from VBA? Tag: Word Automation Paste Issue Tag: 89176
  - 25
    - Saving documents from templates with form field information I have a template with multiple text and number form fields, including 'project number', 'project manager', and 'site name'. I want to set up a standard naming convention for the documents from this template with a combination of the form fields. I then want to set up a macro to save the document with that name. For example: I want to save and name the document "project number-project manager-site name.doc", where each of those variables are the actual data that the user has filled in the form. I have bookmark-named all of the fields on the template. I have also selected the "calculate on exit" checkbox on all of the fields. I see how to set up a calculated field on the form, but it won't work with text fields. I also see how to set up a cross-reference, but that's only to one bookmark at a time. Any ideas? Thanks, Ruth Tag: Word Automation Paste Issue Tag: 89171

hi,

i have an issue with pasteing an image out of a text box back onto a
word document and repositioning it on the document so i can select the
picture as a shape for copying into powerpoint.

every time i paste the copied image it overwrites the whole document.

any help would be appreciated.

For iCount = 1 To oDoc.Shapes.Count
If oDoc.Shapes(iCount).Type = msoTextBox Then
If
oDoc.Shapes(iCount).TextFrame.ContainingRange.InlineShapes.Count <> 0
Then
Clipboard.Clear

oDoc.Shapes(iCount).TextFrame.ContainingRange.InlineShapes(1).Select
m_objWord.Selection.Copy
iImgLeft = oDoc.Shapes(iCount).Left
iImgTop = oDoc.Shapes(iCount).Top
oDoc.Shapes(iCount).Delete
m_objWord.Selection.Collapse wdCollapseStart
oDoc.Content.PasteSpecial
placement:=wdFloatOverText
'odoc.Range.
m_objWord.Selection.InlineShapes(1).ConvertToShape
m_objWord.Selection.ShapeRange(1).Left = iImgLeft
m_objWord.Selection.ShapeRange(1).Top = iImgTop
End If
End If
Next

cheers, Stu

Top

Re: Word Automation Paste Issue by Jonathan

Jonathan
Fri Aug 11 08:46:29 CDT 2006

This line is the problem

oDoc.Content.PasteSpecial

Where do you want the image pasted? Define a Range object variable for that,
make sure that you apply the Collapse method to it so that it defines and
insertion point, and then use the PasteSpecial method on it.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

<stuart@stricky.f2s.com> wrote in message
news:1155283770.489853.39260@i42g2000cwa.googlegroups.com...
> hi,
>
> i have an issue with pasteing an image out of a text box back onto a
> word document and repositioning it on the document so i can select the
> picture as a shape for copying into powerpoint.
>
> every time i paste the copied image it overwrites the whole document.
>
> any help would be appreciated.
>
> For iCount = 1 To oDoc.Shapes.Count
> If oDoc.Shapes(iCount).Type = msoTextBox Then
> If
> oDoc.Shapes(iCount).TextFrame.ContainingRange.InlineShapes.Count <> 0
> Then
> Clipboard.Clear
>
> oDoc.Shapes(iCount).TextFrame.ContainingRange.InlineShapes(1).Select
> m_objWord.Selection.Copy
> iImgLeft = oDoc.Shapes(iCount).Left
> iImgTop = oDoc.Shapes(iCount).Top
> oDoc.Shapes(iCount).Delete
> m_objWord.Selection.Collapse wdCollapseStart
> oDoc.Content.PasteSpecial
> placement:=wdFloatOverText
> 'odoc.Range.
> m_objWord.Selection.InlineShapes(1).ConvertToShape
> m_objWord.Selection.ShapeRange(1).Left = iImgLeft
> m_objWord.Selection.ShapeRange(1).Top = iImgTop
> End If
> End If
> Next
>
> cheers, Stu
>

Top