Split large documents

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Split large documents Tag: 84951
  - 2
    - 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: Split large documents Tag: 84950
  - 3
    - 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: Split large documents Tag: 84945
  - 4
    - 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: Split large documents Tag: 84942
  - 5
    - 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: Split large documents Tag: 84938
  - 6
    - 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: Split large documents Tag: 84936
  - 7
    - 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: Split large documents Tag: 84934
  - 8
    - 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: Split large documents Tag: 84929
  - 9
    - 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: Split large documents Tag: 84927
  - 10
    - 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: Split large documents Tag: 84925
  - 11
    - 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: Split large documents Tag: 84923
  - 12
    - <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: Split large documents Tag: 84922
  - 13
    - 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: Split large documents Tag: 84920
  - 14
    - 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: Split large documents Tag: 84916
  - 15
    - 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: Split large documents Tag: 84915
  - 16
    - 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: Split large documents Tag: 84908
  - 17
    - 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: Split large documents Tag: 84907
  - 18
    - 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: Split large documents Tag: 84906
  - 19
    - 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: Split large documents Tag: 84903
  - 20
    - 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: Split large documents Tag: 84899
  - 21
    - 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: Split large documents Tag: 84888
  - 22
    - 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: Split large documents Tag: 84887
  - 23
    - 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: Split large documents Tag: 84881
  - 24
    - 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: Split large documents Tag: 84878
  - 25
    - 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: Split large documents Tag: 84862
- Next
  - 1
    - 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: Split large documents Tag: 84859
  - 2
    - 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: Split large documents Tag: 84857
  - 3
    - 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: Split large documents Tag: 84856
  - 4
    - 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: Split large documents Tag: 84852
  - 5
    - 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: Split large documents Tag: 84849
  - 6
    - 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: Split large documents Tag: 84847
  - 7
    - 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: Split large documents Tag: 84838
  - 8
    - 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: Split large documents Tag: 84836
  - 9
    - 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: Split large documents Tag: 84834
  - 10
    - =?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: Split large documents Tag: 84833
  - 11
    - 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: Split large documents Tag: 84830
  - 12
    - 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: Split large documents Tag: 84828
  - 13
    - 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: Split large documents Tag: 84824
  - 14
    - what is write protection in a floppy and how do i take it out pleaz help Tag: Split large documents Tag: 84822
  - 15
    - 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: Split large documents Tag: 84817
  - 16
    - 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: Split large documents Tag: 84815
  - 17
    - 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: Split large documents Tag: 84814
  - 18
    - Delete character and prior letter Hello all. I have one of those keylogger programs that records emails being sent. The problem is it records every keystroke, backspace being a keystroke. A backspace is recorded as [backspace]. So I took the file and did an edit/replace to remove backspace], leaving the front [. So conceptually, I was hoping for something that would start at the beginning, find each [ and delete it AND the letter immediately prior to that. So basically it would delete the backspace keystroke, and remove the character deleted by the backspace keystroke. Is this possible? Thanks in advance!! Tag: Split large documents Tag: 84808
  - 19
    - Word VBA Help I need to write a utility (in .net) that will iterate though a word document and extract words with bold formatting. These will go into a database. No problem except I'm not sure about writing the VBA to find bold words in a document. Has anyone done this before? Could you post some sample code? Thanks in advance. Tag: Split large documents Tag: 84786
  - 20
    - word colors How do I add the below??? I opened a new word doc, went to tools - visuall basic editor. Then added the following to module1: ThisDocument.Colors(1) = RGB(100, 200, 200) ThisDocument.Colors(2) = RGB(100, 200, 200) ThisDocument.Colors(55) = RGB(100, 200, 200) ThisDocument.Colors(56) = RGB(100, 200, 200) basically, what I am trying to do is change collors to custom collors every time the document opens. To eliminate the document reverting to standard colors or custom set on that machine. Thanks, Sam Tag: Split large documents Tag: 84775
  - 21
    - table of contents How can you regenerate a complete table of content using code? I have a form in the first page of my document and I dont want the entire doc to be updated. In the second page, I have a table of contents and I want to create a button who will regenerate the table with all the new points add in the document. I've try something like that: Me.Protect (wdNoProtection) Selection.WholeStory Selection.Fields.UpdateSource Me.Protect (wdAllowOnlyFormFields) but first, the first line doesnt work because of the current protection and doesnt want to remove it. And second point, I select the whole document and I just want to select all but the first page. Can you help me please!!!! Thanks Tag: Split large documents Tag: 84774
  - 22
    - Drop down formfield limitation of 25 items in the list Running WORD 2002. I want to use a dropdown list for a date, but the days field would need to have 31 items. Can I increase the limitation on the number of items in a dropdown list? Thanks, Phil Tag: Split large documents Tag: 84773
  - 23
    - Drop-Down list I have a program that pulls up the cross-references for any existing figures in a dropdown box. This program has not problem showing the figures if there are 1 to 8 figures; however, if there are more than eight figures in the document, you don't see them listed. Please let me know why you think this is happening. Thanks, Here is the code: Private Sub UserForm_Initialize() Dim varXRefs As Variant Dim Index As Integer Selection.Fields.Update ' Clear out any previous contents Me.cboFigureNumber.Clear ' Load just the figures into varXRefs varXRefs = ActiveDocument.GetCrossReferenceItems _ (ReferenceType:="Figure") ' Load the ListBox from varXRefs as an array For Index = 1 To UBound(varXRefs) Me.cboFigureNumber.AddItem varXRefs(Index) Next Index ' Test whether the list has any entries and ' set command buttons accordingly If Me.cboFigureNumber.ListCount > 0 Then Me.cboFigureNumber.ListIndex = 0 Me.cmdInsert.Enabled = True Else MsgBox ("There are no figures to cross-reference.") ReferenceFigure.Hide End If End Sub -- Debra Ann Tag: Split large documents Tag: 84771
  - 24
    - How to see macros in Word document without opening this document? How to see a macro code in specific Word document without opening this document? Tag: Split large documents Tag: 84762
  - 25
    - Inserting and sizing a photo with code. win2k, word 2k I am working on a template for a report. In the report we include a different photo in each report. I would like to be able to run a routine that would display the "insertpicture" dialog, and size the user's selection and insert it at a specific place in the document. I am assuming i could use a bookmark to specify where to insert. I am wondering if I should use some kind of place holder in the template to make certain that inserting the pic doesn't disturb the formating in other sections of the report. I have found several discussions about inserting pics but not how to set the size at time of insertion. thanks for any direction on this. BRC Tag: Split large documents Tag: 84760

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

Top

RE: Split large documents by HelmutWeber

HelmutWeber
Thu Apr 27 04:04:01 CDT 2006

Hi,

show us the macro!

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Top

Re: Split large documents by Doug

Doug
Thu Apr 27 15:43:10 CDT 2006

As the pagination in Word, depends upon the active printer, multiple pages
are not a very good basis for splitting a document. Is there some other
distinguishing feature that could be used.

--
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

"MarkN" <MarkN@discussions.microsoft.com> wrote in message
news:19967A37-7272-431E-AB23-FC4722097809@microsoft.com...
>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

Top