How get page numbers???

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: How get page numbers??? Tag: 54439
  - 2
    - 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: How get page numbers??? Tag: 54438
  - 3
    - 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: How get page numbers??? Tag: 54437
  - 4
    - 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: How get page numbers??? Tag: 54433
  - 5
    - 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: How get page numbers??? Tag: 54432
  - 6
    - 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: How get page numbers??? Tag: 54429
  - 7
    - 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: How get page numbers??? Tag: 54427
  - 8
    - 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: How get page numbers??? Tag: 54426
  - 9
    - "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: How get page numbers??? Tag: 54421
  - 10
    - 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: How get page numbers??? Tag: 54415
  - 11
    - 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: How get page numbers??? Tag: 54412
  - 12
    - 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: How get page numbers??? Tag: 54411
  - 13
    - 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: How get page numbers??? Tag: 54408
  - 14
    - 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: How get page numbers??? Tag: 54404
  - 15
    - 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: How get page numbers??? Tag: 54403
  - 16
    - 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: How get page numbers??? Tag: 54397
  - 17
    - 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: How get page numbers??? Tag: 54396
  - 18
    - 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: How get page numbers??? Tag: 54390
  - 19
    - 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: How get page numbers??? Tag: 54389
  - 20
    - 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: How get page numbers??? Tag: 54386
  - 21
    - 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: How get page numbers??? Tag: 54379
  - 22
    - 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: How get page numbers??? Tag: 54375
  - 23
    - 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: How get page numbers??? Tag: 54373
  - 24
    - 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: How get page numbers??? Tag: 54370
  - 25
    - 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: How get page numbers??? Tag: 54368
- Next
  - 1
    - 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: How get page numbers??? Tag: 54358
  - 2
    - Paste Button default option When the paste button is turned on and an item is copied/pasted, the little paste button pops up. Then I can right click on it and choose an option. The "default" option is "keep source formating." Is there a way to make the options always to be set at "match destination formatting"? I know that an item cut and pasted can easily be changed by clicking the paste button and then clicking "match destination formatting," but it would be easier/quicker if somehow I could change the default to "match destination formatting" and thus eliminate the need to ever have to click the paste button and then choose the "match destination" button. Thanks for any help, and I apologize ahead of time if this issue has already been discussed/answered here. Mike from Milwaukee Tag: How get page numbers??? Tag: 54355
  - 3
    - Add word to Dictionary using VBA I use methods CheckSpelling and GetSpellingSuggestions to spelling in my application using Word VBA. But is there way to add word to Dictionary using VBA? I can't find it. Can you advise me? Thanks, Petr Tag: How get page numbers??? Tag: 54349
  - 4
    - Add words to disctionary using VBA I use Word VBA to spellchecking in my application using methods CheckSpelling() GetSpellingSuggestions() But is possible to add words to disctionary using VBA? I can't find it. Or how it solve another way? Thanks, Petr Tag: How get page numbers??? Tag: 54348
  - 5
    - Delete an inlineshape object Hi there. I have a Word template with many image controls in it. The user is supposed to drag-and-drop pictures into these images. Once in a while end-user marks the hole image control, and hit the delete button. In one of my VBA-Macros I try to delete alle inlineshapes in the document, and when I try to delete the one which already has been deleted by the end-user, Word dies. How can I found out that this inlineshape object is already deleted, before I try to do this in VBA. per Tag: How get page numbers??? Tag: 54346
  - 6
    - VBA code that works in Word2K refuses in Word2K3 I am trying to port old code (originally made for Word 97 but working in WOrd 2000) to Word 2003. I'm seeing a few problems here though. when I try to execute the follwing instructions in VBA I get an unknown error (err.number has a value of -2147319779) dim ses as object ses = CreateObject("OracleInProcServer.XOraSession") On the machine (running Win2K SP4) All needed Oracle components are installed to allow this instruction to work fine in Word 2000. Did anyone come across this problem? How can I work around this? Kind regards, Romain Voes Tag: How get page numbers??? Tag: 54345
  - 7
    - COnverting Word table to XMl format Hi all, I need to do the following: * Convert a table in DOC format to XML. This could be done using CALS table format or anything of that sort. What I find impossible to detect, is the number of tabs in the table and the spanning in it. When I try saving a DOC in HTM format, I get something like width=10.67 and so on the HTM file. This cannot be properly represented in XML. I will need markups to determine the spanning and other cell information. Does anybody have a suggestion on how I should go about this? Many thanks. Tag: How get page numbers??? Tag: 54342
  - 8
    - Setting break point (F9) causes macro to loop forever I wrote the little macro shown below to increase the paragraph "spacing before" setting by 6 points. It works just fine unless I set a break point (F9) anywhere in the macro. Then it loops forever. If I step through it (F8) or turn it loose (F5), it goes right back to the Sub statement and runs over and over. What am I doing wrong? Thanks Here's the macro code: ---------------------------------------------------------- Sub IncLineSpaceBef6pts() Dim setting As Single, reply As Long, msg As String setting = Selection.ParagraphFormat.SpaceBefore If setting < 999 Then 'If the selection is all the same setting, 'increase it by 6 Selection.ParagraphFormat.SpaceBefore = setting + 6 Else 'Otherwise, ask for instructions msg = "The selection contains multiple Space Before settings. " _ & "Set them all to 6?" reply = MsgBox(msg, vbYesNoCancel + vbDefaultButton2, "SpaceBeforeToggle macro") If reply = vbYes Then 'If they say yes, set them all to 6 Selection.ParagraphFormat.SpaceBefore = 6 End If 'Otherwise, do nothing End If End Sub -- For email, use Usenet-20031220 at spamex.com Tag: How get page numbers??? Tag: 54339
  - 9
    - Insert fields from Excell or Access Is there a way to insert fields from an Excell or Access file into a Word document? I want to enter data into a spreadsheet and then insert it into a Word document. Tag: How get page numbers??? Tag: 54334
  - 10
    - Text out of 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: How get page numbers??? Tag: 54333
  - 11
    - tables in tables very slow I'm generating a document in VBA that reads data from a database and then creates a document. I have 5-6 levels of nested tables necessary to format the data. The resultant document is about 100 pages. The generation of the document and formatting of the tables takes 9+ hours to complete on a P4/512MB. Needless to say this will not be acceptable. When I single step thru some of the formatting commands (like setting up borders and bolding text) I can see it takes several seconds for each command. What can I do to improve speed? Tag: How get page numbers??? Tag: 54327
  - 12
    - Suppress Fillin field prompt in vbscript I've got a vbscript that recursively searches for and prints documents in a directory to file. When it stumbles across a document with a fillin field prompt, the vbscript stops until I can hit ok. Is there a way to suppress this prompt? If not, is there a way to automatically hit OK when the prompt comes up? Here's the sub I'm using to accomplish this task. *********vbscript********* Sub ConvertOffice(oCurrentFolder, oWord, oExcel, docnumber, xlsnumber, rtfnumber, txtnumber) Dim strTemp Dim docSearch Dim exlSearch Dim rtfSearch Dim txtSearch Dim strOutput Dim oNewFolder Dim oFile Dim oStream Dim FileOutdoc Dim FileOutxls Dim FileOutrtf Dim FileOuttxt Dim oDocument docSearch = ".doc" exlSearch = ".xls" rtfSearch = ".rtf" txtSearch = ".txt" For Each oFile In oCurrentFolder.Files strTemp = Right(oFile.Name, 4) FileTemp = Cstr(oCurrentFolder) & "\" & Cstr(oFile.Name) FileTemplcase = LCase(FileTemp) FileTempcomma = Replace(FileTemplcase,",","") FileOutdoc = Replace(FileTempcomma,".doc",".ps") FileOutxls = Replace(FileTempcomma,".xls",".ps") FileOutrtf = Replace(FileTempcomma,".rtf",".ps") FileOuttxt = Replace(FileTempcomma,".txt",".ps") If UCase(strTemp) = UCase(docSearch) Then Set oDocument = oWord.Documents.Open(oFile.Path, False, True) oDocument.Fields.locked = True oWord.PrintOut False, False, , FileOutdoc, , , , , , , True Do until oWord.BackgroundPrintingStatus = 0 Loop oWord.Application.ActiveDocument.close False docnumber = docnumber + 1 ElseIf UCase(strTemp) = UCase(rtfSearch) Then oWord.Documents.Open oFile.Path, False, True oWord.PrintOut False, False, , FileOutrtf, , , , , , , True Do until oWord.BackgroundPrintingStatus = 0 Loop oWord.Application.ActiveDocument.close False rtfnumber = docnumber + 1 Elseif UCase(strTemp) = UCase(txtSearch) Then oWord.Documents.Open oFile.Path, False, True oWord.PrintOut False, False, , FileOuttxt, , , , , , , True Do until oWord.BackgroundPrintingStatus = 0 Loop oWord.Application.ActiveDocument.close False txtnumber = docnumber + 1 Elseif UCase(strTemp) = UCase(exlSearch) Then Set oWorkbooks = oExcel.workbooks.open(FileTemp) oWorkbooks.PrintOut , , , , , True, , FileOutxls oExcel.workbooks(Cstr(oFile.Name)).close False xlsnumber = xlsnumber + 1 End If Next For Each oNewFolder In oCurrentFolder.subFolders ConvertOffice oNewFolder, oWord, oExcel, docnumber, xlsnumber, rtfnumber, txtnumber Next End Sub ******end vbscript******* Tag: How get page numbers??? Tag: 54324
  - 13
    - Need a global macro to change table style Hello, I'm new to this group and have found so much information so far, but now I need your help. I need a macro that will replace the TableNormal style with TableElegant throughout an entire document. What appeared as simple macro coding has now exacerbated my scant skills. If you can help, please respond to me personally. -- Jackie Damrau Dynamic Online Training (DOT) Perot Systems Corporation Ph. 972.577.6243 Cell: 214.505.0100 email: Jackie.Damrau@ps.net Tag: How get page numbers??? Tag: 54319
  - 14
    - wdDoNotSaveChanges doesn't work after saving in other format? Hello, This is a question about VBA in Word 2002. The problem involves the use of wdDoNotSaveChanges when closing a file. This seems to be the subject of lots of discussions online, because many people seem to have trouble making it work, and none of the solutions I've found seem to help. The problem seems to be this: If I save a file in WinWord 2.0 format, and then try to close the file, Word will always prompt me to ask whether I want to save the file. Nothing I've tried (see the commented lines below) seems to prevent the prompt from appearing; the only workaround I've found is to use SendKeys to say No when prompted, which of course is not exactly elegant. Here is a fragment of the macro, with various attempted solutions commented: ' all this is for saving the file in WinWord2 format ' based on code from Microsoft KB Dim fcCnv As FileConverter Dim strClass As String Dim strFileName As String strClass = "MSWordWin2" strFileName = Environ("TEMP") & "\tempww2.doc" ' Loop through all installed converters. For Each fcCnv In FileConverters With fcCnv ' Test for conversion ClassName. If .ClassName = strClass Then ' Save using the FileConverters.ClassName. ActiveDocument.SaveAs FileName:=strFileName, _ FileFormat:=.SaveFormat, _ AddToRecentFiles:=False End If End With Next fcCnv ' Having saved in Word2 format, close the file without saving ' The next line doesn't prevent the prompt, ' because Word already knows the file is saved - but in a different format ActiveDocument.Saved = True ' the SaveChanges= etc below doesn't help either ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges ' SendKeys says No when asked to save changes ' No other workaround seems to work SendKeys ("%" + "N") Does anyone have a solution to this minor problem? Thanks in advance. Edward Mendelson Tag: How get page numbers??? Tag: 54317
  - 15
    - Insert Rows Above Found Text in Table Trying to search for the word "Totals" which occurs towards the end of some tables, and insert 3 rows above it, then underline two of the newly inserted rows. Can't seem to do it without mixing up the range and causing an infinite loop. Here's the code For Each oTbl In objWord.ActiveDocument.Tables Set oRg = oTbl.Range With oRg.Find .ClearFormatting .Text = "Totals" .Format = False .Forward = True .Wrap = wdFindStop .MatchWildcards = False Do While .Execute oRg.Rows(1).Range.Select Selection.InsertRowsAbove 3 ' range gets messed up, finds same "Total For" again and again. Loop End With Next Thanks Jim Tag: How get page numbers??? Tag: 54315
  - 16
    - Bulleting in Word I am having difficulty automating bullets in word. I would like to automate bulleting something like: Code: Crane InputFile: CraneHeight.inp OutputFile: CraneHeight.out Any thoughts? I have tried using macros but it didnt help much. Thanks, - Nt Tag: How get page numbers??? Tag: 54308
  - 17
    - TOC Placement Hi, I have a procedure (see below) which inserts a table of contents relative to the section. This procedure works wonderfully however the placement of the section contents table is not correct, I would like the table to be inserted under the heading not at the top of the section. I do not know how to change my code. Any advice would be greatly appreciated. Thanks very much for your time. Kerry Sub SecTOC() 'Insert a table of contents for each section 'Highlights all text within a section, naming it as a bookmark 'Inserts a table of contents showing only section sub heading (level 2) styles 'Add switch to the table of contents field to only look in bookmark Dim iSec As Integer Dim oRng As Range Dim oRngStart As Range For iSec = 2 To ActiveDocument.Sections.Count With ActiveDocument Set oRng = .Sections(iSec).Range Set oRngStart = .Range _ (Start:=.Sections(iSec).Range.Start, _ End:=.Sections(iSec).Range.Start) .Bookmarks.Add _ Name:="Section" & iSec, _ Range:=oRng Secbk = "toc \h \z \t ""section sub heading,2"" \b ""section" & iSec .Fields.Add oRngStart, Type:=wdFieldEmpty, Text:=Secbk & """, PreserveFormatting:=False" Selection.Fields.Update End With Next iSec End Sub Tag: How get page numbers??? Tag: 54306
  - 18
    - Highlighting Sections I am using Word XP How can I highlight all the text in just the current section? Thanks very much. Tag: How get page numbers??? Tag: 54302
  - 19
    - Highlighting Sections I am using Word XP How can I highlight all the text in just the current section? Thanks very much. Tag: How get page numbers??? Tag: 54301
  - 20
    - Word 2000+ SaveAs Dialog Is there any way to get a SaveAs dialog in VBA for Word 2000 and above? I was using With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = filesavename .Title = "Save As" fileSaveFlag = .Show .Execute End With But it only works for Word 2003. Also as above, I'd like to specify the filename. Any help would be great, Carolyn Tag: How get page numbers??? Tag: 54285
  - 21
    - movenext command in ADO connection Hi- I have a Word97 macro which uses an ADO connection. (icrs.Open cmd, , , adLockBatchOptimistic) The MoveNext command doesn't work. I can move next, but the data is as if it all came from the 1st record in the recordset. (I know that there are 6 records, and I can "count" them in a Do While Not icrs.BOF loop with a MoveNext command inside. I just can't see the data.) I even downloaded MDAC2.8 . I have tried adOpenStatic, but still nothing. What am I doing wrong? Thanks in advance for any and all help. -Marty Tag: How get page numbers??? Tag: 54282
  - 22
    - How to distribute VBA-Code Hello! My question is how do I distribute VBA projects to our users' computers, so that I can call the subs/functions that come with that project? The background is we have close to 100 different templates, most of them use VBA code. Now quite a few of these templates use identical sub routines (i.e. a sub that reads from a certain text file). I thought it would be helpful to have a pool of common subs/functions instead of copying one and the same code to all templates. I tried using add-ins or putting a template into the startup folder, but that doesn't work unless you set a reference to the template containing the code. But the reference only works for the current project. Any ideas, links, hints, suggestions are appreciated Herbert Tag: How get page numbers??? Tag: 54281
  - 23
    - Word Table and Page Break I wrote a macro that looks at a column in a word table. Starting at the bottom of the table, it looks at each of the cells and if the cell matches the one above it, it removes the lower cell and continues. My problem is that the table breaks between page one and two and when the macro runs, it automatically deletes all items in the third row down on the second page. They do not match any other rows and it will delete them regardless of what they say. If I lengthen the page so that the entire table fits on one page, the macro works great, so I am assuming that it is the page break in the table the causes the problem. I did add 'Application.ScreenUpdating = False' but this only caused it to delete the second instead of the third line. The code is below: Dim tablecell, counter, head1, head2, head3 Selection.Tables(1).Select Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell head1 = Selection Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell head2 = Selection Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell head3 = Selection counter = 0 ' Identify which column we are working with 10 Selection.Tables(1).Select Selection.MoveDown Unit:=wdLine, Count:=1 counter = counter + 1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell ' For first column If counter = 1 Then GoTo 20 ElseIf counter = 2 Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell GoTo 20 ElseIf counter = 3 Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell End If ' Remove duplicates from the column we are working with 20 tablecell = Selection Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell ' Stop process if at the top cell 23 If Selection = head1 Then GoTo 10 ElseIf Selection = head2 Then GoTo 10 ElseIf Selection = head3 Then GoTo 40 End If ' Delete the duplicates 30 If Selection <> tablecell Then Selection.SelectCell GoTo 20 ElseIf Selection = tablecell Then Selection.MoveDown Unit:=wdLine, Count:=1 Selection.SelectCell Selection.Delete Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell GoTo 20 End If 40 End Tag: How get page numbers??? Tag: 54280
  - 24
    - How to use the organiser programatically Hi Folks, I have a series of templates and wizards that I wish to be able to re-create with options on a userform. Ideally I'd like to be able to create styles and toolbars programatically but I'm told this can't be done (if it can be please let me know :-) ). So what I'd like to do is write some code which can find my templates and copy the styles, toolbars and modules/userforms to a new version of the template. I think the organiser can be accessed using VBA but I'm not sure about importing modules and forms. Can anyone provide a sample of using the organiser and, if it can be done, code to import modules and forms. Any pointers appreciated. J Tag: How get page numbers??? Tag: 54278
  - 25
    - Automation: Inserting HTML text into Word 2000 I'm using Word 2000 to produce an output document from a VB application. I'm fine inserting text, images etc at bookmarks within a Word template file, but when I insert text which contains HTML tags, these are inserted as plain text rather than HTML. For instance you end up seeing "<B>Bold Here</B>" rather than just a bolded formatting of the words "Bold Here" Word 2000 can obviously handle HTML, because if you paste in text copied from a browser, you get it rendered as HTML rather than plain text. I'm using code like this to insert the text: Word.Application.ActiveDocument.Bookmarks.Item("IntroParagraph").Range.Text= "<B>Bold Here</B>" Suggestions gratefully received! Thanks, John Tag: How get page numbers??? Tag: 54277

Hi!!!!!

I need count numbers of pages of a document.

How I get this number en VBA or VB.NET?

Thanks in advance?

How get page numbers??? by Greg

Greg
Fri Aug 06 09:57:59 CDT 2004

Hi,

Something like:

Sub PageCount()

NumPages = ActiveDocument.BuiltInDocumentProperties
(wdPropertyPages)
If NumPages > 1 Then
MsgBox "This document contains " & NumPages & " pages."
Else
MsgBox "This document contains " & NumPages & " page."
End If
End Sub

>-----Original Message-----
>Hi!!!!!
>
>I need count numbers of pages of a document.
>
>How I get this number en VBA or VB.NET?
>
>Thanks in advance?
>
>
>
>.
>

Top