Headers & Footers

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - documents w/ footers & headers I have about 25 different documents that I want to merge into one. They all have their own headers & footers, but when I just do a select all, copy, paste, the footer gets all weird. It is continuing the counting of pages numbers from the prevoius document, but I don't want that. It is going to be a manual & each chapter should have their own set up numbers. Tag: Headers & Footers Tag: 70065
  - 2
    - How do I get my Word-created web form to export to Excel? I have a form I've created in Word, and saved as a web page. Mailto actions for the Submit button won't work, because the target users don't have Outlook, and from testing, it looks like it simply brings up a blank email without the selected information anyway. The server is not going to be set up to allow SMTP. ASP or Perl are not options either, since Word is the only app I have to work with. Can I configure the form to send all the information to my email without SMTP, or perhaps just shoot it into a designated Excel spreadsheet? Tag: Headers & Footers Tag: 70064
  - 3
    - Remapping hyperlinks I have a Word document that has hyperlinks to a CDROM drive (E drive). Is there a way to change all of them to the C drive? Thanks Tag: Headers & Footers Tag: 70062
  - 4
    - Clear text between specified characters Hello, i am new to Visual Basic and I am trying to make some macros for automated dictionary reversing. What I must do is find all ranges between characters "=" and "\" , and then clear them including ending sign "\". I tried few methods and it always turns out wrong. Can anyone help ? Thanks Tom Tag: Headers & Footers Tag: 70060
  - 5
    - Forms I'm creating a form that will be multiple pages. I would like to find a way that once a person completes their name on page one, that it will auto fill in the additional places for name on the rest of the form. Ideas of how to do this? Tag: Headers & Footers Tag: 70059
  - 6
    - Locate the My Documents folder with VBA I need to save files in "My Documents" regardless of where it is. How can I use vba to locate the "My Documents folder" being used and save the file to it? Thanks in advance Tag: Headers & Footers Tag: 70056
  - 7
    - Word scrolled over text? Can I insert hidden text in a Word document "behind" a visible word or phrase that is hidden and not displayed until the text is scrolled over? It's similar to a web page that has roll over text - move the cursor over highlighted text to see a description. thanks Please respond to bruce.smith@metriscompanies.com Tag: Headers & Footers Tag: 70055
  - 8
    - Word Forms and Macros Question I have created a template form in Word 2002 (XP). In my form there is a table. One of the table's columns contains a checkbox in each row. What I would like to have happen is that when the user checks the checkbox the row that it is in will become highlighted/shaded. I am assuming that I will need to do this with a macro, but I am not sure. If there is an easier way that would be great! I am a macro novice so any assistance would be greatly appreciated. Tag: Headers & Footers Tag: 70049
  - 9
    - Specifying a range within a header Hi all Iâ??m using VB to produce a Word document. Is there a way to specify a Range within a header, or can you only specify the Range that represents everything in the header? The VB editor will now allow me to use: MyDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range(Start:= something, End:= something else) Is there another way? Thanks again David Tag: Headers & Footers Tag: 70044
  - 10
    - 'Select active table where cursor is' command????? Hi Someone gave me this macro recently but I have to change it every time I use it on a different document. Is there a way to get the macro to work on the table where the cursor is no matter where the table is in the document. A type of 'select active table where cursor is' command??? Thanks in advance. Sub RandomPick() ' ' RandomPick Macro Dim i As Long Dim j As Long i = ActiveDocument.Tables(3).Rows.Count ' table 3 Randomize j = Int((i * Rnd) + 1) ActiveDocument.Tables(3).Cell(j, 1).Select ' table 3 End Sub Tag: Headers & Footers Tag: 70043
  - 11
    - How to create pie chart from linked CSV file in Word? Hi, I am trying to create a Word document which should contain a couple of charts (pie, bars, etc.). The source for the charts´ data should be a couple of csv files I have on harddisk. I would like to "link" the csv file to the Word document (or the chart) so I don´t have to do a manual import. Instead the charts should show the data from the current file every time the Word document is opened. So far I have tried to do this with a combination of Excel and Word which does not work for me. Basically the problems are as follows: - when I create the chart in Word only, I can not link it to the CSV file/s - when I create multiple charts in one Excel file, I can use a small VBA script to automatically read the CSV files and adjust the graphs (each char on a differen sheet). Unfortunately I have not found a way to link specific sheets in Excel to specific objects in the Word document so this won´t work either. Anyone have any idea how to do this? Thanks in advance! Regards, Emre -- http://www.emre.de UIN: 561260 PGP Key ID: 0xAFAC77FD I don't see why some people even HAVE cars. -- Calvin Tag: Headers & Footers Tag: 70042
  - 12
    - PDF tool needed I know there are many tools that let you "print" a Word document to a PDF file (for example, CutePDF). The problem is that all these tools that I have seen require user input to specify the output file name and possibly output options as well. THis makes it impossible to completely automate the process from VBA code. Does anyone know of a PDF "printer" that can operate with no user input, completely under VBA control? The only one I have found is PDF Creator but it is $500. Thanks -- Peter Aitken Remove the crap from my email address before using. Tag: Headers & Footers Tag: 70041
  - 13
    - Macros & hyperlinks & buttons does not work into headers ??? please help Hi ! I want symply to put something like a hyperlink or button or .... to go to index, or page 1 ( for example ). Because headers seems 'locked' i think macros, buttons, hyperlinks also are locked Some idea ??? Thanks , Antonio Pérez Tag: Headers & Footers Tag: 70040
  - 14
    - Find text with different font. Hi, I have a word document containg text with diffrent font. I need divide that document into blocks, where each block will have the same font. In other words, when the font is changed then new block should begin. I can do that by getting font of each character, and when font is diffreent, then just make a new block. But this is extremely slow. I takes 30 seconds on document with 2 pages. Do you think there is some faster way of doing this? PS: I'm accessing Word using OLE objects. But this shouldn't be different from VBA. -- Jiri Tag: Headers & Footers Tag: 70038
  - 15
    - How to unlink headers/footers correctly without using ActiveWindow Hey As a start I ran a macro with application visible. From the macro recorder I learned to use the following statement to unlink header/footer: Selection.InsertBreak Type:=wdSectionBreakNextPage ' Cut link between herder/footer on page x and page x+1 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument BUT it didn't work when I changed to run the application invisible :-( In an earlier Q in this NG I was told that the ActiveWindow object only worked correctly when application was visible. I have tried to rewrite the script to the following: Selection.InsertBreak Type:=wdSectionBreakNextPage ' Cut link between herder/footer on page x and page x+1 With ActiveDocument.Sections(ActiveDocument.Sections.Count) .Headers(wdHeaderFooterPrimary).LinkToPrevious = False .Footers(wdHeaderFooterPrimary).LinkToPrevious = False End With As far as I can see it does not work. When I manually enters the header on the new page (doubleclicking on the new header), it is STILL linked to previous page. What am I doing wrong? Ebbe Tag: Headers & Footers Tag: 70036
  - 16
    - How to move cusor after inserting some OLEControlObject to a specified place? hi! I have inserted an OLEControlObject into word document using vba as following Selection.InlineShapes.AddOLEControl(ClsType) No after inserting it I tried to move cursor to the next line after the Control. using Selection.TypeParagraph() it deleted the Control. So what should I do to avoid it. furthermore if i want to move cursor one space after the Control. Thanks in advance. Ahmad Jalil Qarshi Tag: Headers & Footers Tag: 70035
  - 17
    - Connectors In Excel, there is a ConnectorFormat property in Shape object. We did not find such object in Word API. How to get the ConnectorFormat object from shape object? Thanks Tag: Headers & Footers Tag: 70031
  - 18
    - Export filter to convert a word picture to CGM Is there any CGM export filter to convert a picture object in word document to CGM? If its not there, is there any way to convert a picture object in word to CGM. Thanks Tag: Headers & Footers Tag: 70030
  - 19
    - Event to run some code when a VBA template is loaded into Word XP In Word 2003 there is the Document_Open which I have used to load a command bar, etc. when a document is opened with an attached VBA template. I think that I read of an event to accompish the same thing for Word XP but I don't remember and can't find. Is there an event that will allow me to run startup VBA code? THANKS! Tag: Headers & Footers Tag: 70029
  - 20
    - Extract data from word to access? Hello, I am going to recieve about 250 word docs for a land survey project that are all the same format. The document will have 4 main sections, and then inside those, there will be details which will need to be captured (or harvested) and then saved as delimited text (or whatever will work best) for insertion into an access database. The problem is that most (80%) of the word doc is not formatted into any kind of tabular structure, at least from what I can tell. (As a side note - is there a way to check using something like reveal codes, as was in WP)? The only thing in common that each doc file has is that each file has the same keywords preceding the desired data value. MY QUESTION: Is there a way to have a VBA routine go through, and identify (which would be embedded in the VBA routine) keywords, and then based on that keyword, trigger a "copy" to action? There is always a consistent keyword preceding the desired data value. For example, here is a typical sentance (with the desired data value in {}, and the keyword in caps: EXAMPLE 1) That certain tract of land CONTAINING {105.899}acres, more or less... EXAMPLE 2) or another example in tabular format, separated by tabs (but shown here with commas and no separation); 1st line: *Surface,Mineral,Net 2nd line: Owner,*Interest,Interest,Mineral Acres 3rd line: John H. Smith,100%,50%,52.9495 * TO CLARIFY: The words Surface and Interest go together (like Surface Interest), just one on top of each other. Same for the words Mineral and Interest, as well as Net and Mineral Acres. In sum, I just want to know what are the ways that you can go into an existing word doc and extract the data that you need, that's all. I really don't know where to begin asking this, but if there is a better NG than this one, I'd apprieciate your direction on where I should post this. TIA. Phil Tag: Headers & Footers Tag: 70026
  - 21
    - detect if doc is protected Good afternoon, I need to know how I can determine if a document is protected or not using an if/else statement so I can then unprotect it if it was protected. Thank you, Daniel Tag: Headers & Footers Tag: 70023
  - 22
    - Problems with headers/footers Hey! I have a document with some textboxes and graphic elements (shapes) in the header. These shapes is repeated on each page. But I want to insert some other document in the middle of the document and preserve the shapes on both sides of this inserted document. Standing on page 1, I want to insert a page (another document) as page 2. Page 3 should have the same header/footer as page 1. Here is what I am doing and what I see: -------------------------------------------------------------------------------------------------------------------------- Sub InsertDocumentAfterPage() Dim i As Integer '---- Standing on page 1 '---- New page 2 gets the same shapes as page x Selection.InsertBreak Type:=wdSectionBreakNextPage '---- Cutting the link to page 1 ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).LinkToPrevious = False ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False '---- New page 3 gets the same shapes as page 2 Selection.InsertBreak Type:=wdSectionBreakNextPage '---- Cutting the link to page 2 ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).LinkToPrevious = False ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False '---- Trying to delete all shapes in header of page 2 (!!!! but the shapes is removed on ALL pages !!!!) i = ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Headers(wdHeaderFooterPrimary).Shapes.Count While i > 0 ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Headers(wdHeaderFooterPrimary).Shapes(i).Delete i = i - 1 Wend '---- Moving to end of page 2 Selection.MoveLeft Count:=1 '---- Inserting an other document on page 2 Selection.InsertFile FileName:="d:\XALKun\Seelen\EG_X2W\SeelenFakHanbet.doc", _ Range:="", ConfirmConversions:=False, Link:=False, _ Attachment:=False '---- Moving to end of story on page 3 Selection.EndKey Unit:=wdStory End Sub -------------------------------------------------------------------------------------------------------------------------- Can any one tel me what I am doing wrong - Please Ebbe Tag: Headers & Footers Tag: 70010
  - 23
    - Formula help? I want to have the document set up so that when I type a name or word in place in side the document/letter, that name will be instantaneously entered or equaled somewhere else in the document in place that I specify. Sort like in Excel, where I can have one cell equal another cell. Whatever I type in one cell, after I press the enter key or click outside the cell, the cell that is equal to it, automatically updates with the information. I hope I described well enough what I am looking for, if not please ask for specifics. Thank you in advance, Mike -- Top Notch Admin Tag: Headers & Footers Tag: 70009
  - 24
    - HELP - Connecting to ADODB Datasource for a MaiMerge Hello, I am trying to make a connection to a datasource that is an ADODB Recordset in VB 6. I have been trying with no success. I have found half answers on how to connect to .txt and .xls. datasources but nothing on a recordset. I have an ADODB Recordset that is created from a query executed from a user. I need to take that query result and then mail merge it with a word document. Does anyone know how to do this to help me out? Is this even possible? Thanks Nick Tag: Headers & Footers Tag: 70008
  - 25
    - mailmerge word 2003 I have an application (vfp) with a lot of letters being produced in Word using mail merge. The application works great for all versions of Word 97-2002 without Word being visible or any action by the user. Tried to run the same routine on Word 2003 and it brings up a prompt dialog wanting to know the name of the merged file. Once they name the file it runs fine. Anyone know why this prompt is occurring in word 2003? Thanks, Kevin Tag: Headers & Footers Tag: 70007
- Next
  - 1
    - Can I make a template like this? We are using a very old DOS-based input program. The narrative portion of the input form is very user-unfriendly, so most operators create their narratives in Word, then paste into the input program. Unfortunately, most Normal templates default to either Arial or Times New Roman, which are proportional-spaced fonts, and the input program uses a mono-spaced font (similar to Courier). It also does not recognize tabs or tables. The operators create these nice-looking charts and tables in Word using spaces and tabs - and they get all screwed up when they're pasted in. The QA operators then have to spend much time reformatting everything. I was thinking of trying to create a Word template for the operators that would reject any font except Courier, and reject all tabs. Is this possible? Ed Tag: Headers & Footers Tag: 70006
  - 2
    - compare and highlight differences Okay, I have two tables of contents in two separate files. A few of the entries in them may be repeats. I need to, from one of the files, run a macro that will look through every entry of that file's TOC, then compare each to the TOC of the other file (preference would be a dialogue way to point to the other file to use, but could also type into a dialogue, and worst case, can go into the macro and type in the path for each use...but would prefer to avoid having to go into macros, as others might be asked to use this who are less proficient), and finally highlight on the original file any that are found in the other file. Matches would be exact matches for the entire string except page numbers on each file would be different. Thx for any code assistance. -- Boris Tag: Headers & Footers Tag: 70004
  - 3
    - Creating menu option for macro Hello all, I've written a macro that I would like to have available to every computer in the office, but I'm wondering if there's a quick easy way for my coworkers to open a file and have it automatically be a part of the toolbar options. Right now, the only way appears to be to import the macro and form from the VB editor. Is there a quick way to create a menu option and install it right away? Thanks in advance and have a great one, Mike Tag: Headers & Footers Tag: 70001
  - 4
    - Document_open won't run if opening from browser to application This is the only case that has produced me this very inconvenient feature. If word document opens inside browser as embedded. Automating works. If word is opened and then file open is executed works fine and if .doc is douple clicked in windows explorer works fine but if word document is opened from browser, so that it actually gets opened in real word not in plug-in I cannot get Document_open() to run... Is there any way to get it work??? Tag: Headers & Footers Tag: 69996
  - 5
    - How to export a picture in word to CGM? Is there any filter to convert a picture in word document to CGM file. Tag: Headers & Footers Tag: 69992
  - 6
    - problem with sink event in word hi, i have made a COM Add-in which overrides the default behaviour of some menu items like save, print etc in the main menu. i am able to sink event of these particular menu items and i am also able to run my code in place of the default methods. but the problem is that after executing my code, the default code is also being executed which is making my code useless. how can i get around this problem? is there any way for disabling the default handlers for the intended menu items. Any help will be deeply appreciated . with regards, miany Tag: Headers & Footers Tag: 69991
  - 7
    - Macro for Outlook Hi I'd like to incorporate a small .exe within the Outlook interface. I guess I need a macro. Problem is I still can't write them. Could sm kindly give me a few lines to execute an .exe, the address of which is C:\Program Files\nicknameXP.exe I'm pretty sure I can incorporate the macro and put it into a menu once I have it. Thanks in advance. Dave Neve Tag: Headers & Footers Tag: 69990
  - 8
    - Word Input Dialogue boxes I am trying to create a word template where Dialogue boxes appear when a user opens the template that ask questions, e.g. Enter Name, Enter Address and so forth. Once the questions cycle through and the user reaches the end of them, the information is then presented at various points in the document. For example, if I created an application form, the form details would already be contained within the document, but the user would need to ask questions that open up in a dialogue box before the fields were populated. I have seen this before but have no idea how to duplicate it. Tag: Headers & Footers Tag: 69988
  - 9
    - automating document management Brief (hopefully) question here. Thanks in advance. My goal is to write a macro that will, after having opened a series of documents within Word, allow me to do certain actions on them (proof-reading, printing, etc. - all to be done manually) and then, upon closing, automatically save them to a different folder (on the network) while deleting them from their original local folder. In effect, therefore, part of the process of closing the document will be to move it to a new location on a network server. I've worked out virtually all of this, but I cannot seem to delete the file from it's original location. I believe that this is because, even after saving it under a new name (actually, same name but different location), there is still a tilde-preceded reference to the file in the original folder, thus seemingly indicating that the original file is open. As such, I cannot delete it until I've closed it (but once it's closed the macro that I wish to delete it will no longer be running and thus the process won't be done seamlessly and automatically. Hopefully, I'm making myself clear. Any ideas? Tag: Headers & Footers Tag: 69982
  - 10
    - Clear last item copied to the clipboard Hi, In searching past questions/answers, I did find this line of code to deal with clearing the clipboard, but it doesn't seem to work. Ideally, I want to clear just the last item copied to the clipboard. Any ideas? I'm using Word XP and 2003. Thanks much! CommandBars("Clipboard").Controls("Clear Clipboard").Execute in English version of Office2000. Tag: Headers & Footers Tag: 69981
  - 11
    - adding a page number to a header I want to add a page number to the end of the first line of a header. When I do so manually using the normal Header and Footer dialog box in Word (2003), it works just fine. When I use VBA, it seems to insert the page number into a text box or some other similar shape, which throws of the appearance of the line. The code I'm using is: Selection.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberRight This document is multiple sections (chapters), each with its own header(s). Any suggestions for inserting the page number without the text box? Thanks, Bert Tag: Headers & Footers Tag: 69976
  - 12
    - Registry via VBA I need to create a registry entry that is available in VBA no matter which user runs the application. Is there an easy way to do that? Easy or not can you tell me how? THANKS! Tag: Headers & Footers Tag: 69974
  - 13
    - instruction for opening a file with VBA i am a newby and i can't find the syntax, any help ? dim MyFile as string MyFile = "c:\MyDir\MyDoc.doc" open (MyFile, etc...) (it does not work as such...) Where is the error ? (I have no help file installed yet) Thank you Troubadour Tag: Headers & Footers Tag: 69966
  - 14
    - macro for PasteSpecial Unformatted I've tried to create a macro for paste-special -- unformatted. I used the "record new macro" option, but this is what my macro looks like. What do I need to put instead of "(wdPasteDefault)"? Sub UnformattedPaste() ' ' UnformattedPaste Macro ' Selection.PasteAndFormat (wdPasteDefault) End Sub -- Thanks, Beth Tag: Headers & Footers Tag: 69965
  - 15
    - Visual Basic outputs into new blank document I saw this macro in another answer. What if I want this macro to list the bookmarks in a new blank doc instead of printing it out? What would I need to change the ".printout" to? Thanks, Beth "Jean-Guy Marcil" wrote: > CMK was telling us: > CMK nous racontait que : > > > I have created 30 or so documents with at least 75 bookmarks in each. > > Is there any way I can export a bookmark list (TXT) from each > > document? I need to compare bookmarks between documents and I'm > > hoping that I don't have to type them all out. > > You could try a little macro like this one: > > '_______________________________________ > Sub TypeOutBookmarkList() > > Dim MyBkmk As Bookmark > Dim MyList As String > Dim DocList As Document > Dim CurDocName As String > > With ActiveDocument > If .Bookmarks.Count = 0 Then > MsgBox "There are no bookmarks in this document." > Exit Sub > End If > > For Each MyBkmk In .Bookmarks > MyList = MyList & MyBkmk.Name & Chr(13) > Next > > CurDocName = .Name > End With > > Set DocList = Documents.Add > > With DocList > .Range.Text = "Here is the list of bookmarks in " _ > & CurDocName & ":" & Chr(13) & Chr(13) & MyList > .PrintOut > .Close wdDoNotSaveChanges > End With > End Sub > '_______________________________________ > > -- > Salut! > _______________________________________ > Jean-Guy Marcil - Word MVP Tag: Headers & Footers Tag: 69956
  - 16
    - How to get progress percentage in quicksort? I would like to indicate the progress of my quicksort. I understand that, per iteration, progress can be calculated by using something like this: myRange = iUpper - iLower + 1 Progress = Round((myRange * Log(myRange))/3) + (myRange/3) ...but I can't get any sensible values from it, I am sure I am missing something major, and I confess my mathematical abilities are not up to the task. Can anyone help me to understand what I should be doing? My quicksort takes a public 2 dimensional (x,y) array and sorts just on the y part. The array is called FA, and varies in size, but here is how to call my code assuming FA has 1000 records (0-999): Call QuickSortFA(0, 999) Here is my quicksort code: Public Sub QuickSortFA(Optional iLower As Integer, Optional iUpper As Integer) Dim iLowerValue As Integer Dim iUpperValue As Integer Dim vTest As String Dim iMidValue As Integer Dim vTemp As Variant If iLower < iUpper Then iMidValue = Int((iLower + iUpper) / 2) vTest = LCase(FA(1, iMidValue)) iLowerValue = iLower iUpperValue = iUpper Do Do While LCase(FA(1, iLowerValue)) < vTest iLowerValue = iLowerValue + 1 Loop Do While LCase(FA(1, iUpperValue)) > vTest iUpperValue = iUpperValue - 1 Loop If iLowerValue <= iUpperValue Then vTemp = FA(0, iUpperValue) FA(0, iUpperValue) = FA(0, iLowerValue) FA(0, iLowerValue) = vTemp vTemp = FA(1, iUpperValue) FA(1, iUpperValue) = FA(1, iLowerValue) FA(1, iLowerValue) = vTemp iLowerValue = iLowerValue + 1 iUpperValue = iUpperValue - 1 End If Loop Until iLowerValue > iUpperValue If iUpperValue <= iMidValue Then Call QuickSortFA(iLower, iUpperValue) Call QuickSortFA(iLowerValue, iUpper) Else Call QuickSortFA(iLowerValue, iUpper) Call QuickSortFA(iLower, iUpperValue) End If End If End Sub -- Stephenc Tag: Headers & Footers Tag: 69955
  - 17
    - Distributing a VBA project Hi, I have a few questions on deploying a vba project to distributed users. thanks. How can I allow macros and vba to be trusted for certain templates and documents I distribute, so that the enable macro dialog doesnt appear, but not have to allow all macros. How can I programatically set a reference to ADO versions 2.5,2.6,2.7,2.8 depending on what is installed on the client. How can I have a single file with database connection and authentication details , shared by many documents and templates, so thast if the IP of the daatbase server changes I only have to update one file and not a whole set of templates. Tag: Headers & Footers Tag: 69953
  - 18
    - Offline Folder Program Hello, I have a tool (Master Microsoft Word template) which has been written in VBA and contains a number of macros. The tool has a feature, which allows us to save the tool to our local Offline Folders e.g. switches on Offline folders and saves. In Windows 2000/Office 2000, this feature works perfectly - however in Windows XP/Word 2003, we receive no error messages - but it doesn't do anything. In the code we are using the command line feature 'Make A&vailable Offline'. Has this changed in Windows XP or does any one have any examples how we could achieve this in XP/Word 2003 using VBA for Word? Any help would be appreciated. Thanks. Stefan_B. Tag: Headers & Footers Tag: 69949
  - 19
    - Make Available Offline in VBA Hello, I have a macro program which operates currently in a Word 2000/Windows2000 environment. The program allows us to store a copy of our master template as a Offline file e.g. Turns on the function 'Make Available Offline' and stores the individual file in our Offline folders. However we have recently tested it in Windows XP / Word 2003 and the function no longer works. We receieve no error messages and the code believes it's executed sucessfully. The program is running a shell and the execution command ' Tag: Headers & Footers Tag: 69948
  - 20
    - Determining which type of breaks are present on a page? All I need to programmatically determine if a column break is present on a page. I'm familiar with the Breaks object but can't seem to use it to get the type of break. Any help appreciated. Tag: Headers & Footers Tag: 69942
  - 21
    - how to choose programmaticaly the X509 cert to sign a word doc Hi dear all, I would like to choose programmatically in a VBa routine the specific X509 certificate to be used to digitally sign a document, wether it could be located either in a store either in an other location (directory) under a PKS12 file form. Has anyone help about it ? To be clear I want to avoid the prompt of the windows showing the Mystore content and define straight in the routine which certificate or PKS12 object to be used to sign the word File. Regards Herve Tag: Headers & Footers Tag: 69941
  - 22
    - cross references collection & instr problem Hello, Word 2002. I am attempting to loop through the cross references collection, find a match based on some text that I have already captured and insert a cross reference to the item. The code is given below. The instr command does not resolve correctly but using the debug window there should be a value found. Please help. Sub Generic_References(toref$) Dim i%, x% myHeadings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading) x% = 1 For i% = 1 To UBound(myHeadings) If InStr(myHeadings(i%), toref$) <> 0 Then Selection.InsertCrossReference ReferenceType:=wdRefTypeHeading, _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:=i% Selection.TypeText " " Exit For 'once it is found it exits End If Next i End Sub Tag: Headers & Footers Tag: 69940
  - 23
    - Automation Word 2002 - Outlook 2002 Hallo! I would like to run a macro, which is saved in the Outlook file VbaProject.OTM in Modul1, with Automation out of Word. What's the code for this? Set OutAppl = CreateObject("Outlook.Application") ???? The other way round I can start from Outlook a macro, which is saved in any Word-DOT, with this code: Set WordAppl = CreateObject("Word.Application") WordAppl.Run "Projectname.Modulname.Macroname" Unfortunately "Run" does not exist in Outlook. Any help would be wonderfull!!! Thanks! Heike Pertzel / DATA 5 GmbH Tag: Headers & Footers Tag: 69935
  - 24
    - Size limit for item in the Document.Variables collection Is there an upper limit on the size (ie length in bytes) of a string I can insert into a document variable? Thanks, BT Tag: Headers & Footers Tag: 69926
  - 25
    - Macro behaves different when application is visible and when it isn't Hi I have discovered that the behavior of macros is different when Application.Visible = True and it is False. I observed some problems when running the macro. I turned the Application.Visible = True, debugged the code, corrected the errors, ran some tests without debug, but still with Application.Visible = True. As soon I changed Application.Visible = False, the resulting document, the macro generated looked different. How can I see follow thr progress in the document, as I step through statements without having Application.Visible = True? Are there some spicific behavior, that is different when Application.Visible = True and Application.Visible = False (exept that the document is/is not visible)? In my examble I want the next page to have a new set of headers. Standing at end of the document (end of page x) I use the following code: Selection.InsertBreak Type:=wdSectionBreakNextPage ' Cut link between herder/footer on page x and page x+1 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ' Delete all contense in herder of page x+1 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument When Application.Visible = True, I have headers on page x and no headers on page x+1. When Application.Visible = False, I have No headers on page x and no headers on page x+1. It looks like there is a difference in what header/footer I am standing in after inserting a SectionBreakNextPage and then doing a ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader. Ebbe Tag: Headers & Footers Tag: 69923

I need to take two documents that each their own header & footer & merge them
together w/ out disrupting each others headers/footers.

Top

Re: Headers & Footers by Charles

Charles
Wed Jun 22 14:51:07 CDT 2005

see response to your previous post.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"amacow" <amacow@discussions.microsoft.com> wrote in message
news:B937F81F-ABF3-4639-9150-AB3D1F9FB6E4@microsoft.com...
>I need to take two documents that each their own header & footer & merge
>them
> together w/ out disrupting each others headers/footers.

Top