Page numbers, is i possible to count differently in header and foo

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Make Word macro find text in footnotes, headers, etc? Hello, This is a question about a macro in which all the good ideas were offered by Helmut Weber in answer to questions that I posted here in earlier threads. Thanks to Helmut, I have a Word macro that helps fix a problem with WordPerfect 5.1 documents imported into Word 2002 - but so far, the macro works only with the main story in a document - not with the footnotes and headers, etc. Can anyone help with this last part of the problem? Here is the background: When Word 2002 opens a WordPerfect 5.1 document with typographical symbols such as curly quotation marks and em or en dashes, or some non-English alphabetical characters like the "oe" ligature, these symbols are not converted into native Windows characters, but are stored as invisible symbols. Helmut showed me how to devise a macro that replaces these symbols, and the code is at the foot of the message. I found this page has example code for making a find/replace operation work through an entire document, but I have not been able to adapt it to work with the kind of operation in this macro: http://word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm Can anyone help adapt it to the needs of this macro? Many thanks for any advice. Here is the code of the macro that works in the main story: Cut on the dotted line: ----------------------------------------------------------- Sub ChangeWPCharactersToNativeWindowsCharacters Set dlg = Dialogs(wdDialogInsertSymbol) FirstOccasion = True Dim rDcm As Range Dim oChr As Object Dim sFnt As String ' font name Dim iFnt As Integer ' character number ' for the following lines to work correctly, insert a form anywhere ' in the VBA project - simply use Insert/User Form, and then ' press Ctrl-F4 to close the form Dim oDat As DataObject Set oDat = New DataObject Set rDcm = ActiveDocument.Range For Each oChr In rDcm.Characters If Asc(oChr) = 40 Then ' applies to most (or all) decorative fonts? oChr.Select ' If Asc(Selection.Text) <> iAsc Then ' from previous posting would fit in here ' plus select case SendKeys "%f^c{ESC}{ESC}" ' English version dlg.Display iFnt = Dialogs(wdDialogInsertSymbol).charnum oDat.GetFromClipboard sFnt = oDat.GetText ' for determining font name when adding changes ' MsgBox (sFnt) ' Debug.Print sFnt, iFnt ' change for WP TypographicSymbols font only ' fill in more characters later If sFnt = "WP TypographicSymbols" Then If Asc(Selection.Text) <> iFnt Then Select Case iFnt Case 64: Selection.TypeText Text:=Chr$(148) 'closing curly quote Case 65: Selection.TypeText Text:=Chr$(147) 'opening curly quote Case 66: Selection.TypeText Text:=Chr$(45) 'en dash Case 67: Selection.TypeText Text:=Chr$(150) 'em dash End Select End If End If ' change for Multinational Ext font only ' fill in more characters later If sFnt = "Multinational Ext" Then If Asc(Selection.Text) <> iFnt Then Select Case iFnt Case -3951: Selection.TypeText Text:=Chr$(156) 'oe ligature End Select End If End If ' insert changes for other WP fonts here End If Next End Sub --------------------------------------------------------- Many thanks for any help Edward Mendelson Tag: Page numbers, is i possible to count differently in header and foo Tag: 54539
  - 2
    - Adding menu items to a separate menu section on doc template attach Hello all, I just finished the nitty gritty of checking through a doc template for valid bookmark entries. This is working fine. Now I want to add a menu item whenever the doc template is attached (added through Templates and Add-ins) For this, I over rode the subroutine Autoexec and here I tried to create the menu item. I am not able to figure out how to add a new menu section itself. Currently I am trying out like this: Set myMenuBar = CommandBars.ActiveMenuBar Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _ Temporary:=True) newMenu.Caption = "Review" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "Find Invalid Comments" ctrl1.Style = msoButtonCaption Set ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=2) ctrl2.Caption = "Display Review Summary" ctrl2.Style = msoButtonCaption The behaviour is that the menu item "Review" is now appearing after the current menu bar. I want an own separate section for this menu item. (I know, the problem is with using ActiveMenuBar, but any other approach of adding a new MenuBar didn't seem to work for me) Also, I am not able to delete this menu item in the Autoexit subroutine. I am not able to figure out how to use the CommandBar -> Delete method to achieve this. Any pointers for the 2 problems above, anyone? Thanks and regards, Sena Tag: Page numbers, is i possible to count differently in header and foo Tag: 54533
  - 3
    - Hide styles In a specific template in Word 2000 I would like to hide or in another way disable all build-in styles. The users should only be able to use the custom designed styles. Can I do that? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54531
  - 4
    - fields.update in macro does not update TOC My template has a TOC and at the end of my AutoNew macro I have included the statement ActiveDocument.Fields.Update, because the TOC includes some text (headings) that contain text inserted with the AutoNew macro. The problem is that the text apparently is not updated in the TOC. One heading contains the name of a person ("Personal objectives for Peter") - this name is inserted during AutoNew - but the TOC only shows "Personal objectives for ". If I update the fields manually (rightclicking TOC, choosing Update field and Update evreything) the TOC is OK - so I thought the problem might be related to some missing parameter for the ActiveDocument.Fields.Update statement, but I can't see any possible parameters. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54528
  - 5
    - Find text & Replace entire paragraph Hi there, I wonder if anyone out there could help me? I need to do a find & replace text in documents via a macro. The text may appear any number of times in a given doc but its not just *that* text that needs replacing - its the entire paragraph . The pseudo code would look something like this I guess... Find 'Lorem ipsum dolor sit amet' If found select the whole paragraph replace with Null (or delete text) ....But I cant seem to translate this into successful VBA code! Any help greatly appreciated Phil Tag: Page numbers, is i possible to count differently in header and foo Tag: 54524
  - 6
    - highlight all when using Find Hi , How can I highlight all the results of find query when using content/selection.Find. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54523
  - 7
    - Testing for ansi 0145 and ansi 0146 in selection Dear all, 1) I'm looking for a way to test whether the ansi-0145 and/or ansi-0146 (curly quotes ` and ') are present in a selection. Does anyone know a method to tackle this problem? I do know how to evaluate a selection character by character, so that's not the problem. I tried the "asc" function, but that doesn't do the trick. 2) And I also would like to find a way to insert text containing these ansi characters using VBA code. I ask this in the same thread, since I suspect that the solution of both questions may be based on the same principle. Best regards, AndY ^^^^ Tag: Page numbers, is i possible to count differently in header and foo Tag: 54522
  - 8
    - Hide styles In a specific template users should not be able to apply the default styles to the text. I would like to hide the default styles so that only custom styles are visible. I think it can be done in Word XP, but I'm on Word 2000 so I think that I have to use VBA to create a solution. Can it be done? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54519
  - 9
    - Find and Replace crash when installing Office Security Patch kb830349 Hi, I am doing Find and Replace in MS Word from VB Code. It was working fine till I installed Office Patch(kb 830349). There is a piece of code in which I am doing find and replace in my document, actually replacing some text in the document with a link object. The code is as follows '---------------------------------------------------------- Set objRange = letter.Content With objRange.Find .ClearFormatting If Not .Execute(FindText:="[BodyText]") Then Set objRange = Nothing End If End With letter.Fields.Add Range:=objRange, Type:=wdFieldLink, Text:="Word.Document.8 ""c:\\Socrates\\Templates\\Temp\\RTFTemp.rtf"" \a \r" Set objRange = Nothing '---------------------------------------------------------- This piece of code was working fine before the update was installed. After the update install, it gives an error after line: .ClearFormatting "Class does not support Automation or does not support expected interface". After clicking OK, Memory read error occurs and the application terminates and if I am running from VB, then it also closes. Any solution for this will be greatly appreciated Thanks in advance, Manish Katiyar Tag: Page numbers, is i possible to count differently in header and foo Tag: 54516
  - 10
    - StyleRef in following pages Template used Heading 1 style at start of new part of report. Heading 1 has "page break before" so it is always at the top of page. Report part may be one or many pages. I need to create a page header that is -- blank on the page containing a Heading 1 style entry; but on later pages the header is "[heading1 text] continued.." So far as I can see a {StyleRef "Heading 1"} entry will put the [heading text] on every page, but I need to supress it on the first page, and display it (plus the "continued..") on subsequent pages. Any Ideas, please? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54508
  - 11
    - Checking for bookmark How do I get a template to check for a bookmark (or a variable, or text etc) and if it is present, run a userform? Once the userform has been filled in, I want to delete this once user has clicked OK. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54507
  - 12
    - Custom Toolbar within Template I have create a custom toolbar which leave within a Startup Template. When clicked, this toolbar runs the following code which inserts a hyperlink. Sub Hyperlink() Dim fd As FileDialog, displaytext As String 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog (msoFileDialogFilePicker) 'Use a With...End With block to reference the FileDialog object. With fd 'Set the initial path to the Agenda Attachments folder. .InitialFileName = "\\alchemy\data\processes\documents\agenda attachments\" .Title = "Select the File to which you want to create the link" 'Use the Show method to display the File Picker dialog box and return the user's action. 'If the user presses the action button... If .Show = -1 Then displaytext = .SelectedItems(1) While InStr(displaytext, "\") > 0 displaytext = Mid(displaytext, InStr (displaytext, "\") + 1) Wend displaytext = Left(displaytext, Len (displaytext) - 4) ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=.SelectedItems(1), TextToDisplay:=displaytext ' 'If the user presses Cancel... Else End If End With 'Set the object variable to Nothing. Set fd = Nothing End Sub The problem I am now having is that when the document (new doc based on template) is saved, it changes the hyperlink from \\alchemy\data\processes\documents\agenda attachments\(filename) to ..\data\processes\documents\agenda attachments\(filename) so it loses it's link. Any ideas why? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54506
  - 13
    - Removing a custom commandbar Hi, I have added a few custom commandbars in Word, but not matter what I do they keep coming back. I have tried deleting using the Customize window and it deletes until I load Word again. I have also tried deleting via VBA and the same happens. The code I used to create is on a different Doc. Any ideas on how to get shot of them? Thanks Tag: Page numbers, is i possible to count differently in header and foo Tag: 54503
  - 14
    - Trouble installing ADO reference library Trying to install the ADO reference library in Word (2000 to 2003), but there are some problems with this. One of them is that variables can't be declared as ADO objects if this is not installed, causing the error: compile error: User-defined type not defined So this can't work: Public ADOConn As ADODB.Connection I can declare as variant and then do: Set ADOConn = CreateObject("ADODB.Connection") rather than Set ADOConn = New ADODB.Connection But then for some reason ADO doesn't install. I just can't figure this out and wonder what the best way is to approach this. This is my routine that installs ADO: Sub AddADO() 'this has to be in a different module as the module where there is the 'declaration: Public ADOConn As ADODB.Connection, otherwise there will be 'a compile error: User-defined type not defined 'the other option would be to declare ADOConn as variant '------------------------------------------------------------------------ Dim R For Each R In Application.VBE.ActiveVBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '--------------------------------------------------------------------------- - Application.VBE.ActiveVBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: MsgBox "CAN'T RUN THIS CODE" & vbCrLf & vbCrLf & _ "ADO 2.x IS NOT ON THIS COMPUTER" End Sub Thanks for any advice. RBS Tag: Page numbers, is i possible to count differently in header and foo Tag: 54501
  - 15
    - Metafile Problem Word 2003/VB6 The following code places an EMF onto the clipboard and when pasted into a Word 97 or Word 2000 document, displays a yellow square surrounded by a blue border. But in Word 2003 the blue border disappears. Can anybody please explain why? Excuse code (I'm no programmer) The code needs a command button and picturebox on the form and was written in VB6. *************************************************** Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function CreateEnhMetaFile Lib "gdi32" Alias _ "CreateEnhMetaFileA" (ByVal hdcRef As Long, _ ByVal lpFileName As String, lpRect As RECT, _ ByVal lpDescription As String) As Long Private Declare Function CloseEnhMetaFile Lib "gdi32" (ByVal _ hDC As Long) As Long Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long Private Declare Function DeleteEnhMetaFile Lib "gdi32" (ByVal _ hemf As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal _ wFormat As Long, ByVal hMem As Long) As Long Private Declare Function MoveToEx Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, lpPoint As Any) As Long Private Declare Function LineTo Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long) As Long Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal _ wFillType As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, _ ByVal hObject As Long) As Long Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, _ ByVal nWidth As Long, ByVal crColor As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Const FLOODFILLBORDER = 0 Const FLOODFILLSURFACE = 1 Const CF_ENHMETAFILE As Long = 14 Const PS_SOLID = 0 Dim myrect As RECT Private Sub Command1_Click() myrect.Left = 0 myrect.Top = 0 myrect.Right = Picture1.Width myrect.Bottom = Picture1.Height metadc = CreateEnhMetaFile(Picture1.hDC, vbNullString, myrect, metafilename) myPen = SelectObject(metadc, CreatePen(PS_SOLID, 5, 65535)) MoveToEx metadc, 20, 20, ByVal 0& LineTo metadc, (Picture1.Width / 36), 20 LineTo metadc, (Picture1.Width / 36), (Picture1.Height / 36) LineTo metadc, 20, (Picture1.Height / 36) LineTo metadc, 20, 20 fillbrush = SelectObject(metadc, CreateSolidBrush(vbBlue)) x = ExtFloodFill(metadc, 0, 0, 65535, FLOODFILLBORDER) HmetacloseDC = CloseEnhMetaFile(metadc) api_return = OpenClipboard(Picture1.hwnd) If api_return > 0 Then EmptyClipboard SetClipboardData CF_ENHMETAFILE, HmetacloseDC CloseClipboard Else DeleteObject HmetacloseDC End If DeleteEnhMetaFile HmetacloseDC DeleteEnhMetaFile HcopymetaDC End Sub Hope someone can help Demonic Tag: Page numbers, is i possible to count differently in header and foo Tag: 54495
  - 16
    - select text and assign to variable My document has four lines of text. Each line ends with a paragraph mark. How do I select the first line and assign it to string variable sItem1 select the second line and assign it to string variable sItem2 select the third line and assign it to string variable sItem3 select the fourth and assign it to string variable sItem4? I'm new to vba for word 2002 and any pointers in the right direction will be most appreciated. -- Regards, David Tag: Page numbers, is i possible to count differently in header and foo Tag: 54488
  - 17
    - Why won't my switch-language key setting (Ctrl-Shift) work in Word My language switch key key (Shift-Ctrl) has stopped working in Word2002. It works in other apps. I had added a bunch of macros to normal.dot. But even when I removed them, the language-key switcher is still dead in word. Suspected a textbridge add-in (tbrun9.dot), but removing it didn't help. Any ideas? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54480
  - 18
    - Exit a Macro While debugging a macro, there are times I would like to exit the macro at a certain point. Is there a command to do that? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54479
  - 19
    - Paragraph Smasher Macro--to Improve? Hi, I've written a VBA script (for Microsoft Word 2000 on the PC) that highlights the current paragraph, then breaks it up into sentences that are separated by paragraph marks. Now the author can analyze the structure of the writing, and move the sentences around. The script adds double paragraph marks after "." "!" "?" and ";". Afterwards, it also removes the new, unnecessary paragraph marks after "Mr." "Ms." "Mrs." "a.m." and "p.m." However, it doesn't fix other abbreviations. I was wondering if someone can improve this macro. Thanks. Here's the script. - - - Sub Paragraph_Smasher() ' ' Paragraph_Smasher Macro breaks up a paragraph to help you see each sentence ' Select the current Paragraph Selection.StartOf Unit:=wdParagraph Selection.MoveEnd Unit:=wdParagraph ' Put double paragraph marks after periods Do Selection.Find.ClearFormatting ' Use the Find object to search for text. With Selection.Find .Text = ". " ' Use the replacement object to replace text. .Replacement.Text = "~.~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With ' If no more occurrences, exit the loop. If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~.~" .Replacement.Text = "." .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Remove paragraph marks after instances of "Mr." "Ms." Mrs." Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mr.^p^p" .Replacement.Text = "Mr. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Ms.^p^p" .Replacement.Text = "Ms. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mrs.^p^p" .Replacement.Text = "Mrs. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put instances of a.m. and p.m. back together Do Selection.Find.ClearFormatting With Selection.Find .Text = "a.^pm.^p" .Replacement.Text = "a.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "p.^pm.^p" .Replacement.Text = "p.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after exclamation marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "! " .Replacement.Text = "~!~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~!~" .Replacement.Text = "!" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after question marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "? " .Replacement.Text = "~?~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~?~" .Replacement.Text = "?" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after semicolons Do Selection.Find.ClearFormatting With Selection.Find .Text = "; " .Replacement.Text = "~;~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~;~" .Replacement.Text = ";" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop End Sub -- Please delete "ANTI-SPAM" from email address daveg7777777@ANTI-SPAMyahoo.com David Godinger: Go player, student of Mahatma Gandhi, the Buddha, and Dr. Martin King Tag: Page numbers, is i possible to count differently in header and foo Tag: 54477
  - 20
    - Merge many Word documents using a Excel macro I have created a macro that uses an Excel spreadsheet to merge many Excel files together. The spreadsheet has file name and location information. I want to do the same for many Word documants. Currently I have a Word macro that simply creates a new word document then just adds and formats all the required documents. What I want to do is add another tab on the Excel spreadsheet and have all of the file name and location information for the Word documents there and have Excel create the Word document. I have taken some code from another post and it seems to almost work... Dim wrdAPPnew As Word.Application Dim wrdDOCnew As Word.Document Set wrdAPPnew = CreateObject("Word.Application") wrdAPPnew.Visible = True With wrdDOCnew . . . Selection.InsertFile Filename:=currentInsertFileName, Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False . . . End With The "Selection.InsertFile..." command works fine while inside Word but not from within Excel even though I have referenced the "Microsoft Word 10.0 Object Library". When run I get a Run-time error 438, object doesn't support this property or method. Any ideas are appreciated Alan Parekh Tag: Page numbers, is i possible to count differently in header and foo Tag: 54475
  - 21
    - Newbie Question Hey all, I got started with VBA using MS Access. I'm now trying to learn to apply it to Word. At this point, I'm not even sure of what events there are, besides open, close, and new, that I can use to trigger my code. I have no idea how to use form controls, etc. Anyone have any suggestions (and I'm sure you do) of what I could read to get me started? Thanks grep Tag: Page numbers, is i possible to count differently in header and foo Tag: 54457
  - 22
    - Ignore All (spell check) on words with curly quotes In Word 2000 and Word XP, when I check the spelling of a document that contains curly quotes, words that contain an apostrophe are not included in the Ignore All list when I click a misspelled word in the text and select the Ignore All option. (The curly quotes are formed by the AutoFormat As You Type option for replacing "Straight Quotes" with "Smart Quotes"). Example: What was Bwa'ana looking for? In this example, Bwa'ana is considered two words, Bwa and ana. Now if I use only straight quotes, Bwa'ana is considered a single word, which is included in the Ignore All list. So now comes my question: Is there a way to have Word 2000 and XP include words with curly quotes in the middle into the Ignore All list (or in a custom dictionary, for that matter) as a single word? I know I can use a placeholder for the apostrophe and replace it after the spell check, but that can be quite inconvenient when you have lots of those words. TIA from AndY Tag: Page numbers, is i possible to count differently in header and foo Tag: 54456
  - 23
    - Locating specific range points Here's my requirement: I have to find specific text located in various places in a document. Once I identify the location of a spceific character (ASCII 167 in this case), I need to locate the VERY NEXT ")" character. My selected range must start at the 167-char, and end at the ")" char. I then need to replace the text in that range with a hotlink (easy enough to do). What I need to know is: 1) How to identify the absolute character position of the first & last character, and set the RANGE to those values 2) Is there a different way to do that? If so, how? I'm using vB6. thanks!! Tag: Page numbers, is i possible to count differently in header and foo Tag: 54448
  - 24
    - How get page numbers??? Hi!!!!! I need count numbers of pages of a document. How I get this number en VBA or VB.NET? Thanks in advance? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54441
  - 25
    - Document_Open() I have looked through and followed (to the best of my ability) the instructions on the MVP web site regarding having macros run when a document is opened based on a specific template. Let me explain what I need to do: I need a DOS (yes DOS) based application to: 1. Open Word. 2. Launch a template. 3. Run a mail merge macro. 4. Print the results. 5. Close Word. I have accomplished 1 and 2 by envoking Word from a command line using the /t switch to open a new document based on a specific template. I have accomplished 3, 4, and 5 in a macro. The problem is that I can't seem to figure out how to get 3, 4, and 5 to happen automatically when a new document is opened based on the template. I have tried using the Document_Open() procedure. However, I can only get it to work when I open the template, not when a new document is created based on the template. What am I missing? Thank bunches in advance for your help. Gilley Tag: Page numbers, is i possible to count differently in header and foo Tag: 54439
- Next
  - 1
    - Template into the user's Word startup folder, macro name conflict When a template in a startup folder has a macro with the same name as a macro in normal.dot, which one will be executed ? How can I manage to have the macros in the template located in the startup folder detect that macro name conflict exist ? And better, how can a macro in the template remove a macro in normal.dot ? -- francois.piette@overbyte.be Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be Tag: Page numbers, is i possible to count differently in header and foo Tag: 54438
  - 2
    - Word macros template, drop down list, save button Hi all I have a word document template that, using macros, opens up a new document containing mail merge values retrieved from the database. 1 I want to specify (in the document template) the name of the template that the new document opens up in. 2 I want to have a drop down list (in the template toolbar) that lists values from the database. 3 I want a button that automatically saves the document to a folder on the users hard drive. Thanks in advance for any help - greatly appreciated..... Simon Tag: Page numbers, is i possible to count differently in header and foo Tag: 54437
  - 3
    - Multiple Tables and Ranges hi I would like to see vba code code tutorial online to have 3 tables with 3 different ranges so I can address teh cell of each table in each range. I run the macros of course but they do not seem to use this method. Thank you for your help. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54433
  - 4
    - Validation of text of bookmark entries Hello, I am using VBA for Word to validate whether a report Word Doc is fine. For this, I scan through the doc for certain bookmarks. If the bookmarks are not present at all, it is a major problem and I signal error and return. If the bookmarks are present, I would like to read the text soon after the bookmark and check if it is not empty. That is all. But I am not able to do this. Can anyone point me how to do this? Currently the code that I use to scan for the bookmarks is thus: If ActiveDocument.Bookmarks.Exists("bkMark") = False Then bInvalidReport = True strInvalidFields = strInvalidFields + Chr(10) + p_strField + " " Else ' TODO : Check for valid entries for the bookmarks End If For the Checking for valid entries, I have tried the following things, which do not work: Selection.GoTo What:=wdGoToBookmark, Name:="bkMark" If IsEmpty(Selection.Text) then .... This doesn't work because even if there is nothing after the bookmark but blank characters, the bookmark always contains some vague ASCII character. If I try ActiveDocument.Bookmarks.("bkMark").Empty = True .... then it always returns empty for me, indicating a problem with every field. Warm regards, Senapathy Tag: Page numbers, is i possible to count differently in header and foo Tag: 54432
  - 5
    - Saving to Mac text I need, for production reasons, to save from Word 2003 to Western European (Mac)text format. This is possible from the Save As dialogue box but I cannot figure a way of doing it in a macro. If I simply record the macro it records the SAVEAS format:= as straight Windows text, which produces the wrong quote and double-quote symbols on the Mac. The Visual Basic Help is unhelpful on the point as it simply says the formats are listed in the SaveAs menu, and these are useless for the format:= "xxxx" line. I got a listing of filters using the sample FileConverter code but this does not include Western European (Mac). Any suggestions? Tag: Page numbers, is i possible to count differently in header and foo Tag: 54429
  - 6
    - Return the frame anchored to a given paragraph Is there a way in VBA to return the (first/only) frame anchored to a given paragraph? I was hoping the Frame object had an Anchor property like a Shape does. Of course, it doesn't. Is there another way, perhaps by looping through all the frames in the doc to matching one of them with its "anchoree" paragraph? I'm stumped. TIA. -- Mark Tangard "Life is nothing if you're not obsessed." --John Waters Tag: Page numbers, is i possible to count differently in header and foo Tag: 54427
  - 7
    - Changing the attached document I have a situation where I want to change the template (from TemplateA to TemplateB) attached to the active document, and then save and close the document. When I subsequently reopen it, it should be based on the new template (TemplateB) I can do exactly this using Word's menus and all's well. - open the document, then go to Tools|Templates and Add-ins - click Attach and select a different template - Save and Close the document So I want to put the code in TemplateA that emulates using the menu system. I did this: Public Sub ChangeTemplate With ActiveDocument MsgBox "Change template from" & .AttachedTemplate .AttachedTemplate = "C:\MyTemplates\TemplateB.dot" MsgBox "Changed template to TemplateB.dot" .Close saveChanges:=wdSaveChanges End With End Sub Then I create mydoc.doc, based on TemplateA.dot and save it. Then I execute the ChangeTemplate Function. And as soon as I change the .AttachedTemplate property of the ActiveDocument, things get wacky. The code that follows that statement (the MsgBox and Close) don't execute. If I then tell Word to save and close the document, when I reopen the doc, Word immediately asks if I want to save it. If I say yes, it closes the doc. If I say no, it closes the doc. If I cancel, I get an error 4198. Whew! I think I'm screwing VBA's state and clearly I'm messing up the document.. Can anyone help with this function? thanks in advanc, gary Tag: Page numbers, is i possible to count differently in header and foo Tag: 54426
  - 8
    - "trigger macro on exit" for text boxes & radio buttons I have constructed a form that has 8 alternatives: 4 radio buttons (i.e., insert row above or below, or insert column to the right or to the left); & 4 text boxes (i.e., insert (how many) rows above or below, & insert (how many) columns to the rigth or left, And an OK button and a Cancel button. I can't figure out how to set the radio buttons (& the text boxes) so that choosing one radio button (or inserting a 1 or 2 digit number in a text box) will grey out & assign null values (or something like that) to any buttons (or text boxes) that previously contained values. Drop-down form fields have options that allow the user to trigger a macro on exit. I wish that text boxes and radio buttons had such an option, because I would use the "trigger macro on exit" to somehow grey out & assign null values (or something like that) to any buttons (or text boxes) that previously contained values. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54421
  - 9
    - 4609: "String too long" When you try to assign the value of a variable containing more than 255 characters to a FormField object, you will receive the following error: Run-time error '4609': "String too long". I would like to assign the value of a variable more than 255 characters to a FormField object. Are there any solution? Thanks for any help Tag: Page numbers, is i possible to count differently in header and foo Tag: 54415
  - 10
    - Thrown against the wall (Will it stick?) Hi All, This is a bit long winded, so please stay with me. I recently became interested in making the return key funtion to advance between protected formfields. I found KB article 211219 which offered a plausible solution. However, the article specifically state that if other bookmarks or if fillin disabled formfields were used that additional code may be required. Things continued to work reasonably well during testing even after I inserted a few additional bookmarks and a few fillin disabled formfields. The enter key would cause the insertion point to jump to the next form field or if in the last form field, it would jump back to the first formfield. The only clich was that the first field following any fillin disabled field would not be "highlighted." The TAB key will cycle to and highlight each field, the Enter key would cycle each field and and highlight each field expect for fields following a fillin disbled field. I could figure out why these fields wouldn't highlight. I have very limited VBA knowledge, but I tried everything I could think of to reevaluate that field and expand the selection over the field range. Nothing would work. I even created another macro to run on entry to these specific fields and then select it. I was really baffled when the on entry macro had no effect but would work like a charm if ran manually. Finally it dawne on me that it could be a timing issue. I had previosly stashed away a snippet of code for causing a macor to "doze." for a bit. I think it was either Peter Hewett that posted it here earlier. I applied his Declaration statement, the Doze macro and called it in my code below. It appears a simple 1 ms pause was all I needed to identify the current field and select it. Now all formfields are selected and highlighted regardless of their location or the presence of fillin disabled fields. Here is my code. Thrown against the wall for your critical comments or suggestions for improvement. Thanks. Sub EnterKeyMacro() ' Include the following declaration in the Macro module: 'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim myFF, oFrm, oSelBkm Set oFrm = ActiveDocument.FormFields Set oSelBkm = Selection.Bookmarks If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _ Selection.Sections(1).ProtectedForForms = True Then myFF = oSelBkm(1).Name If oFrm(myFF).Name <> oFrm(oFrm.Count).Name Then oFrm(myFF).Next.Select 'I added these three lines. Doze 1 myFF = oSelBkm(1).Name Selection.GoTo What:=wdGoToBookmark, Name:=myFF Else oFrm(1).Select End If Else Selection.TypeText Chr(13) End If End Sub Sub Doze(ByVal lngPeriod As Long) DoEvents Sleep lngPeriod ' Call it in desired location to sleep for 1 second like this: ' Doze 1000 End Sub Tag: Page numbers, is i possible to count differently in header and foo Tag: 54412
  - 11
    - graphic toolbar button What if we want to create a button on the toolbar in Word (97) that will, when the user clicks on it will place a graphic in the document. Is this possible? Thanks again, Beth Mc Tag: Page numbers, is i possible to count differently in header and foo Tag: 54411
  - 12
    - Mail Merge Function Error Hi, Recently I upgraded from Win98/Off97 to WinXP/Off2003 as a result an Access Database App that previously worked fine now fails to run its MailMerge function correctly, and fails with the error "error 4605: this method or property is not available because it is not a mail merge main document". The code appears to execute fine up to the following portion of code, and drops out to err_ShowWord at the .Execute method ********************** ' ' Show the word document ' Sub ShowWord() Dim MyMerge As Object On Error GoTo err_ShowWord oaword.Application.Visible = True Set MyMerge = oaword.ActiveDocument.MailMerge With MyMerge .Execute End With Exit Sub err_ShowWord: MsgBox "Error number " & Err.Number & ": " & Err.Description MsgBox "Word Error! Unable to show Word" End Sub ********************** The Database has been converted to 2003, as has the .dot file in question. I have checked for Security Settings (Macro) and various other anomalies, but have been greeted with no joy. If more snippets of code is required for analysis let me know and I'll paste it in - the app is not huge, only 257 line in total.. Any ideas or sugestions would be greatly appreciated. Regards, Matty. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54408
  - 13
    - Autosave Does anyone know of a way to force word to do an autosave, on a document you have opened. I need to programatically get Word to do an Autosave. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54404
  - 14
    - Best way to import data from word. Hi, I need to build a word doc with fields for user input. The filled docs must then be imported into my corporate db. What do you suggest to use for the word document? Bookmarks, form fields or text controls? I'm able to import from bookmarks and from form fields but I don't know how to refer to the textboxes and comboboxes in a Document from Access VBA. Which collection contains those controls? I like form fields, but they works only when the document is protected and I need to be able also to modify some word paragraphs as needed... Thank you for your help Tag: Page numbers, is i possible to count differently in header and foo Tag: 54403
  - 15
    - Word table column Is there a way to select an entire column in an MS Word table and change it so that its contents are formatted as $3.50 Values in the rows in this column are like 3.5 or 4.26. I need it to work in Word 2000 or above. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54397
  - 16
    - text is in capitals with the caps lock off Does anyone know why sometimes when typing the text is all in uppercase even though the caps lock is off and I can't turn this off. When you then put caps lock on, everything is in lower case. Have tried using format menu>change case, which works only for the highlighted text. It then reverts back to the same old problem once starting to type again. Any help solving this would be appreciated. Thanks. Tag: Page numbers, is i possible to count differently in header and foo Tag: 54396
  - 17
    - Creating a macro in normal.dot from an external program using COM I have an external program that drive Word using COM. It works very well. Now I would like this program to check if a given macro exists and if not, create that macro and assign a keyboard shortcut to call it. I think the problem would be the same as to have a VBA macro doing the same work. I know how to implement a VBA macro from my outside program using COM. So if you know how a mcaro can create a macro, it's OK for me ! -- francois.piette@overbyte.be Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be Tag: Page numbers, is i possible to count differently in header and foo Tag: 54390
  - 18
    - Accessing variable in closed document I use ActiveDocument.Variables("Audit") to store information in documents and this info is put into the variable on open and close of the document. Is there a way of access this variable in a closed document without it being opened first so there is no integrity issue or does it have to be open first. Also is it possible to reset this variable to empty in a closed document. cheers in anticipation Fred Tag: Page numbers, is i possible to count differently in header and foo Tag: 54389
  - 19
    - VB cannot save as DOS-Text hi, I tried using these scripts, but the file cannot be read by Notepad, only in Wordpad. Anything wrong?? ActiveDocument.SaveAs FileName:="C:\MYOBInvoice.txt", FileFormat:= _ wdFormatDOSText, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False Tag: Page numbers, is i possible to count differently in header and foo Tag: 54386
  - 20
    - Spelling and Grammer Options Can anybody tell me how to change following Spelling and Grammer options through VBA Tools-->Options-->Spelling & Grammer click "Settings" Tab under Grammer section 1. Comma required before last list item: always|never|don't check 2. Punctuation required with quotes: inside|outside|don't check 3. Space required between sentences: 1|2|don't check and other Grammer and Style options Thanks in advance Regards Ravi Tag: Page numbers, is i possible to count differently in header and foo Tag: 54379
  - 21
    - Dictionary find Can somebody please tell me if I can get a true or false returned for a serach in the dictionary. I need a function like: IsPresent("Hello")=True IsPresent("fdhkfhdk")=False The CheckSpelling brings up the spelling form which I don't need. All I need is a True if it's present in the dictioanry or False if it isn't. Any help will be greatly appreciated. vince Tag: Page numbers, is i possible to count differently in header and foo Tag: 54375
  - 22
    - Macrobutton problems Several days ago I posted the following message to this group. I received no replies, and I fear that this may be due to the fact that I may have been deemed guilty of cross-posting. And I did post the same message to another group previously, and from there I received this reply: > If there is VBA behind these buttons, it is probably a language > incompatibility. Check this in the appropriate Word VBA newsgroup. -- > Terry Farrell - Word MVP Here, then, is my post: I created a document in Word 2000 (US English version). It begins with a three column table. 38 of its cells contain macrobuttons; they serve as an index. The texts assigned to the buttons are brief. I share this document with a friend who has Word xp (German version) installed on her computer. When she opens the document, seven of the 38 macrobuttons have been disabled, and for the text therein "Anzuzeigende Text" was substituted - meaning something like 'intended text' or 'text meant to be shown.' All other parts of the document appear properly, including the remaining macrobuttons. I have not the slightest idea why this is happening. Any help would be greatly appreciated. Gedeon Tag: Page numbers, is i possible to count differently in header and foo Tag: 54373
  - 23
    - X text box Periodically I copy text in a text box from another program to a Word doc. How do I get the text out of the text box so that the text when formatted is the same as the rest of the document? Any help will be greatly appreciated, Roger Tag: Page numbers, is i possible to count differently in header and foo Tag: 54370
  - 24
    - Linked from Excel to Word- SAVING QUESTION I linked items from an Excel Sheet to a Word Document. These Excel Sheet was used as the source and needs to be used multiple times for different projects. The end result is the word document with all the data from the excel source file. THE PROBLEM is When i finish one project and save as a different file name and start a new project, all the data from the 1st project(Word file) gets changed to the information in the excel source file with the information for the 2nd project. Is there a way for me to save these files without them being changed everytime I start a new project? Besides Locking the links Tag: Page numbers, is i possible to count differently in header and foo Tag: 54368
  - 25
    - howto copy pagesetup Hi all, I need to append contents of one document to another programmatically. I am able to do it using the FormattedText property. But I need to also copy the PageSetup along with the FormattedText. How can I do this? Thanks. -Nikhil Tag: Page numbers, is i possible to count differently in header and foo Tag: 54358

this doucument needs to be counted two ways, by section in the footer for
example
1 of 5

and squentially for the entire volume in the header 1-2-3-4...
is it possible to do this in word.

thank you

Top

Page numbers, is i possible to count differently in header and foo by Greg

Greg
Mon Aug 09 14:15:33 CDT 2004

Tess,

This can be done with a little work. You may find the
following link helpful. See the section on dual numbering.

http://gregmaxey.mvps.org/Page_Numbering.htm
>-----Original Message-----
>this doucument needs to be counted two ways, by section
in the footer for
>example
>1 of 5
>
>and squentially for the entire volume in the header 1-2-3-
4...
>is it possible to do this in word.
>
>thank you
>.
>

Top