How to get page number with VBA in Word ?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - VBA code to get page numbers and print multi section documents! I have a nice word 2000 VBA code to get a single simple document, in one unique section, and print it as a book (double faced paper, 2 pages per paper face, page number scheme 4-1, 2-3, 8-5, 6-7). But when the document has more than 1 section, there is a terrible mistake at printing pages. If the document: - 1st section has 4 pages (numbered 1-4) - 2nd section more 10 pages (numbered 1-10) When printing something like "4,1", it result in some pages, equal to section 1 pages 1 to 4, section 2 page 4 (sort of random like :o) What a hell this kind of stupid feature called "section print" (have a look at "help printing sections") !!! What I asked is: 1) in a single section document, is it possible to make an Index at document 5th page, but showing there "page number = 1" ??? 2) what is the correct / better way to handle/print multi section documents ? Thanks, yours, Daniel, from Brazil Tag: How to get page number with VBA in Word ? Tag: 97723
  - 2
    - Preventing Word from displaying the list of macros I use a ton of short text macros in my work. I really don't need Word to display the list each time I call a macro. Is it posible to prvent Word from doing this? Tag: How to get page number with VBA in Word ? Tag: 97722
  - 3
    - Is it possible to create a protected form which includes an unprot I want to create a form which has an introduction section with some general and protected form fields. Then an unprotected table, which can grow by using the tab function when in the last cell of the table. Finally I want a closing and protected section with room for some standard information. I have tried to introduce section breaks before and after my table. But protecting the form takes effect on the whole form. Any good ideas?? Jorgen Tag: How to get page number with VBA in Word ? Tag: 97717
  - 4
    - Word 2007 and FproSet Hi, I've been using FpropSet.dll to access properties from closed documents, but I lost it and can't find a copy anywhere. Having just upgraded to Word 2007, do I still need FpropSet or can VBA handle this now? And If I do still need FpropSet.dll, where can I get a copy? -- Stephenc Tag: How to get page number with VBA in Word ? Tag: 97715
  - 5
    - Changes in Word2007 object model (Explanation of performance changes (read "degraded") This is a multi-part message in MIME format. ------=_NextPart_000_0011_01C76419.80883A80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Fellow MVP Helmut Weber and I where comparing efficiencies of our macros for deleting duplicate paragraphs from a document. In this discussion (and tests) I have learned that: 1) my macro is considerably faster that his using Word2003. 2) Helmut's is considerably faster than mine using Word2007. 3) Both are considerably faster using Word2003. Assuming Word2007 is a better product than its predecessor, its seems that at the very least both would be faster in Word2007! I am interested if anyone knows of the changes to the object model that would account for degrade in performance using both methods and the flip-flop in the result with my method in Word2003 compared to Word2007. Jezebel or Steve Hudson, I don't remember which, once explained to me how using Do ... Loop Until x Is Nothing was faster than a For Each ... Next x. The results in our tests bare that out in Word2003, but it seems the Do ... Until x Is Nothing method has taken the slow road in Word2007. Here is a sample of results observed using 201 and 801 paragraphs. The first 200/800 paragraphs are unique. The last paragraph (201/801) is a duplicate of the 200/800th paragraph. Word 2003 200 800 My Method 4.375 sec 68.68 sec Helmut's Method 7.48 sec 120.81 sec Word 2007 200 800 My Method 14.42 sec 9.98 sec Helmut's Method 229.56 sec 158.44 sec If you are interested running your own comparisons, here is code for generating the test paragraphs, my code, and Helmut's code. Sub BuildTestParagraphs() Dim oRng As Word.Range Dim i As Long Set oRng = ActiveDocument.Range oRng.Delete For i = 1 To 200 If i = 1 Then oRng.InsertAfter "The quick brown fox jumped over the lazy dog." & vbCr Else oRng.InsertAfter "The quick and extremely agile brown fox" _ & " jumped over " & i & " the lazy dogs." & vbCr End If Next i oRng.InsertAfter "The quick and extremely agile brown fox" _ & " jumped over " & i - 1 & " the lazy dogs." End Sub Sub GregsKillDuplicates() Dim eTime As Single Dim oParRef As Paragraph Dim oParChk As Paragraph eTime = Timer Set oParRef = ActiveDocument.Range.Paragraphs(1) Set oParChk = ActiveDocument.Range.Paragraphs(2) Do Do 'An empty last paragraph may throw an error on the last loop. On Error GoTo Err_Exit If oParRef.Range = oParChk.Range Then oParChk.Range.Delete Else Set oParChk = oParChk.Next End If Loop Until oParChk Is Nothing Set oParRef = oParRef.Next On Error Resume Next Set oParChk = oParRef.Next On Error GoTo 0 Loop Until oParRef Is Nothing Err_Exit: MsgBox Timer - eTime End Sub Sub HelmutsKillParagraphs() 'AKA Makro6x Dim t As Single t = Timer Dim prg1 As Paragraph Dim prg2 As Paragraph For Each prg1 In ActiveDocument.Range.Paragraphs For Each prg2 In ActiveDocument.Range.Paragraphs If prg1.Range.Text = prg2.Range.Text Then If prg1.Range.Start <> prg2.Range.Start Then prg2.Range.Delete End If End If Next Next MsgBox Timer - t End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0011_01C76419.80883A80 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.6000.16414" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>Fellow MVP Helmut Weber and I where comparing efficiencies of our = macros=20 for deleting duplicate paragraphs from a document.</DIV> <DIV> </DIV> <DIV>In this discussion (and tests) I have learned that:  1) my = macro is=20 considerably faster that his using Word2003.  2) Helmut's is = considerably=20 faster than mine using Word2007.  3) Both are considerably faster = using=20 Word2003.</DIV> <DIV> </DIV> <DIV>Assuming Word2007 is a better product than its predecessor, its = seems that=20 at the very least both would be faster in Word2007!  I am = interested if anyone knows of the changes to the object model that = would=20 account for degrade in performance using both methods and=20 the flip-flop in the result with my method in = Word2003 compared=20 to Word2007.</DIV> <DIV> </DIV> <DIV>Jezebel or Steve Hudson, I don't remember which, once explained to = me how=20 using Do ... Loop Until x Is Nothing was faster than a For Each ... Next = x.  The results in our tests bare that out in Word2003, but  = it seems=20 the Do ... Until x Is Nothing method has taken the slow road in = Word2007.</DIV> <DIV> </DIV> <DIV>Here is a sample of results observed using 201 and 801=20 paragraphs.  The first 200/800 paragraphs are = unique.  The=20 last paragraph (201/801) is a duplicate of the 200/800th = paragraph.</DIV> <DIV> </DIV> <DIV>Word = 2003          =20 200           &nbs= p;  =20  800</DIV> <DIV>My = Method          =20 4.375 sec       68.68  = sec  =20 </DIV> <DIV>Helmut's Method   7.48=20 sec         120.81 sec</DIV> <DIV> <DIV>Word = 2007          =20 200           &nbs= p;  =20  800</DIV> <DIV>My = Method          =20 14.42 sec       9.98  = sec  =20 </DIV> <DIV>Helmut's Method   229.56 sec    158.44 = sec</DIV> <DIV> </DIV> <DIV>If you are interested running your own comparisons, here is code = for=20 generating the test paragraphs, my code, and Helmut's code.</DIV> <DIV> </DIV> <DIV>Sub BuildTestParagraphs()<BR>Dim oRng As Word.Range<BR>Dim i As = Long<BR>Set=20 oRng =3D ActiveDocument.Range<BR>oRng.Delete<BR>For i =3D 1 To = 200<BR>  If i =3D=20 1 Then<BR>    oRng.InsertAfter "The quick brown fox = jumped over=20 the lazy dog." & vbCr<BR>  Else<BR>    = oRng.InsertAfter=20 "The quick and extremely agile brown  fox"=20 _<BR>      & " jumped over " & i & = " the=20 lazy dogs." & vbCr<BR>  End If<BR>Next i<BR>oRng.InsertAfter = "The quick=20 and extremely agile brown  fox" _<BR>      = & "=20 jumped over " & i - 1 & " the lazy dogs."<BR>End Sub</DIV> <DIV> </DIV> <DIV>Sub GregsKillDuplicates()<BR>Dim eTime As Single<BR>Dim oParRef As=20 Paragraph<BR>Dim oParChk As Paragraph<BR>eTime =3D Timer<BR>Set oParRef = =3D=20 ActiveDocument.Range.Paragraphs(1)<BR>Set oParChk =3D=20 ActiveDocument.Range.Paragraphs(2)<BR>Do<BR>  =20 Do<BR>      'An empty last paragraph may throw = an error=20 on the last loop.<BR>      On Error GoTo=20 Err_Exit<BR>      If oParRef.Range =3D = oParChk.Range=20 Then<BR>        =20 oParChk.Range.Delete<BR>     =20 Else<BR>         Set oParChk =3D = oParChk.Next<BR>      End If<BR>   = Loop Until=20 oParChk Is Nothing<BR>   Set oParRef =3D = oParRef.Next<BR>   On=20 Error Resume Next<BR>   Set oParChk =3D = oParRef.Next<BR>   On=20 Error GoTo 0<BR>Loop Until oParRef Is Nothing<BR>Err_Exit:<BR>MsgBox = Timer -=20 eTime<BR>End Sub<BR></DIV> <DIV>Sub HelmutsKillParagraphs()<BR>'AKA Makro6x<BR>Dim t As Single<BR>t = =3D=20 Timer<BR>Dim prg1 As Paragraph<BR>Dim prg2 As Paragraph<BR>For Each prg1 = In=20 ActiveDocument.Range.Paragraphs<BR>   For Each prg2 In=20 ActiveDocument.Range.Paragraphs<BR>      If=20 prg1.Range.Text =3D prg2.Range.Text=20 Then<BR>         If = prg1.Range.Start=20 <> prg2.Range.Start=20 Then<BR>          &nbsp= ;=20 prg2.Range.Delete<BR>         = End=20 If<BR>      End If<BR>  =20 Next<BR>Next<BR>MsgBox Timer - t<BR>End Sub</DIV><BR>-- <BR>Greg = Maxey/Word=20 MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_0011_01C76419.80883A80-- Tag: How to get page number with VBA in Word ? Tag: 97713
  - 6
    - How can I use "Find (and replace)" to locate an xml tag? Trying to write a macro in Word 2007 to edit .xml files. How can I use "Find" to search for a specific xml tag name? It appears that "Find" ignores the tag names in an xml file when searching. Tag: How to get page number with VBA in Word ? Tag: 97709
  - 7
    - dialog box I have the following macro that when Iâ??m run it I want to save the formfileds as plan text. The problem is when I open the word document from the mainframe application the SaveAs dialog box defaults the file type to â??Docâ?? and I want it to default to â??txtâ??. How can I do this? Dim tempfile Dim oFF As FormFields Set oFF = ActiveDocument.FormFields With Dialogs(wdDialogFileSaveAs) Options.DefaultFilePath(wdDocumentsPath) = "U:\History" .Name = "" If .Display = -1 Then tempfile = .Name Open tempfile For Output As #1 Write #1, oFF(5).Result, oFF(6).Result, oFF(7).Result, _ oFF(8).Result, oFF(9).Result, oFF(10).Result Close #1 End If End With Set oFF = Nothing Tag: How to get page number with VBA in Word ? Tag: 97698
  - 8
    - Delete smart tags automatically Hello, Can someone please provide me a macro I can use for.. If there is a smart tags in the document, to automatically removed them prior to closing or exiting. I'd appreciate any help! Thank you! -- Smile...it is good for you! :) Tag: How to get page number with VBA in Word ? Tag: 97697
  - 9
    - How to autopopulate a word from just 1 letter ? Example: Program the Microsoft Word 2003 to recognize "H" as meaning "Hello" and having it autopopulating "Hello" when writing "H". Very useful when writing very fast whilst listening. Thanks in advance. Tag: How to get page number with VBA in Word ? Tag: 97694
  - 10
    - Closing current instance of Word 2003 Hi, I'm trying to close the current instance of Word 03 without affecting any other open instances. So far I've got ActiveDocument.Close savechanges:=wdSaveChanges but that only closes the document, leaving the application window still open. Obviously I have Word set to the (more or less) equivalent of classic MDI, each instance in its own window. Any help would be appreciated. Thanks and BW, p. Tag: How to get page number with VBA in Word ? Tag: 97690
  - 11
    - How to PUT BACK "Getting Started" I use Microsoft Small Business 2000, I know most people want to get ride of the Task Pane "Getting Started", but I would like to restore this, as I find it useful to mail-merge with an old Microsoft Works database. Can you help? Tag: How to get page number with VBA in Word ? Tag: 97687
  - 12
    - possible to extract doc variable without opening document? hello, i did some search in this group and google, seems with Dsofile.dll the document properties and custom document properties can be accessed without opening the word document, how about doc variables? thanks. - kelie Tag: How to get page number with VBA in Word ? Tag: 97680
  - 13
    - Print PDF from VBA A long shot, maybe: Is there way, maybe using Shell, to print a PDF file from VBA code? Goal: To print all PDFs in a folder *in order* (alpha by filename), in a way that doesn't require opening each one or combining them into a large file(s). Selecting multiple PDF files from an Explorer window and clicking File-> Print does in fact send them to printer, but the print in some bizarre order I can't discover! Can I use VBA's FileSearch property to collect the filenames & then call another macro within that loop that sends each file to the printer, with a DoEvents line (or some equivalent to Background:=False) after each one, so they'll print one at a time? Is this clear? Is there an easier way somewhere? Word 2003, WinXP, Acrobat 6.0 standard. Thanks in advance Mark Tangard Tag: How to get page number with VBA in Word ? Tag: 97679
  - 14
    - How to get the current page number? Hello, friends, Probably this is a trivial question: How to get the current page number of an open document using Microsoft.Office.Interop.Word? I looked up all methods/properties and could not find one that looked like. Thanks a lot. Tag: How to get page number with VBA in Word ? Tag: 97675
  - 15
    - Default formatting for pictures I am sick to death of pasting a screen shot into a Word document, right-clicking on it, selecting format picture, change the size to 3" and aligning it tight to the right. Does anyone have code for applying these changes to the currently selected picture? Thanks in advance! -- Sandi Tag: How to get page number with VBA in Word ? Tag: 97673
  - 16
    - Colour OptionButtons on initialize and change I have a form which is designed to examine data line by line, and reformats the data after a user double checks it for correctness. I want to make it a bit easier for the user to quickly see which options are selected. Is there a universal way to have any change in the form which relates to OptionButtons state being either 'true' or 'false' to trigger a change to .Background for that OptionButton. I've started with a series of _Click() commands and _Initialize(), however I'd like to avoid having to name each function individually. Thanks. Tag: How to get page number with VBA in Word ? Tag: 97671
  - 17
    - Tables/Equations Fields Differences in French and English We have a custom template but seem to be running into issues when it is used on French Windows. It appears that the field added for tables and equations is not the same and is language specific for each SEQ it seems to create. Does anyone know anything about this and how to make it work for both properly? Tag: How to get page number with VBA in Word ? Tag: 97668
  - 18
    - Like to save a Word doc and reattach to application on the fly I am hoping to provide users with a Word doc (attached to a form that is part of a Lotos Notes application) that simply lets people add hyperlink references to files. Once you open the file and make your additions, is there an elegant way to save it and keep the updated information attached to the form? Thank you in advance, Trouver Tag: How to get page number with VBA in Word ? Tag: 97667
  - 19
    - KillDuplicateParas I came across an old post in Google groups for deleted duplicated lines of text in a document. It used a For x = Count method to go through and check the range of one paragraph to the the range of every other paragraph and delete any duplicates. It had two If ... End If blocks. The first check the para range length. If = then the second performed a text comparison. I assume the author thought that it would save time by doing a text comparison only on paras of equal length. The procedure worked as advertised, however with a longer document it took a long time. I created about 800 paragraphs and determined that it was actually much quicker to bypass the the first length check and just do a range comparison on every paragraph. Down from 200 seconds to 75 seconds! Next I remembered an method that Jezebel showed me for stepping through items using the .Next (property or method I am never sure which). I adapted the code as follows and the time taken was down to 3 seconds! Anyway, I just wanted to share this with the group: Sub KillDuplicateParagraphs() Dim SBar As Boolean Dim TrkStatus As Boolean Dim eTime As Single Dim oParRef As Paragraph Dim oParChk As Paragraph eTime = Timer With ActiveDocument TrkStatus = .TrackRevisions .TrackRevisions = False End With With Application SBar = .DisplayStatusBar .DisplayStatusBar = True .ScreenUpdating = False End With Set oParRef = ActiveDocument.Range.Paragraphs(1) Set oParChk = oParRef.Next Do '*** Stet out first if block to delete duplicated empty paragraphs. If Len(oParRef.Range.Text) > 1 Then Do 'An empty last paragraph may throw an error on the last loop. On Error GoTo Err_Exit If oParRef.Range = oParChk.Range Then oParChk.Range.Delete Else Set oParChk = oParChk.Next End If Loop Until oParChk Is Nothing End If '*** Set oParRef = oParRef.Next 'Skip errors. On Error Resume Next Set oParChk = oParRef.Next On Error GoTo 0 Loop Until oParRef Is Nothing Err_Exit: With Application .StatusBar = False .DisplayStatusBar = SBar .ScreenUpdating = True End With ActiveDocument.TrackRevisions = TrkStatus MsgBox "Finished. Elapsed time: " & (Timer - eTime + 86400) Mod 86400 & " seconds." End Sub Tag: How to get page number with VBA in Word ? Tag: 97661
  - 20
    - creation/destruction of our custom command bars for the office ma Hi, I have a problem with creation/destruction of our custom command bars for the office macros ( MS Word) on various combination of OS & Office. Our Solution is based on suggestions from Microsoft support (http://support.microsoft.com/kb/245765) issued for MS Word 2000. Construction of the menu bars isnâ??t the problem though, but proper destruction is. What MS basically suggests is to reopen Normal.dot template (which is where the global menu bars configuration is stored) on AutoExit() then remove our custom menu bars and then save it. Unfortunately this solution does not always work and whatâ??s worst on some combination of OS & Office (ex. Japanese XP + Japanese Office XP) it leads to a crash. This solution from MS was offered for Word 2000, and it does not work on all possible OS and Office combinations. I wish to find a safe way of saving normal.dot template after removing our custom command bars and icons , so that it works on all supported combinations of OS & MS Office. I have implemented the following code during AutoExit() which gives me a crash on Japanese XP SP2 and Office XP combination, as well as on Vista 2007 while exiting word application. AutoExit.bas:- Sub main() On Error Resume Next NormalTemplate.OpenAsDocument Common.RemoveToolbarIcon Common.RemoveMenuItem Documents.Save NoPrompt:=True End Sub Another crash that we find due to the above exit routine , is that the Word 2007 , when opened in Thumbnail view, crashes with our macro. The above crash can also be reproduced by using the code written in mentioned link(http://support.microsoft.com/kb/245765) and made a sample macro (sample.dot) and it also crashed when exiting MS word 2007 in thumbnail view with my sample macro only. Suggestions/Solutions/Sample code is requested ASAP Regards Mangesh Tag: How to get page number with VBA in Word ? Tag: 97659
  - 21
    - Macro shortcut keys? Hi, Does anyone know of any known problems with assigning a shortcut key to a button (macro)? I have tried unsuccessfully to do this, but have done it many times in the past with no problem. I changed the shortcut key several times to no avail. When I return to the menu, it shows the assignment in the 'current keys' listbox. I have removed and reassigned several times to no avail. I'm using Word 2000. Any ideas? Tag: How to get page number with VBA in Word ? Tag: 97658
  - 22
    - Replace strings with hyperlinks I have about 400 word/excel documents and a set of strings that occur in them. Each string needs to be replaced with itself but hyperlinked to a specific URL. The list of strings and their corresponding URLs are available. Is there an easy way to do this programatically? Do I need seperate programs for Word and Excel? Any help is much appreciated. VN Tag: How to get page number with VBA in Word ? Tag: 97655
  - 23
    - Table Macro This may be asking too much but here goes I need a macro to insert a Paragraph Mark at the end of each table cell I have tried looking for examples of code but so far no luck Thanks Al Tag: How to get page number with VBA in Word ? Tag: 97652
  - 24
    - Can't sort data from mailmerge-file before merging Hello, Searching all through the internet, I am out of ideas to how to sort the data in my mailmerge-file. The file is obtained from another program, which outputs a tabulator seperated file for merging. The problem is that it is sorted by the wrong column. The SQL would be something like "SELECT * FROM <filename.doc> (?) ORDER BY deltfnavn ASC", but SQL is not allowed, when the datasource is tabulator seperated. Regards, Tue Tag: How to get page number with VBA in Word ? Tag: 97647
  - 25
    - Clear Style and Formatting In MS word, U clear formatting for the selected text by clicking the "Clear Formatting" from the "Styles and Formatting" box How can I achieve this in VBA activedocument.paragraphs(1). ?? I cant find .clearFormatting Thanks Tag: How to get page number with VBA in Word ? Tag: 97643
- Next
  - 1
    - vba fucntion that valid isbn Hi, Is there any1 who have written function that check if ISBN is valid or not?? Thank you Tag: How to get page number with VBA in Word ? Tag: 97639
  - 2
    - scan a text document and be able to modify it in MS word. You should be able to scan a text document, and have it come up in word as if you had just typed it. This way you could modify it or save it to your computer. ---------------- 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=65df7555-11b7-4971-b608-4ec09f771e45&dg=microsoft.public.word.vba.general Tag: How to get page number with VBA in Word ? Tag: 97638
  - 3
    - Hide or collapse section Hello, I have a form with about 8 sections. Not all section may be used at once so in order not to see it or print it, could I hide it or collapse it until it needs to be used then have the user click on it to open? Example: Thee are three (3) setions for Collateral. Section one is for the main collateral and sections two and three are for additional collateral. If there is only the main and one additional collateral, I do not want the third section of additional collateral to show or print. This will make the form smaller and more user friendly I think. Please let me know if there is an possiblitiy to make this happen. Thanks!! Tag: How to get page number with VBA in Word ? Tag: 97619
  - 4
    - Making a Word doc unprintable There doesn't seem to be a non-programmable way of making a Word doc unprintable. Does anyone know an easy solution? Making a Word doc unprintable? I would appreciate an comments. Thanks! Tag: How to get page number with VBA in Word ? Tag: 97616
  - 5
    - AutoText entries macro Hi. I have 100 words I need to enter in the AutoText database in Word 2003. Can I create a macro instead of entering one by one in the database. I have a macro that i'm using for AutoCorrect (see code below). Can I do something like this for the AutoText? AutoCorrect.Entries.Add Name:= "AL", Value:="Alabama (AL)" ------------------------------------------ Smile...it is good for you! :) Tag: How to get page number with VBA in Word ? Tag: 97613
  - 6
    - macro to send email I have created a form in word that has a button that when you click on it pulls data from the form and puts it in a new email. When you click the button, the word doc jumps around and flashes. Is there any way to stop this? Tag: How to get page number with VBA in Word ? Tag: 97612
  - 7
    - Adding control to the document and focus I dynamically add a control to the active document with "this.Controls.AddControl " which is triggered by the text the user types. After the control appears, the next letter the user types overwrites it with their text. It acts like the control is selected, but the control never has focus (according to it's events/properties), yet their cursor is no longer blinking on the document. Tag: How to get page number with VBA in Word ? Tag: 97611
  - 8
    - Explanation of Automation Error Please The standard VBA InputBox does not provide a means of determining if the user clicked on cancel or just left the input field blank. I put together a UserForm to perform the role of an InputBox that allows me to determine which user action occurred. I basically built a form with a label, a textbox, an OK commandbutton and a Cancel command but. I assigned "Cancel" = True for the Cancel commandbutton. In my code I set the value of the textbox to "**Canceled by user**" if the user clicked the cancel button, clicked Esc, or clicked the close form "X." While perhaps crude, it worked like I expected. Next I thought I might set the value of the .Tag property to "**Canceled by user**" if one of the actions above occurred and set .Tag to "TextBox1.Text" if the OK command button was pressed. This worked also except for when the user closed the form with the "X" button. On that action, the VB Editor returned an: Run Time Error '2147418105(8011007)' Automation Error. The callee (server [not server application]) is not available and dissappared. All connections are invalid. The call may have been executed. After stepping through my code I can "almost" understand why that occurs. However, I don't understand why it occurs when I use .Tag vice .TextBox1.Text Here is my code with both variations. The current arrangement uses .TextBox1.Text. It works as expected. If you change the arrangement and use .Tag, the error occurs on the line: CallInputBox = myFrm.Tag Main Macro: Sub ScratchMacro() Dim myStr As String myStr = CallInputBox("User Name", "What is your name?") If myStr = "**Canceled by user**" Then Exit Sub Else MsgBox myStr End If End Sub Function opens the UserForm: Function CallInputBox(ByRef pTitle As String, ByRef pPrompt As String, _ Optional ByRef pDefualt As String) As String Dim myFrm As myInputBox Set myFrm = New myInputBox myFrm.Caption = pTitle myFrm.Label1 = pPrompt myFrm.TextBox1 = pDefualt myFrm.Show CallInputBox = myFrm.TextBox1.Text 'CallInputBox = myFrm.Tag Unload myFrm Set myFrm = Nothing End Function UserForm code: Private Sub CommandButton1_Click() If Me.TextBox1.Text = vbNullString Then MsgBox "Please enter your name in the text field provided" Me.TextBox1.SetFocus Else Me.Tag = Me.TextBox1.Text Me.Hide End If End Sub Private Sub CommandButton2_Click() Me.TextBox1.Text = "**Canceled by user**" 'Me.Tag = "**Canceled by user**" Me.Hide End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Me.TextBox1.Text = "**Canceled by user**" 'Me.Tag = "**Canceled by user**" End If End Sub If I step through the code and close the Userform with the "x" I can see that the UserForm_QuerryClose Event (and Terminate Event) fires before the Function CallInputBox gets its value. So why does myFrm.TextBox1.Text work when myFrm.Tag throws the error? Also interested in other ideas to streamline or improve on this UserForm idea. Thanks. Tag: How to get page number with VBA in Word ? Tag: 97610
  - 9
    - problem saving HTML/other web formatting in Word 2007 Am having trouble saving an HTML/XML based order page in Office 2007- it changes the formatting! Office 2003 does not however- what's the deal? Tag: How to get page number with VBA in Word ? Tag: 97603
  - 10
    - Saving A multi Page Doc? Hello, I have a 93 page doc. I need to save each page as an individual document. Is there any way to do that without coping and pasting each page? Perhaps with some code? Thanks, Lime Tag: How to get page number with VBA in Word ? Tag: 97600
  - 11
    - Watermark only appears in first section I have a Word document with nine sections. None of the sections are linked because there is specific text in each header. From an Access database, I have code that opens the Word document, replaces a bunch of bookmarks, updates some fields and the table of contents, saves the document, and exits. Now, I have to add a watermark. After spending way too much time coming up with a solution, it turns out that the code only writes the watermark in the first section. So I am looking for any help, advice, tips, code samples, or anything else you can think of that will help me out (and take pity on me, as I am a PowerBuilder developer by trade, acting as a VB/VBA developer as a favor to my boss). Thanks, Glenn Harland Here's the code: wmtext = IIf(IsNull(watermark_text.Value), "", watermark_text.Value) For ctr = 1 To oTemp.Sections.Count For idx = 1 To 3 With oTemp.Sections(ctr).Headers(idx).Shapes.AddTextEffect(powerpluswatermarkobject1, wmtext, "Times New Roman", 1, False, False, 0, 0) .TextEffect.NormalizedHeight = False .Line.Visible = False .Fill.Visible = True .Fill.Solid .Fill.ForeColor.RGB = RGB(192, 192, 192) .Fill.Transparency = 0.5 .Rotation = 315 .LockAspectRatio = True .Height = oWord.InchesToPoints(2.27) .Width = oWord.InchesToPoints(7.95) .WrapFormat.AllowOverlap = True .WrapFormat.Side = wdWrapNone .WrapFormat.Type = 3 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .RelativeVerticalPosition = wdRelativeVerticalPositionMargin .Left = wdShapeCenter .Top = wdShapeCenter End With Next Next Tag: How to get page number with VBA in Word ? Tag: 97599
  - 12
    - How to move normal.dot to 2007 I have a lot of macro's and customisation of the menu and toolbar stored in my normal.dot. How can I move everything to Word 2007? Hans List Tag: How to get page number with VBA in Word ? Tag: 97595
  - 13
    - Word XML This is probably not the right news group, but perhaps someone can help me: Word 2007 docx, part from: document.xml is: </w:t></w:r><w:r><w:rPr><w:b/></w:rPr><w:t>aBC</w:t></w:r><w:r><w:t xml:space="preserve"> Where can I find the meaning of the codes between <>? </w:t> </w:r> <w:r> <w:rPr> <w:b/> </w:rPr> <w:t> etc. Thanks a lot! Hans List Tag: How to get page number with VBA in Word ? Tag: 97592
  - 14
    - VBA Runtime Error 5281 I'm getting a randome Runtime Error #5281 when I run a macro that creates a paragraph style in a document. The error says something like the style I'm trying to create is based on too many styles. The funny thing about this is that if I quit out of Word and load the macro again, it doesn't necessarily happen. I've created 120 style macros. When a user activates a User Form through a command bar, a selection of buttons are available to apply style to text. You highlight the text and then click a button. It checks to see whether the style is already created and if it isn't it creates the style, then applies it to the selected text. It was very odd. It was working fine yesterday. Then, when I created a few more style macros, it suddenly started giving me the error. After closing and opening the project template, it then allowed me to cycle through all the macros with no error. I don't know what is going on. I couldn't even find the error when I checked with Microsoft. Help Tag: How to get page number with VBA in Word ? Tag: 97586
  - 15
    - VBA Runtime Error 5843 I'm kinda a newbie to Word VBA. I generated a macro for removing right, top, bottom borders of a cell frm a table. But when i try to run the macro after modifying the code to run for multiple cells. I gives an error msg Run-Time Error 5843: One of the values passed to this method or property is out of range. With Selection.Cells With .Borders(wdBorderLeft) .LineStyle = wdLineStyleOutset .LineWidth = wdLineWidth075pt ---> Errors out on this line .Color = wdColorAutomatic End With .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleOutset .DefaultBorderLineWidth = wdLineWidth075pt .DefaultBorderColor = wdColorAutomatic End With Any advice on this would help. Thanks. Tag: How to get page number with VBA in Word ? Tag: 97573
  - 16
    - Office Clipboard Format I am copying a range from Excel and pasting it into a Word document. The problem is that sometimes it pastes the clipboard item as a table (the format I want it in) but other times in a tab delinated format. Is there a reason for this? How do I force it to paste as a table? Tag: How to get page number with VBA in Word ? Tag: 97571
  - 17
    - vba newbie question Hi all, I want to create a vba program that allow user to input a num(eg 3) Then the program will add 3 textbox in the form The problem is how I can get the value of these textbox? The easiest way to do that is I create couple of textbox in the form, and hide them When the user enter 3, I just show the first 3 textbox. Also, I can get the text from the textbox, becoz the textbox exist. Is there a better way to do it?? For other language, I can run a string as a line of code. As I know, vba can't.... Dim i as integer for i = 1 to num ( from user) textbox & "i".text = "hihi" <---- I know I cant do it @@ next Sorry for my bad English. I hope u guys understand what I'm saying Thanks Tag: How to get page number with VBA in Word ? Tag: 97570
  - 18
    - Formatting dates? I can't seem to figure out how to make a date come out in a specific format. I parse thorugh a text file sent ot me by someone else. One day the date will be 3/5/07, the next 5 Mar, the next 05 March 2007, etc. I've tried capturing whatever I get into a variable Dim ThisDate as Date, then using Format(ThisDate, "yyyymmdd") to get 20070305 - but it didn't work like I hoped it would. Any suggestions? Ed Tag: How to get page number with VBA in Word ? Tag: 97569
  - 19
    - AutoOpen not Executing When Document Macros Disabled If I answer Enable Macros when opening a document containing macros then both Normal.dot.NewMacros.AutoOpen and then opening document AttachedTemplate.ThisDocument.Document_Open execute. If I answer Disable Macros when opening a document containing macros and VBE is closed Normal.dot.NewMacros.AutoOpen and opening document AttachedTemplate.ThisDocument.Document_Open do not execute. Other Normal.dot and AttachedTemplate.macros execute when invoked. Of course, macros in the opened document do not execute. If I answer Disable Macros when opening a document containing macros and VBE is _open_ Normal.dot.NewMacros.AutoOpen executes, but the opening document AttachedTemplate.ThisDocument.Document_Open does not execute. Other Normal.dot and AttachedTemplate.macros execute when invoked. Of course, macros in the opened document do not execute. In all cases, I start with Word open with no other documents open. Is this behavior expected? How do I cause Normal.dot.NewMacros.AutoOpen and opening document AttachedTemplate.ThisDocument.Document_Open to execute? Word 2003 SP2, Macros security set to Medium, Windows XP SP 2. Tag: How to get page number with VBA in Word ? Tag: 97568
  - 20
    - Selection.Find.Execute Problem I am pulling a number (eg, 3.2.1.1.1.2) from an Excel doct and then trying to locate that position in a Word(2003) doct., and insert some text below that line. The sub works properly the first time through, but fails after that. The cursor ends up at the top of the doct but the Find.execute does not happen after that. Can someone help me with this? Thanks Sub Locate_in_Doct() ' ' Locate_in_Doct Macro ' ' ActiveDocument.Range(0, 0).Select Selection.Find.ClearFormatting With Selection.Find .Text = sExcelTextJ ' Example "3.2.1.1.1.2" (SExcelTextJ is a Public String) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Collapse Direction:=wdCollapseEnd If Selection.IPAtEndOfLine = False Then Selection.EndKey Unit:=wdLine, Extend:=wdMove End If Selection.TypeText Text:=vbCrLf & "Locate Here " & vbCrLf End Sub Tag: How to get page number with VBA in Word ? Tag: 97567
  - 21
    - Word 2003 not allowed to FAX word file through Web Application Hi All, I have developed the Fax Application in ASP.NET, on windows 2003 server and i want to fax the word file. I am using office 2003 for faxing the file. But i not able to fax the doc file. If i use the .txt file than it work but when i use the .doc file than gives error. The code is given below. Imports FAXCOMEXLib Imports System.IO Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim fsc As New FaxServerClass Dim doc As New FaxDocumentClass doc.Body = "c:\TEST.doc" //document body doc.DocumentName = "test.doc" 'FNStr;//document name doc.Priority = FAX_PRIORITY_TYPE_ENUM.fptNORMAL doc.Recipients.Add("9084509299", "Mitesh Patel") doc.ReceiptType = 0 doc.ScheduleType = 0 doc.Sender.Name = "Test Fax" 'FName.Text.Trim(); doc.Sender.TSID = "FAX" doc.AttachFaxToReceipt = True Do_Conn(fsc, doc) End Sub Private Sub Do_Conn(ByVal fsc As FaxServerClass, ByVal doc As FaxDocumentClass) Try fsc.Connect("rangam03") fsc.Connect("rangam03") doc.ConnectedSubmit(fsc) fsc.Disconnect() Catch ex As UnauthorizedAccessException ErrLabel.Text = ex.ToString() Catch eio As IOException ErrLabel.Text = eio.ToString() Catch e As Exception ErrLabel.Text = e.ToString() End Try End Sub End Class Error comes: System.IO.FileNotFoundException: Operation failed. at FAXCOMEXLib.FaxDocumentClass.ConnectedSubmit(FaxServer pFaxServer) at _Default.Do_Conn(FaxServerClass fsc, FaxDocumentClass doc) in D:\Utpal\LinkIt\FAX\Default.aspx.vb:line 31 I am sure that this error is due to the office 2003 so pleas help me in this context Thanks in Advance Mitesh Patel Tag: How to get page number with VBA in Word ? Tag: 97566
  - 22
    - Uploading text file to form Is there an easer way to upload a text file into a form than what I have written below. Some of my forms are rather large. Dim tempfile Dim bk1, bk2, bk3, bk4 ChangeFileOpenDirectory "C:\History\" With Dialogs(wdDialogFileOpen) If .Display = -1 Then Application.DefaultSaveFormat = "Text" tempfile = .Name Open tempfile For Input As #1 Input #1, bk1, bk2, bk3, bk4 Cmd1.Value = bk1 Cmd2.Value = bk2 Text1.Value = bk3 Text2.Value = bk4 Close #1 End If End With Tag: How to get page number with VBA in Word ? Tag: 97562
  - 23
    - Text Form Calculations I have two Date Text forms in a template e.g 01/10/1970 and 07/10/2005. I need to create a box or test form and calculate the difference of these two text e.g 30.5 years. Can this be done? I need help in this one. Tag: How to get page number with VBA in Word ? Tag: 97557
  - 24
    - How you call these task I have a template. In this template when a click this Grey line the document expand. In other words a optional table information is added to the document. If I click the line again the information collapse. (Disappear). How you call this task. Is this a macro? Tag: How to get page number with VBA in Word ? Tag: 97556
  - 25
    - Text Form Field I need to duplicate the information entered in a Text Form Field of a template in differents pages of this document. Do you have any suggestions how this can be done? Tag: How to get page number with VBA in Word ? Tag: 97555

It could be simple, but I can not find how to do it:

I need a code to get the page number of some range object, let me say, I
have a paragraph, and I want to know his location (page number) when printed.

Thanks, yours, Daniel
from Brazil

Top

Re: How to get page number with VBA in Word ? by Jean-Guy

Jean-Guy
Mon Mar 12 10:33:38 CDT 2007

Daniel was telling us:
Daniel nous racontait que :

> It could be simple, but I can not find how to do it:
>
> I need a code to get the page number of some range object, let me
> say, I have a paragraph, and I want to know his location (page
> number) when printed.
>

Did you see the post named : "How to get the current page number?" from 3
days ago?

In VBA you would use the Information property:

MsgBox Selection.Information(wdActiveEndPageNumber)
MsgBox Selection.Information(wdActiveEndAdjustedPageNumber)

where the first one gives you the absolute page count in the document and
the second the page number as defined in the Page Number formatting dialog
(Insert menu > Page Numbers...)

--

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Top