retain page numbers when appending files

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Instructions for Users I want to set up a template for users that will display instructions when they go to specific areas of the document. For example, when they begin to enter text in the area labeled Summary, I want to display information on what should be included in the Summary. I'm uncertain of the best way to go about doing this. I'm considering setting it up as a form and have a macro execute which displays a dialog box containing the instructions when they click on a specific area of the document, such as the Summary. Another idea I have is to just create a custom toolbar with buttons they can manually click to retrieve the instructions on particular areas of the document. Anybody have any suggestions? Tag: retain page numbers when appending files Tag: 84992
  - 2
    - Template Hi, How can I apply a document template which was stored in a certain location to any word document. Is it possible to do this using VBA. If yes, How? Tag: retain page numbers when appending files Tag: 84988
  - 3
    - Bookmark data in UserForm? Is there a simple way to add a bookmark reference to a userform popup? The user selects five ratings of 1-4, which get totaled to the bookmark CompTot1 when the user clicks a "Validate" command_button on the page. I would like a UserForm to popup that says, "Your subtotal is [CompTot1]. Is this a performance review? At that point the user clicks on command_button YES or NO, which takes them to one of two different bookmarks. I have the second half completed; but I'm finding it tricky to get the CompTot1 bookmark subtotal into the UserForm; there's lots of info on how to get userform data 'down' to the form, but not 'up' from it, if that makes sense.... Thanks! Chris Tag: retain page numbers when appending files Tag: 84981
  - 4
    - Cell height when text is wrapped 1 Rows in the third column of table pasted into Word 2000 from XL has text wrapped in many cells but the (row) height of the individual cells does not always equal what it should be for the number of wrapped rows of text in the cell. Often even a single row cell is deeper that it should be Can anyone suggest a macro which would check how deep a cell should be for the amount of wrapping and set the row accordingly I have to do this regularly and it is tedious manually dragging each row to suit - Office 2000 on this PC but could use 2002 on laptop 2 How does one write a while/wend to run down the third column - is there a way of determining how many rows there are? Francis Hookham PS I posted this question to the microsoft.public.word.programming newsgroup two weeks ago but no one has responded Tag: retain page numbers when appending files Tag: 84980
  - 5
    - Access bookmark in header I am trying to automate word from Access and I can't seem to get the syntax correct for referencing a bookmark in the header. WordApp.Selection.GoTo What:=wdGoToBookmark, Name:="CycleName" WordApp.Selection.TypeText Text:=rsDAO!CycleName works fine in the body of the document but can't "see" bookmarks in the header. So I tried: ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader WordApp.Selection.GoTo What:=wdGoToBookmark, Name:="CycleName" WordApp.Selection.TypeText Text:=rsDAO!CycleName But that didn't work either. I still got the "Word cannot find the requested bookmark" message. Can someone point me in the right direction? Tag: retain page numbers when appending files Tag: 84978
  - 6
    - List of files in dir I used to have some code for this, but it's out of date now. All I need is to have Word or whatever agent create a list of the files in a specified directory, and pop it into an Word document. Simple enough, but it's beyond me. TIA Tag: retain page numbers when appending files Tag: 84971
  - 7
    - Controlling textbox content on a userform Hi folks, I just found your group and like the look of it! Can I ask a question to get started? I have a userform with two textboxes and an OK button, and the content of one of the textboxes needs to always be numerical - is there a way to restrict the content so that it will only accept numbers? I'm fairly certain there's no property to do it (although happy to be proved wrong if there is!) but I was thinking maybe something like this: Private Sub txtNo_Change() If .value <> [numerical] then msgbox "Numbers only, please! Try again", vbinformation End Sub Needless to say I don't know what to put where I've got [numerical] above! Any assistance would be much appreciated! Many thanks BerylM Tag: retain page numbers when appending files Tag: 84970
  - 8
    - Split large documents I have found a macro that will allow me to split a large document into several single page documents but am having trouble modifying it so that it would split the document every 20 pages. I would be grateful if somebody can point me in the right direction. -- Thanks, MarkN Tag: retain page numbers when appending files Tag: 84959
  - 9
    - form fields and ref fields Hello again list. In my document I have a form field that appears multiple times in the document. I have the understanding that I need to use a REF field to display it in the subsequent fields. I have this part nailed ok. The only problem is I am adding the data with vb.net and the REF field is not being updated. SO far I have tried these methods.. Doc.FormFields.Item("City").Result = "Sydney" Doc.Fields.Update City has 1 REF Field. This does not update the REF Field. I have to go Into the document myself and right click the REF field and click Update. Any Ideas?? Thanks Nathan Tag: retain page numbers when appending files Tag: 84951
  - 10
    - mailmerge or formfields Hello List, I have a question. I was wandering what the best method is to put data into a word document. At the moment I am using mail merge, but I heard that mail merge does a maximum of 63 fields?? Is this true. I am currently at 59 fields, And I am still adding fields every now and again. I am only generating 1 document. So I was thinking maybe form fields might be better? Which will work the best and be most efficient? Thanks Nathan Tag: retain page numbers when appending files Tag: 84950
  - 11
    - Add rows/form fields on doc w/ multiple tables & calculate I have a document that contains three tables. The second and third may contain 0 to X number of rows, depending on user input. The second table has 7 columns and a form field text input for each cell, except the first row is headers. The 7th column form field contains a calculated field for three of the other text fields of that same row. Third table is five columns with a form field text input in each cell, except the first row is headers. I wish to be able to, in each table, add a row as the user requires, but keeping a naming convention so that I can send the data to a backend DB when completed. I would also like to know if it is possible to set a form field's expression property so that I can calculate the subtotals of each row into a table subtotal. I hope that makes sense and would like to offer my gratitude in advance for any help. Tag: retain page numbers when appending files Tag: 84945
  - 12
    - Inside Word Objects I'd like to know how Word keep tracks of all the objects used in a document. When a document with several paragraphs (or other objects) is open, Word populate the set Document.Paragraphs object with several Paragraph objects and keep everything in memory or it does nothing at all? I mean, when I use, for example, Document.Paragraphs.Count, does Word read a value stored in memory or it parse the document looking for Paragraph Marks? There are variables storing values or the workings are done on the spot? Thanks, Lauro Tag: retain page numbers when appending files Tag: 84942
  - 13
    - Need help in working a class event handler... I'm trying to check a formfield on its contents and message box to the user about no entry and not allow printing. I've found the code that allows msgboxing from the AppThatLooksInsideThisEventHandler_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean) routine in the class event handler. Where do I place the code to check the formfield? I tired to run this code from a class module within the document itself, which I would rather do, but it doesn't work. Can I refer to the class module in a document module or do I create a new class module in the documemt I want to check? Also, I want to cancel the printing if the contents are not filled in. Can all of this be done in one document without needing to addin an event handler dot? -- Otium Cum Dignatate Tag: retain page numbers when appending files Tag: 84938
  - 14
    - VBA Cosmetics Dear All, My UserForms are really pretty gray and ugly. Also, when putting macro's on a toolbar, the little images MS offers are pretty poopy. Pretty has nothing to do with functionality, I know, but I'd like to get these items to look just a little, well, less homely. Pointers to any helpful resources would be appreciated. Sincerely, R. Tag: retain page numbers when appending files Tag: 84936
  - 15
    - Organizing Templates for Office Use I'm planning to distribute some word automation tools to our network users (Office 2003, XP workstations & Server 2003) via login scripts, copying the files to users' Word>Startup directories. We will have some Autotext entries, some autocorrect entries and some Toolbars that run macro code. Is it bettter to have one big Add-Ins template, or to separate the functions and have different templates for each. Latter seems better and and easier to maintain. Is there a big hit on the resource usage, or other reasons to consolidate into fewer or just one template? Thanks, Ridge Tag: retain page numbers when appending files Tag: 84934
  - 16
    - Read-only access to Word document in WebBrowser I am trying to use the WebBrowser control in VC++/MFC application to view MS Word documents by calling Navigate(m_sDocFile, NULL, NULL, NULL, NULL); I want the document to be in read-only mode when it is viewed in the control. I am trying to use the the DocumentComplete event to get the default IDispatch interface pointer for the hosted document object but that is where I get stuck as I have no idea which Word interface I can query to access and set that property. Thanks Alexei void CWebBrowserTestDlg::DocumentCompleteExplorer1(LPDISPATCH pDisp, VARIANT* URL) { HRESULT hr = S_OK; IWebBrowser2* pWB = NULL; hr = pDisp->QueryInterface(IID_IWebBrowser2, reinterpret_cast<void**>(&pWB)); IDispatch* pDocDisp = NULL; // get the default IDispatch interface pointer // for the hosted document object hr = pWB->get_Document(&pDocDisp); if (pDocDisp) { VARIANT v; VariantInit(&v); I????????* pDoc = NULL; // Which Interface should I use here??? hr = pDocDisp->QueryInterface(IID_????????, reinterpret_cast<void **>(&pDoc)); if (pDoc) { // do stuff } Tag: retain page numbers when appending files Tag: 84929
  - 17
    - Help me banish Web toolbar, please! In my Word 2002 (XP) Normal.dot, I have the following code to banish the Web and Reviewing toolbars. Unfortunately, they are not obeying! If I have a document already open and open another one using a hyperlink, I am likely to get the Web bar. Can I tweak this to stop it? Ed Sub AutoExec() With Application.CommandBars("Reviewing") .Enabled = False .Visible = False End With With Application.CommandBars("Web") .Enabled = False .Visible = False End With Application.OnTime _ When:=Now + TimeValue("00:00:02"), _ Name:="RemoveBar", Tolerance:=3 End Sub Sub RemoveBar() With Application.CommandBars("Reviewing") .Enabled = False .Visible = False End With With Application.CommandBars("Web") .Enabled = False .Visible = False End With End Sub Tag: retain page numbers when appending files Tag: 84927
  - 18
    - Print document without comments by default I use Word to take notes in my college classes, and I sometimes insert comments during class to remind myself that I missed a point or that I had a question about something. When I print my notes, though, I'd prefer not to print the comments (especially since it then shrinks the entire document and makes it harder to read, but also because I don't need to see them on printed versions). I know how to manually change the option so that it won't print the comments, but is there a way to change the default so that it NEVER tries to print the comments unless I ask? I'd be happy with a macro that does this, but my experience with them is limited and I don't know how to go about doing that. Tag: retain page numbers when appending files Tag: 84925
  - 19
    - Manipulating text through VBA Hello, I have a macro that starts with the following plain text: C:\databasel\bus_re\imanage\admin\19504_1.doc and ends up with this: bus_re\19245_2 I've been able to make it happen through a series of painful moves and deletions. My question is, what is the correct approach when writing code, to eliminate portions of text as in my example? Thank you for any suggestions. Tag: retain page numbers when appending files Tag: 84923
  - 20
    - <Buffer for return string is too small> When I try to refer to the following phrase in my VBA macro in Word 2002: ActiveDocument.MailMerge.DataSource.ConnectString I get the following error: <Buffer for return string is too small> (This MAY be error 9121 and there MAY be a 500-character limit to the buffer.) Any suggestions as to how this "showstopper" error might be solved? Thank you! Tag: retain page numbers when appending files Tag: 84922
  - 21
    - RPS Server unavailable Hi All, i am trying to add a document using the Microsoft.Office.Interop.Word.dll, some times it throws the following error "The RPC Server is Unavailable". can any one help me out why this error comes. i have spent a lot of time on this. it would be great helpful. Thanks -- ravib Tag: retain page numbers when appending files Tag: 84920
  - 22
    - WordBasic.MailMergePropagateLabel Error Hi all, I have created a macro in MS Word 2003 to merge some date in my document for printing labels. First time my macro works well and merges all the data. But next time when i want execute my macro insted of creating a wizerd , i get an error : No entry found ( Error number 509) "WordBasic.MailMergePropagateLabel" Any help in this regard. Regards, Naveed Anwar. Tag: retain page numbers when appending files Tag: 84916
  - 23
    - Bookmark uses original paragraph style Hi all, I have the following code and the selection is in a body text paragraph: Selection.Fields.Add Range:=Selection.Range, Text:= "REF " & parag.Range.Bookmarks(1) & " \h", PreserveFormatting:=False yet when I run the insert the paragraph style changes to that of the paragraph of the bookmark. I would've thought that the Preserver formatting flag would prevent this??? Thanks, R Tag: retain page numbers when appending files Tag: 84915
  - 24
    - set document variable to Wingdings character Hi all Word 2003 on XP Pro. Does anyone know how to set the value of a document variable to a Wingdings 2 character? My existing code is: ActiveDocument.Variables("required").Value = "Yes" I'd like to replace the "Yes" with a tick symbol (character number -4016) from the Wingdings 2 font. Have tried: ActiveDocument.Variables("required").Value = ChrW(-4016) but it gives a box symbol. Is this possible or is there another way? Thanks. Tag: retain page numbers when appending files Tag: 84908
  - 25
    - How Digital Signature work in office. Hi every one, I'd like to know how the digital signature in office 2003 work,I can work with it but I need technical information about the digital signature architecture,I'd like to know how digital signature in word call Crypto API and how work with Crypto Service Provide(CSP). If someone have information about which CSP is uses in digital signature please help me. Best Regards. Orchid -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200604/1 Tag: retain page numbers when appending files Tag: 84907
- Next
  - 1
    - Search & replace whole phrases Hi guys, I have this macro: Sub Duplicates() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "am. " {this is 'am.' plus a space} .Replacement.Text = "amer. " {this is 'amer.' plus a space} .Forward = True .Wrap = wdFindContinue .Format = True .Font.Italic = True .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Unfortunately, it replaces such instances: "bbbbbbbam. " (--> "bbbbbbbamer. ") I want to to replace only instances where "am. " is an independent phrase, not part of other phrases. Regards, Ivaylo Tag: retain page numbers when appending files Tag: 84906
  - 2
    - Add custom toolbar and double click on a button = event handler fired three times Hi, If you add a new toolbar with one button and then you double click on the toolbar button, the Click event of the button is fired three times. Is this a known bug? Is there some sort of workaround? Here is the code to reproduce the behaviour Private toolbar As CommandBar Private WithEvents toolbarButton As CommandBarButton Private Sub Document_New() Set toolbar = CommandBars.Add("Test", 1, missing, True) Set toolbarButton = toolbar.Controls.Add(1) toolbarButton.Style = msoButtonCaption toolbarButton.Caption = "Click me" toolbarButton.Tag = "something unique" toolbar.Visible = True End Sub Private Sub toolbarButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) Call Selection.Range.InsertAfter("Button clicked " & DateTime.Time$) Call Selection.Range.InsertParagraphAfter End Sub Thank you in advance Angelos Tag: retain page numbers when appending files Tag: 84903
  - 3
    - How to generate _Ref autonumber? Hi, I'm adding references to a document and would like to generate (to keep it consistent with what word creates) the _Ref autonumber. Does anybody know if it's accessible through any functions etc.? Thanks, R. Tag: retain page numbers when appending files Tag: 84899
  - 4
    - Merge fields for quotation template Our company database sends information to a word document using merge fields which can then be used in templates. I want to create a quote template - there can be up to 12 lines for pricing however I only want to insert the extra rows if they are used. How can I do this? Tag: retain page numbers when appending files Tag: 84888
  - 5
    - Create Document I am trying to create a document with specific feilds that cannot be moved or changed but has fields next to those to fill in. I need to be able to send out for clients to fill in and send back. Like a Data Entry form where you tab through and fill in the blanks without movings the question fields. I know this can be done and am getting a headache trying to figure this out. Someone please help! Tag: retain page numbers when appending files Tag: 84887
  - 6
    - trying to use "Load a ListBox from a Named Range in Excel using DAO" Usinng word2k, Win 2k I found this Code on the mvp website. It looks pretty straight forward. When i tried to run it I get a "runtime errror 3011" Microsoft jet database engine could not find object 'myobj' make sure the object exists and that you spell its name correctly and the path name correctly. I have double checked the spelling a path to the "named range i am trying to load. I have verifed the reference to dao 3.6 object library, Thks for any suggestions. BRC Tag: retain page numbers when appending files Tag: 84881
  - 7
    - How do I change/edit default Word Template? I'd like to change my default word settings so when I start typing on a new line autocorrect doesn't automatically capitalize my first word. I know it is easy enough to adjust the autocorrect settings after it happens the initial time you begin the new document, but it is a hassle to do that every time... An suggestions Tag: retain page numbers when appending files Tag: 84878
  - 8
    - Word 2003 AND Calling Outlook 2003 We have several templates with a VB fill-in form that eventually gets send via email. We just are moving to Outlook 2003 from Groupwise and receive the message "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? When have to check the check box and select YES for access. We want users to not have to receive this message. We still have several users utilizing Groupwise so we can't attach the Outlook Reference library. Here is the code we were using below. We also want people at home to be able to utilize these forms and they might not have outlook. Any suggestions without receiving the prompt above. Sub OutLK() Dim objOL As Object Dim objLO As Object Dim objMessage As Object On Error GoTo ErrorHandle Set objOL = CreateObject("outlook.application") Set objLO = objOL.CreateItem(0) objLO.Display With objLO .Subject = strSubject .Recipients.Add strRecip 'emails correct recipient .Body = strBody .attachments.Add (ActiveDocument.FullName) .Send End With Exit Sub Exit_errorHandle: Exit Sub 'handles error sending email ErrorHandle: MsgBox Err.Description & Err.Number MsgBox "Email Malfunction, please contact the Help Desk.", vbOKOnly Resume Exit_errorHandle End Sub Tag: retain page numbers when appending files Tag: 84862
  - 9
    - Macro to change fonts in Microsoft Word I want to creat a macro that can run through a document changing font sizes and attributes. Eg if it is Times New Roman 12 change it to Arial 10, if it is TNR 14 change it to Arial 12. Any thoughts? Posted Via Usenet.com Premium Usenet Newsgroup Services ---------------------------------------------------------- ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY ** ---------------------------------------------------------- http://www.usenet.com Tag: retain page numbers when appending files Tag: 84859
  - 10
    - You should be able to create a shortcut for Paste Special in Word In Word 2000 you could at least create a keyboard short cut or a macro (and assign a keyboard shortcut to it) to use to Paste Special/Unformatted text. In Word 2003, not only can you not create a shortcut, but the same macro won't work. And putting it on a menu bar doesn't work consistently either. ---------------- 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=cd1b471d-c3cd-4f5d-aa8a-90f476585b1a&dg=microsoft.public.word.vba.general Tag: retain page numbers when appending files Tag: 84857
  - 11
    - Inserting text gathered from InputBox Hi, I'm using Word 03. I'm missing something here, but I want to insert the text obtained from the user responding to the InputBox, here's what I have: Sub newtest() Dim Message, Title, Default Dim MyValue As String Selection.TypeParagraph Selection.TypeText ("BLACKLINE OF ") Message = "Blackline of " Title = "Blackline Footer" Default = "1" MyValue = InputBox(Message, Title, Default) ActiveDocument.Content.InsertAfter ("MyValue") 'does not work End Sub Thanks for any advice. Tag: retain page numbers when appending files Tag: 84856
  - 12
    - Suggestions for deployment I work in a small office enviroment. Being that it's small, when someone is absent, others sometimes have to finish reports for that person. We run into permission problems with documents. (.doc) In particular, I have written some code that reads information for a floppy and inserts that data into a document with formfields. No problems so far. The report is printed immediately and the doc is never saved. So if it gets opened as read only, there's no problem. In my searching of the forums, the best answer seems to be, to this is a template, instead of a document. That's no problem. I can correct that easily. However, all that data is collected in another document for a monthly report. As the infomation is pulled and inserted from the floppy, I also insert it into a word table that is the monthly report doc file. This one is where I have trouble. Since someone else could be processing the report other than the original user, the macro always stops and asks the user to change the name because Word opens it as a read only. Since we get floppies all during the month, changing the name could result in multiple copies and lost info. (Not all of the employees are computer savy either in knowing the difference in templates and documents) My thoughts on this are to write the data to a text file, and then when the monthly report is due, open a template and insert from the text file. Would I have the same problem with the text file? (Or INI file) Exporting to Excel or Access seems a bit overkill. Are there any better solutions? Tag: retain page numbers when appending files Tag: 84852
  - 13
    - File in document program willnot respond when clicked to open. When I open Word, I go to Documents to open a folder with a few files in it. I click on the folder and the computer locks up with a message that word cannot open the folder. I have to hit "Ctrl,Alt,Delete" to close Word. If I open Word and just click on a file in Documents it will open. This just started to happen this past week. I checked for updates etc. but can't find a solution. Tag: retain page numbers when appending files Tag: 84849
  - 14
    - Place Clipboard Info into Variable I want to place the information contained in the clipboard (which is an integer) into a variable so that I can increment the number and place it somewhere else in my document. How do I do that? -- Debra Ann Tag: retain page numbers when appending files Tag: 84847
  - 15
    - Method ~ of Object ~ Failed. Can anyone help? Hello all, I have written an application in VB6 that opens a word document (a template) and performs "find and replace" on data that i pass in. My application is used by external users who log on to our network via Citrix. A few of the users get the error message "Method ~ of Object ~ Failed" (error number -2147023113). The bit of code that this occurs is below: Do While wrdDoc.Content.Find.Execute( _ FindText:="@" & strReplaceField & "@", _ MatchCase:=False, _ MatchWholeWord:=True, _ ReplaceWith:=strReplacement, _ Replace:=True) Loop As fas as i know, its nothing to do with Printer settings or anything, it just seems to be the Execute statement above. Anybody any ideas as to how i can prevent this? Much appreciated Nev Tag: retain page numbers when appending files Tag: 84838
  - 16
    - how to set the cursor(mouse pointer) at the end of the bookmark? Hi, I am adding a bookmark dynamically in word document using vb.net. All i want is i want to set my cursor position(mouse pointer) at the end of the bookmark text. Here is the code i am using to create bookmark. Dim rng As Object rng.Text = "bookmark1 text" Connect.applicationObject.activedocument.Bookmarks.Add("bookmark1", rng) Any help would be appreciated cheers Praveen Tag: retain page numbers when appending files Tag: 84836
  - 17
    - Change signature layout Hi everyone. I have some vba code to generate a pdf document through word, and add also digital signature. My problem is : how can i change the way the signature layout, it always show the same standard signature image look. I have tryed to change my signature field whit my own logo and so on in acrobat, and named it as signtaure 2, but how can i use that signature field instaed of Acrobat standard signature field. my vba code i this: If gPDDoc.Open(Dest) Then Set jso = gPDDoc.GetJSObject Set oAdd = jso.AddField("FirmaField1", "signature", 0, Array(100, 400, 200, 200)) Set oSign = jso.GetField("FirmaField1") Set ppklite = jso.Security.getHandler("Adobe.PPKLite", True) ppklite.login "", "c:\20.sig" oSign.signatureSign ppklite ppklite.logout End If I have use days for looking on the net for any solution, but cant find anything :( hopes that somone can help :( Tag: retain page numbers when appending files Tag: 84834
  - 18
    - =?Utf-8?Q?=E2=80=9CThis_XML_element_cannot_be_appl?= Hi, Consider a Word Template project, with the template containing a few lines of text and an XML tag around the whole document. During document startup you add a button in the Actions Pane and you listen to the Click event. private void ThisDocument_Startup(object sender, System.EventArgs e) { UserControl1 userControl = new UserControl1(); userControl.button1.Click += new EventHandler(button1_Click); this.ActionsPane.Controls.Add(userControl); } In the event handler for the Click event you add an XML tag around the current selection. void button1_Click(object sender, EventArgs e) { this.Application.Selection.XMLNodes.Add( "ChildElement", "http://tempuri.org/VSTOAddXmlNodeSchema.xsd", ref missing); } The first time you click on the button you will get a COMException exception with the message â??This XML element cannot be applied hereâ?? (you can find complete exception information at the bottom of this message). From then on, every time the button is clicked no exception will be thrown and the code will work. Is there a specific reason behind this behaviour or is it a bug? If it is a bug, is it safe to simply call it the first time expecting it to fail and call it again or will this de-stabilize the environment? For those kind enough to look into this problem, I have created a simple project that reproduces the problem. You can download it here. (my usual file host is down, so I am using an upload service; if the link stops working please do let me know) Thank you in advance Angelos Petropoulos -- http://blogs.wdevs.com/angelos â??This XML element cannot be applied hereâ?? ************** Exception Text ************** System.Runtime.InteropServices.COMException (0x800A17DD): This XML element cannot be applied here. at VSTOAddXmlNode.ThisDocument.AddXmlTag() in C:\Documents and Settings\angelosp\My Documents\Visual Studio 2005\Projects\VSTOAddXmlNode\VSTOAddXmlNode\ThisDocument.cs:line 56 at VSTOAddXmlNode.ThisDocument.button1_Click(Object sender, EventArgs e) in C:\Documents and Settings\angelosp\My Documents\Visual Studio 2005\Projects\VSTOAddXmlNode\VSTOAddXmlNode\ThisDocument.cs:line 26 at System.Windows.Forms.Control.OnClick(EventArgs e) at System.Windows.Forms.Button.OnClick(EventArgs e) at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.ButtonBase.WndProc(Message& m) at System.Windows.Forms.Button.WndProc(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** Loaded Assemblies ************** Tag: retain page numbers when appending files Tag: 84833
  - 19
    - Images never paste in document as "inline" Hi, Word2003. Tools.Options.Edit.PastePicturesAs - Inline with text. I am trying to paste an image from the clipboard into a Word Document via VBA. I have the setting set correctly under tools. It never pastes as inline. After pasting, I always have to explicitly convert to inline shape. Also, because it doesn't paste inline, if I am trying to set the image into a table cell, the convert to inline shape sets the image in the correct row, but always column 1, not column 2. Any ideas of why I cannot paste inline? Two code snippets below. I am running the code from Excel - trying to generate Word reports out of Excel, hence the "wrdapp", "wrddoc", "wrdrange" references: 'Try to paste into row1, col2 wrdDoc.Tables(1).Cell(Row:=1, Column:=2).Range.Select With wrdApp.Selection .InsertAfter "hello" 'make sure selection is in the right column .PasteSpecial Placement:=wdInLine 'still doesn't work End With wrdDoc.Shapes(1).ConvertToInlineShape 'have to convert to inline, placed r1c1 'try to paste into row2, col2 wrdDoc.Tables(1).Cell(Row:=2, Column:=2).Range.Select wrdApp.Selection.PasteSpecial Placement:=wdInLine 'still doesn't work wrdDoc.Shapes(1).ConvertToInlineShape 'try to paste into 1st para Set wrdrange = wrdDoc.Paragraphs.First.Range With wrdDoc.Paragraphs(1).Range .InsertAfter strEvent .Paste 'doesn't paste inline even though default set End With wrdDoc.Shapes(1).ConvertToInlineShape The really strange part is even if i just open a new document, and select paste, the image is not pasted inline. What am I missing? Thanks for your help Tag: retain page numbers when appending files Tag: 84830
  - 20
    - Is there a better way? I am trying to develop a routine that will present user with a list of items which the user can select (1 or more up to about 20). Once the user makes their selection the items will be insert as bullet-ed items into the document. At this stage my most promising idea is to put the items on a userform in textboxes with a check box beside each textbox. if the user checks the checkbox that item will be added to an array. When the user clicks a command button the contents of the array could be inserted into the document. I am wondering if there might be a better (simpler) way to accomplish this. Perhaps grabbing the items from excel table or a access table? any thoughts or suggestions would be appreciated. Thank you in advance BRC Tag: retain page numbers when appending files Tag: 84828
  - 21
    - Field FILENAME update I need the FILENAME field to update automatically when a document is opened (not just when the document is printed) Microsoft declare that they have stopped this happening to improve the speed of opening a document. I have also experimented with Autotext fields with no luck. MS also tell me that the workaround is to write a VBA module (something like activedocument.fields(1).update) which updates the field. This I understand. Overall, I have written a procedure (called UpdateDoc) to help an operator update over a 1000 docs. This procedure embeds the FILENAME field and it would now seem that I also need to add a Document_Open() procedure to the ThisDocument module. Again I have no problem with this. BUT How do I append the Document_Open() procedure AS A PART OF THE OVERALL UpdateDoc PROCEDURE? Thanks for your interest Neil Tag: retain page numbers when appending files Tag: 84824
  - 22
    - what is write protection in a floppy and how do i take it out pleaz help Tag: retain page numbers when appending files Tag: 84822
  - 23
    - Save As won't work I am unable to take a saved document and save it as a new document with another name. Everytime I try the program does not respond. Tag: retain page numbers when appending files Tag: 84817
  - 24
    - Macro to detect Header text in Section 3 of document I need a routine to determine the presence of text in the various "stories" in my document. If text is present, I work on the text. If no text is present, I can skip processing in the story. In particular (and where the below routine seems to fall apart), I want to see if a header contains text. The below works fine if there is header text in Section 1 of the document, but if there is no header text in sections 1 and 2, but there is header text section 3, the routine won't find it. (The MakeHFValid routine is used, although not reprinted, to overcome the problem when a story is blank. Does this code make sense to anyone, and if so, can you tell me why header text in section3 does not return 'positive'? (No even/odd page headers; no firstpage headers, etc. Just plain stuff) Thanks. Ed For Each osection In ActiveDocument.Sections For Each astory In ActiveDocument.StoryRanges MakeHFValid aval = astory.Text atype = astory.StoryType If Len(aval) = 1 Then aval = Asc(aval) End If If astory.StoryType = wdFootnotesStory Then If InStr(InStory, "FNotes") = 0 And aval <> 13 Then InStory= InStory+ "FNotes" ' the "If Instr(InStory,"FNotes") = 0" is just to prevent a second entry of the same thing. ElseIf astory.StoryType = wdEndnotesStory Then If InStr(InStory, "ENotes") = 0 And aval <> 13 Then InStory= InStory+ "ENotes" ElseIf astory.StoryType = wdCommentsStory Then If InStr(InStory, "Comments") = 0 And aval <> 13 Then InStory= InStory+ "Comments" ElseIf astory.StoryType = wdTextFrameStory Then If InStr(InStory, "TextBox") = 0 And aval <> 13 Then InStory= InStory+ "TextBox" ElseIf astory.StoryType = wdEvenPagesHeaderStory Then If InStr(InStory, "EPHead") = 0 And aval <> 13 Then InStory= InStory+ "EPHead" ElseIf astory.StoryType = wdPrimaryHeaderStory Then If InStr(InStory, "Header") = 0 And aval <> 13 Then InStory= InStory+ "Header" ElseIf astory.StoryType = wdEvenPagesFooterStory Then If InStr(InStory, "EPFoot") = 0 And aval <> 13 Then InStory= InStory+ "EPFoot" ElseIf astory.StoryType = wdPrimaryFooterStory Then If InStr(InStory, "Footer") = 0 And aval <> 13 Then InStory= InStory+ "Footer" ElseIf astory.StoryType = wdFirstPageFooterStory Then If InStr(InStory, "FPFoot") = 0 And aval <> 13 Then InStory= InStory+ "FPFoot" ElseIf astory.StoryType = wdFirstPageHeaderStory Then If InStr(InStory, "FPHead") = 0 And aval <> 13 Then InStory= InStory+ "FPHead" End If Next aStory If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdPrintView Else ActiveWindow.View.Type = wdPrintView End If Next oSection Tag: retain page numbers when appending files Tag: 84815
  - 25
    - help with 2 or more lines in text box I want to use a userform to collect data from user for insertion in word document, the first text box should collect the name and address for insertion at top of a letter as an address block. i have set the multiline property to true but how do i enter returns in the text. if i press return it moves focus to next text box. please help Tag: retain page numbers when appending files Tag: 84814

I frequently have to append numerous files together. I'm wondering if
there's a way to retain the page numbers from the original files when I
append them together into one larger file. This doesn't seem to be a problem
unless I'm appending files in which the first file or couple files don't have
page numbers.

For example, if Doc1 has no page number, and Doc2 has pages 1-5, when I try
appending them, I get the single page of Doc1 with no page number, then the
next page (the first page of Doc2) has a page number of 2 instead of 1.

Anyone know of a way I can retain the page numbers as I'm appending?

Thanks.

Top

Re: retain page numbers when appending files by Doug

Doug
Thu Apr 27 15:38:08 CDT 2006

Separate the files with Section Breaks and format the page numbering to
start at 1 in each Section.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Tony Logan" <TonyLogan@discussions.microsoft.com> wrote in message
news:D7C964B4-B451-4B5A-9A21-2CAE03E6D561@microsoft.com...
>I frequently have to append numerous files together. I'm wondering if
> there's a way to retain the page numbers from the original files when I
> append them together into one larger file. This doesn't seem to be a
> problem
> unless I'm appending files in which the first file or couple files don't
> have
> page numbers.
>
> For example, if Doc1 has no page number, and Doc2 has pages 1-5, when I
> try
> appending them, I get the single page of Doc1 with no page number, then
> the
> next page (the first page of Doc2) has a page number of 2 instead of 1.
>
> Anyone know of a way I can retain the page numbers as I'm appending?
>
> Thanks.
>

Top