Suppress warning message

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 2nd Word Document In an application i can open a specific document through code (VB.NET). How would i then add pages to that document without creating another document or, if i have to create a document, how to then copy the text on that document, paste it at the end of the other document, and then close that document(not the one first created but the second) Thanks TIm Tag: Suppress warning message Tag: 65054
  - 2
    - How do I click a button in Adobes toolbar? I would like to click a "Create PDF" button in Adobes toolbar visible in Word. How do I do that from VBA-code? /BosseH Tag: Suppress warning message Tag: 65053
  - 3
    - Invoice numbering Is there a way to create a form template for invoicing so that the number used the last time the form template was opened is incrimented by one the next time it is opened? Tag: Suppress warning message Tag: 65049
  - 4
    - Find & Replace Each Instance I've created a text box in a userform in the VB Editor where a user inserts a date. I'm trying to then have the code search the document for each instance of the words "Created Date:", which appears in the first row and first cell of a varying number of two column tables (The number of tables where "Created Date" appears will vary, depending on another prompt in my form). Each time "Created Date" is found in a table, I want to have the date that was input in the form to be inserted in the cell immediately below "Created Date". I hope I'm being clear enough. Thanks in advance for your help! Tag: Suppress warning message Tag: 65047
  - 5
    - Compare and Merge two Word docs in automate code Word standalone application has a nice feature that we can compare and merge two doc files (menu â??Tools/Compare and Merge Documentsâ?¦â??). Does â??Word Object Modelâ?? have function similar to â??Compare and Mergeâ??? I try to merge two doc file in .NET code. Thanks. Shaw Tag: Suppress warning message Tag: 65045
  - 6
    - 3 5/8 x 6 1/2 envelops won't print properly. thinks it is a 4 1/4. When I try to print out a 3 5/8 x 6 1/2 envelops, word thinks it is a 4 1/4 x 9 1/2 size envelop even though 3 5/8 x 6 1/2 is selction in the options. The envelop is positioned as though it is a 4 1/4 x 9 1/2. I have checked for updates office and my printer. They are up to date. Tag: Suppress warning message Tag: 65044
  - 7
    - TabOrder- MVP site did not solve problem Read the brief at http://word.mvps.org/FAQs/TblsFldsFms/SetTabOrder.htm = and tried Method 2: assign a single OnExit macro to all your form fields. I am working in a form with text fields and checkboxes. For some reason, when the cursor gets to the first checkbox -- which occurs after 7 text fields -- it returns to the first text field and won't click into the checkbox. I have reviewed my code and I can't figure out why this happens. Can anyone help? Tag: Suppress warning message Tag: 65043
  - 8
    - How can I print on index cards ? Can anyone send me any info on how to set up word for printing on index cards ? Thx ! Tag: Suppress warning message Tag: 65039
  - 9
    - Charts by VBA Hi I need to build two charts by vba. Thats not so dificult, but how can I modify data in that chart. Im using MSgraph but if someone has better ideas I take them gratefully. Sub make_chart() Selection.InlineShapes.AddOLEObject ClassType:="MSGraph.Chart.8", _ LinkToFile:=False, DisplayAsIcon:=False End Sub Regards Mikko -- Message posted via http://www.officekb.com Tag: Suppress warning message Tag: 65035
  - 10
    - Looping in a table Dear All I am trying to recurse through every cell in the the first column of a table and obtain the cell contents. I have used the following code (which works) but could be better: Dim oRow As Row Dim oCell As Cell Dim sCellText As String For Each oRow In ActiveDocument.Tables(1).Rows sCellText = oRow.Cells(1).Range sCellText = Left$(sCellText, Len(sCellText) - 2) Debug.Print Trim(sCellText) Next oRow but I do not want all values returned but only those where the cell or the font is NOT shaded or conversely where the cell has no shading at all in the font or cell itself. It is this part I am stuck with. Can someone please help me? Alastair MacFarlane (very bad at Word VBA) Tag: Suppress warning message Tag: 65031
  - 11
    - dynamic text fields and events I am trying to create runtime text fields and then capture events on this text field. I have experimented with several things I have found on the internet, but have been unsuccessful. The form shows when I run it and the text box appears, but when I click in it, I do not invoke the control event. Any ideas? I have a class module: MyCtrlEvents ****** Option Explicit Public WithEvents MyBox As MSForms.TextBox Private Sub MyBox_Click() MsgBox MyBox.Name & " click!" End Sub ****** And I have a form with nothing on it. Here is the code. ****** Dim c() As MyCtrlEvents Private Sub UserForm_Activate() ReDim c(1) Set c(0) = New MyCtrlEvents Set c(0).MyBox = Me.Controls.Add("Forms.Textbox.1") With c(0).MyBox .Name = "TextBoxTest" .Top = 42 .Width = 72 .Height = 18 .Left = 20 End With End Sub ***** -- Thanks, Gary Tag: Suppress warning message Tag: 65030
  - 12
    - Accessing a TextBox Hello, I have a textbox which sits in the header of a document, is their anyway I can access the textbox, so that I may search the Header for particulars pieces of text? Thanks, Stefan. Tag: Suppress warning message Tag: 65029
  - 13
    - Tables Hi, I have a table in a document that I want to programmatically hide/show depending on certain circumstances. I can o this by looping throuh the table rows and setting the height attribute. This works OK but I have a problem. I can't set a row to have a height of 0. This means I have to set the height to 1. The problem with this is that it leaves a very small gap where the 'hidden' row. If there are enough hidden rows next to each other this leaves a large bit of white space in the doc. Is there a way I can hide the table row so it becomes completely invisable? Thanks for any help Andy PS - I don't want to delete as I have different bookmarks in the rows and these will be hard to re-add. Tag: Suppress warning message Tag: 65027
  - 14
    - Print ranges based on bookmarks I am trying to automate printing of a document in stages, ie. page ranges, based on the presence of bookmarks. I am using the Start property of bookmark to get the character positoins of the various bookmarks, I would then like to print starting at that character position to the next bookmark. Is there a way to print based on character positions and not on a page range? Tag: Suppress warning message Tag: 65021
  - 15
    - error 4198 in spelling protected Doc Hello, We have this template in which the vba-code for spelling in a protected document is used. (I got it through the MVP-site). http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm However, now we get an error concerning a certain part of the code. The part of the code is: If FmFld.Range.SpellingErrors.Count > 0 Then 'the following condition is to allow for a Word97 bug, which........ The error I get is: Error 4198 - command failed ("opdracht mislukt" in Dutch) When I use the debug option, The IF part stated above is selected. When I hold my mousepointer on 'FmFld.Range.SpellingErrors.Count' it says that it's value is '0' It seems that the error always occurs in the same formfield. We work with Office97 SP2b on a Citrix Metaframe environment. Thanks for any help. Rinze Smit Revalidatie Friesland Tag: Suppress warning message Tag: 65019
  - 16
    - Table size problem Hi I have to make a table that sometime will have to be bigger that the page (because I don't have any control over the amount of data). However when it does get bigger tan the page it will not print that part. Is there any way to strech it to another page Thank you in advance, Shmuel Shulman Tag: Suppress warning message Tag: 65012
  - 17
    - Word Object model for VBScript Hi, I am trying to automate WORD via VBScript and cannot find references to the word object model as could be used from VBScript. I can find it for VB, but this is not sufficient to find out the order of parameters for example, or what the properties and methods I can use are. For example copying a line from VBA for opening a file (with slight modifications) is: Set Doc = oWord.Documents.Open (FileName:="2004CGC.TXT", ConfirmConversions:=True, ReadOnly:=False, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto, Encoding:=1252) BUT I cannot use parameter names in VBScript and do not know what the order of parameters should be. Also I'd like to know what parameters I could use to open a TXT document and then save that as a WORD document. Do you know of any reference that I can use to give me that information? Any help is most appreciated. Cheers, Les Tag: Suppress warning message Tag: 65011
  - 18
    - Reading values from Excel Columns Hi VBA guys. See I have an assignment. I have to read column and cell values from Excel work sheets and use them in another word file. eg. one column might have a header called Font. I have to read the value from this cell, and use the font in another document for changing the font. Is it possible to implement this idea. And hey I am new to working with excel VBA. Is it very difficult to code this I mean just reading values, from one excel file and use them in another word file. Tag: Suppress warning message Tag: 65010
  - 19
    - Viewing and scripting word document in browser I am charged with building web based application which allows user to choose one of the published word templates (Word 2003) from the web server, and instantiate word document. When user instantiates document I need to prefill some of the fileds using word document object model. I would like to embed the word document in one of the frames, so when the document is instantiated - I can prefill the form fields inside the browser. I tried using the DSO Framer control available on microsoft site, however, thsi active X component does not allow me to create new document from template. I can create new Word document, but not from the template. Any advice any suggestion would be greatly appreciated, Thanks in advance, Geoff Tag: Suppress warning message Tag: 65003
  - 20
    - Find if paragraph or sentence contains font (italic,bold,etc) I'm looping through the document at the character level to convert it to another format. Needless to say, things are slow. Is there any way I can quickly check if a paragraph or sentence contains font styling or a special style such as hyperlink(so I can simply return the range.text for those)? Thanks, -- --------------------------------- Trevor Lowing Satellite Beach, Fl tlowing@-removenospam-lowing.org --------------------------------- Need help with: Access? http://www.mvps.org/access/ Outlook? http://www.slipstick.com/ Visio? http://www.mvps.org/visio/ HTML/CSS? http://www.NCDesign.org Scripting(VBScript/JScript/WSH/XML)? http://www.DevGuru.com http://cwashington.netreach.net/ http://developer.irt.org/script/script.htm --------------------------------- Tag: Suppress warning message Tag: 64997
  - 21
    - code to move cursor up two cells? Hi All, I seem to be wading around ... I am looking for code to move cursor up 2 whole cells in a table. That's got to be the easiest thing in the world, yes? Selection.MoveUp Unit:=wdCell , Count:=2, Extend:=wdMove All help is greatfully appreciated. :) Gil Tag: Suppress warning message Tag: 64994
  - 22
    - Interoperability I ain't real sure this is the place for this but I will ask anyway. I have to place numerous word documents on a server. A user goes through a selection process and decides what documents he or she want's. I have to create a master document and then add all the other selected documents to the master word doc in a specific order. To top this off I have to capture some numbers that are entered in the word documents and fill out an excel spreadsheet and do the math on the numbers. I am using VB.NET. Can anyone give me an idea how I can accomplish this. I know its abit complex but I would appreciate any insight anyone might have. Thanks Tim Tag: Suppress warning message Tag: 64993
  - 23
    - Tax Free Muni Bonds Nuveen This bond fund may be worth looking at. Nuveen High Yield Municipal Bond Fund http://www.kiplinger.com/columns/balance/archive/2004/balance0924.html http://biz.yahoo.com/p/tops/hm.html http://www.nuveen.com/MF/products/Overview.aspx?fundcode=NHYF -- --------------------------------- Trevor Lowing Satellite Beach, Fl tlowing@-removenospam-lowing.org --------------------------------- Need help with: Access? http://www.mvps.org/access/ Outlook? http://www.slipstick.com/ Visio? http://www.mvps.org/visio/ HTML/CSS? http://www.NCDesign.org Scripting(VBScript/JScript/WSH/XML)? http://www.DevGuru.com http://cwashington.netreach.net/ http://developer.irt.org/script/script.htm --------------------------------- Tag: Suppress warning message Tag: 64989
  - 24
    - How can I make VBA to run Microsoft word macro? Hi. I made a macro in Microsoft Word. But I need to create a VBA which does the macro. So what I have to create is, make a program that imports user's word document, and run the macro. Can any of you help me on this? I mean how can I transform the macro into VBA? following is my macro. ---------------------------- Sub breakapart() ' splitter Macro Dim mask As String Selection.EndKey Unit:=wdStory Letters = Selection.Information(wdActiveEndSectionNumber) mask = "ddMMyy" Selection.HomeKey Unit:=wdStory Counter = 1 FileId = " " FileId2 = " " While Counter < Letters If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Copy FileId = Selection Selection.MoveDown Unit:=wdLine, Count:=2 Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Copy FileId2 = Selection DocName = "C:\Progress Report\students\" & FileId DocName2 = "C:\Progress Report\advisors\" & FileId2 ActiveDocument.Sections.First.Range.Cut Documents.Add Selection.Paste ActiveDocument.SaveAs FileName:=DocName, FileFormat:=wdFormatDocument ActiveWindow.Close Documents.Add Selection.Paste ActiveDocument.SaveAs FileName:=DocName2, FileFormat:=wdFormatDocument ActiveWindow.Close Counter = Counter + 1 Wend End Sub Tag: Suppress warning message Tag: 64988
  - 25
    - Recurse Word Object Model Redux Or...should I be looking at the Word Document Model in a more generic fashion? If the list below shows a generic model for a document, how should I access all the other object such as shapes. lists, tables, etc to dump them in the correct order? Document Sections Section Headers Header Paragraphs Paragraph Sentences Sentence Words Word Footers Footer --------------------------------- Trevor Lowing Satellite Beach, Fl tlowing@-removenospam-lowing.org --------------------------------- Need help with: Access? http://www.mvps.org/access/ Outlook? http://www.slipstick.com/ Visio? http://www.mvps.org/visio/ HTML/CSS? http://www.NCDesign.org Scripting(VBScript/JScript/WSH/XML)? http://www.DevGuru.com http://cwashington.netreach.net/ http://developer.irt.org/script/script.htm --------------------------------- Tag: Suppress warning message Tag: 64987
- Next
  - 1
    - Recurse Word Object Model I'm trying to recuse through a Word document to dump it to another format. I need to get a handle on the Word Object Model. Does the logic below make sense? Are there Items like shapes that would only be accessible though the top level Document object? Document Paragraphs Paragraph Range Bookmarks Bookmark Range->Range Characters Character Style (Hyperlink, header, etc) Font EndNotes EndNote Range->Range Frames Frame Range->Range FootNotes FootNote Range->Range Hyperlinks Hyperlink Range->Range InLineShapes InLineShape Range->Range ListParagraphs Paragraph->Paragraph ListFormat Paragraphs->Paragraphs Sentences Sentence Range->Range Shapes Shape Subdocuments Subdocument Range->Range Tables Rows Row Cells Cell Range->Range --------------------------------- Trevor Lowing Satellite Beach, Fl tlowing@-removenospam-lowing.org --------------------------------- Need help with: Access? http://www.mvps.org/access/ Outlook? http://www.slipstick.com/ Visio? http://www.mvps.org/visio/ HTML/CSS? http://www.NCDesign.org Scripting(VBScript/JScript/WSH/XML)? http://www.DevGuru.com http://cwashington.netreach.net/ http://developer.irt.org/script/script.htm --------------------------------- Tag: Suppress warning message Tag: 64985
  - 2
    - ActiveX combo box? I am making a form in Word and want end-users to choose from a dropdown list. I need to use an ActiveX combo box for this purpose. Iâ??ve been working with the information from this link http://www.microsoft.com/office/community/en-us/wizard.mspx?query=ActiveX+list+box%3F&w=1&type=question&dg=&cat=en-us-office-word&lang=en&cr=US&pt=617c4d62-4061-4107-8d46-2a22fc6fa202&catlist=&dglist=&ptlist=&exp=&sloc=en-us Subject: Creating, Populating and Linking combo boxes Word 2K 3/9/2005 4:14 PM PST By: Robbmac In: microsoft.public.word.vba.general Using the code provided, I still can not get the results I am looking for. Is there something that needs to be done in the properties section? Is there something to the ordering of the code? The concept seems simple enough, and the code doesn't seem that complex (except for the whole adding-an-array data-base-string thing, lol). Any help would be appreciated. Tag: Suppress warning message Tag: 64984
  - 3
    - Problem with setting the focus in a textbox This is obviously a very minor problem but I wouldn't mind a solution just the same. When I set the focus on a textbox I don't see the insertion point if it's a multiline textbox. You can see it received the focus when you press tab, because then the focus moves to the next control. But I don't get an insertion point and I cannot insert text in the box until I click in it. Strange huh? Thanks in advance for any help, Theo Tag: Suppress warning message Tag: 64981
  - 4
    - Visual to Logical convertion in bidirectional system (Hebrew) Hello! My goal is to build Word document from DOS/MAINFRAME file in bidirectional system (Hebrew). I use function in bidi32.dll (BiDiConvertOemToAnsi) to convert strings from Visual to Logical. (The bidi32.dll is installed with bidirectional versions of Microsoft Office). I have problems with this function, it doesn't do the best Visual/Logical convertion. The main problems I have with text, which containes mixed english and hebrew letters, digits and signs #,| and so on. Is there the better way for this convertion, than bidi32.dll ? Thanks in advance, Natan Israel, Tel-Aviv Tag: Suppress warning message Tag: 64979
  - 5
    - variable for a web address in a Shell statement Basic problem, but I can't get the hang of it. In the code below, I want to replace the web address with a variable called sAddress to open a web page. Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE www.washingtonpost.com"), _ vbNormalFocus I've tried all kinds of variations similar to the below code using &, but I can't find the way that works. Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE sAddress"), _ vbNormalFocus Tag: Suppress warning message Tag: 64974
  - 6
    - Word deleted CTRL-Shift-P shortcut - how can I restore? I meant to press CTRL-Shift-P to open the Format - Font dialog box, but I must have accidentally pressed CTRL-Shift-Hyphen and then pressed a menu item. My understanding now is that by so doing, what I did was accidentally delete that menu item? At any rate, the CTRL-Shift-P shortcut no longer works. Is there anyway to restore it? Tag: Suppress warning message Tag: 64973
  - 7
    - Adding OLE controls to word document while Adding OLE controls to word document , like am using a combobox, the control is always added at the start of the document, rather than at the current cursor position. Am using a commandbar button , which when clicked, loads combobox in that document, but the problem is that that the combobox is added at the start of the document. Can anyone help? -- Message posted via http://www.officekb.com Tag: Suppress warning message Tag: 64967
  - 8
    - Windows application list Hi Everyone: I am not even sure if this is the correct place to post my question. If not , sorry about this. I am running a windows 2000 machine, and the last time I was updating it, somehow, I ended up with some sort of harmless (but annoying) virus from the MS web site. Basically, every time I run MS Word and I am on the web, my computer runs a program that shifts my Word window around, and clicks on some of the menus, and even clicks on the start button, and opens explorer and a bunc of other software. However, if I never start word, I do not think this program runs. Now I was wondering if in windows 2000, there is a way of knowing what allpication has been run since you turned on the computer. I have looked at event logs, but it does not show the list of run applications. When the virus program runs, I can see the time on my computer, and if I can see a list of the run applications along with the time, then I can delete the virus. I appreciate your help, and if you can give me where is the best place to post this. Thanks; Bob Tag: Suppress warning message Tag: 64963
  - 9
    - Finding text raised by some decimal value I am trying to write a macro to find raised text, specifically, I would like to be able to find and replace the text raised by 3.5 points. I wrote a simple macro to simply find the raised text: ' Macro to find text raised by 3 points and it works great With ActiveDocument.Range.Find .ClearFormatting .Font.Position = 3 ' Finds text raised by 3 points .Execute End With However, when I try to find raised text, raised by some decimal value (say) 3.5, the macro simply fails! ' Macro to find text raised by 3.5 points and it fails With ActiveDocument.Range.Find .ClearFormatting .Font.Position = 3.5 ' Finds text raised by 3.5 points ' msgbox(font.position) ' This returns 4!!!! Apparently, I think that the Font.position parameter is defined as an integer .Execute End With How do I go about this? Is there someway to get it to accept and decimal values as well? I also tried recording a macro after typing "3.5" in word's Find and Replace box. The macro recorded doesn't work either and returns 4 as well. Is this some bug? Thanks for any response. Vince Tag: Suppress warning message Tag: 64961
  - 10
    - Zoom userform video mode I know I can find the current video mode (resolution).(Works great in word too; http://j-walk.com/ss/excel/tips/tip06.htm) but is it a way to zoom the userforms in WORD in such a way that they look "almost" the same size regardless what video mode is set? arne Tag: Suppress warning message Tag: 64958
  - 11
    - Does a paragraph know it is in a table? I have some code that iterates through the paragraphs in the paragraph collection of the ActiveDocument and sets the LeftIndent for the paragraph based on the paragraph above it (actually the TextPosition property of a List item above it). Everything is fine until I hit a paragraph that is actually embedded in a table cell instead of being free standing. The result is that the LeftIndent for the text does get placed where I want it (inside the cell), but the table that it lives inside is still flush left and I'd like to move it over too. This is complicated when there are two columns in this table... my code finds the paragraph in the second column as well and sets its indent relative to the left edge of the 2nd column, which I don't want to do at all. So tables and paragraphs intermingle, but the paragraph collection doesn't seem to know about the tables and the table collection doesn't know about paragraphs. Here's a snip of code (see embedded comments): intOutlineLevel = 0 intTextPositionAbove = 0 For Each para In ActiveDocument.Paragraphs If Mid(para.Style, 1, 9) = "MM Topic " Then intOutlineLevel = para.OutlineLevel intTextPositionAbove = para.LeftIndent para.Range.ListFormat.ApplyListTemplate _ ListTemplate:=ltTemp, ContinuePreviousList:=True Else If (para.Style = "Normal" Or Mid(para.Style, 1, 3) = "MM ") Then ' If this para is in a table, I'd like to indent the table instead of the paragraph ' If this para is in the second column of a table I don't want to indent at all! If (para.LeftIndent - intTextPositionAbove) <= 0 Then para.LeftIndent = InchesToPoints(0.25 * intOutlineLevel) Else para.LeftIndent = InchesToPoints(0.25 * intOutlineLevel) + _ (para.LeftIndent - intTextPositionAbove) End If End If End If Next para Thanks in advance for your ideas... Dale Tag: Suppress warning message Tag: 64956
  - 12
    - Inserting images I am looking for a way to select and add images to a protected word document. I understand the process to unprotect and protect via vba, but I need to select the image, force it to resize to a specifc size and then place it in the document at a booknark and then protect the document. Any suggestions would be appreciated R Lampky Tag: Suppress warning message Tag: 64955
  - 13
    - Create Word doc from HTML by code Hi all, I have a task to create a Microsoft Word document from a html document. Itâ??s part of Microsoft Word automation code (it means VB or .NET code). The automation code will read html stream and build word document with some formats similar to html. I donâ??t have clue. Anyone knows how to do it? Or where can I find that information (components can buy, or even where to post this information properly). Thanks. Shaw Tag: Suppress warning message Tag: 64953
  - 14
    - Docking custom toolbars with BuiltIns I have created an addin that creates on CommandBar with one button control to run it. In a code module I have written the creation and settins methods which are call by code inside: ThisWorkbook Sub Workbook_Open() When I wrote the setting for the toolbar, I included position setting With TBar .Name = CBarName .Top = 0 .Left = 0 .Visible = True End With which creates a floating toolbar in the top left. So I tried NOT using the . top and .left and instead using .position = msoBarTop But that just centers the toolbar on screen. How can I dock a custom toolbar into Excel's already present area up top. What is that area called? and How do I access it? Tag: Suppress warning message Tag: 64951
  - 15
    - Real Estate Closing Statement Looking for a simple closing statement not a hud 1 Tag: Suppress warning message Tag: 64947
  - 16
    - Can anyone fix one line of VBA code for Word to text conversion? The following VBA script opens Word documents in the directory C:\src, and saves their contents as text files in the directory C:\dest. Unfortunately, the saved text files include Word formatting, which crimps my plan to index the contents with Perl. I would much rather that the files be saved as plain text. The line that I think needs fixing is indicated with an arrow (<----**). Does anyone have any ideas? Thanks much. Sub SaveAllWord() Dim srcPath As String Dim destPath As String Dim sName As String Dim dt As Document srcPath = "C:\src\" destPath = "C:\dest\" sName = Dir(srcPath & "*.doc") Do Set dt = Documents.Open(srcPath & sName) dt.SaveAs ActiveDocument.SaveAs destPath & dt.Name & ".txt", _ FileFormat = wdFormatText '<----** ActiveDocument.Close SaveChanges:=False sName = Dir() Loop While sName <> "" End Sub -- admin4office_perl_programmer. Tag: Suppress warning message Tag: 64942
  - 17
    - VBA Forum http://excelvba.proboards42.com/ Tag: Suppress warning message Tag: 64939
  - 18
    - Supprressing Warning message from Macro I have written a macro in Word VBA using Word 2002. This macro opens an excel spreadsheet then copies some graphs into a Word document. However, because the excel file contains macros, the Word macro halt execution due to a warning message that the file contains macros and ask if I want to continue. I would like to suppress this warning message from within the Word macro such that the macro will continue to run. Any and all help would be greatly appreciated Tag: Suppress warning message Tag: 64929
  - 19
    - I don't want reviewing available every time I open a document. Ho. This is getting extremely frustrating to have changes that have been accepted or rejected keep popping up. We do a lot of electronic submissions to clients, and we don't want them to see these changes. I really wish Microsoft would stop guessing what we users really want -- it's usually the wrong guess! Tag: Suppress warning message Tag: 64928
  - 20
    - split document by pages Hi, I need to split a Word 2003 doc in multiple docs with a predefined number of pages (eg, 10 pages). Therefore, all the docs created will have 10 pages (except the last maybe). One way is move through the pages of the original doc (starting from the beginning, iteratively until de end) creating docs and copying each block of 10 pages read. Any hint (with sample code)? TIA, ram Tag: Suppress warning message Tag: 64926
  - 21
    - Embedded Button in Word Document Good afternoon! As the sun sinks slowly into the west, one last question before the weekend. Is it possible to create a button which is embedded directly into a document, which can be attached to VBA code. I know you can do this in Excel, I just can't find the command button tool anywhere in Word. Thanks in advance & have a good weekend! Pete Tag: Suppress warning message Tag: 64924
  - 22
    - Making a macro pause for a few seconds Can anyone tell me how to accomplish this, please? Excel has a WAIT function, but Word doesn't seem to recognize it. Thanks Pete Tag: Suppress warning message Tag: 64902
  - 23
    - Digitally signing macros Hi! I've created a couple of macros that I'd like to digitally sign. I just want to issue a certificate myself and use that so the security level can remain at "High". I've used selfcert.exe to create a certificate but when I sign the macro and save my template I get an error: "There was a problem with the digital certificate. The VBA project could not be signed. The signature will be discarded." How can I solve this?? Thanks in advance. Morten Tag: Suppress warning message Tag: 64898
  - 24
    - serial port communications This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C525BF.24031450 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I am looking for a way to do serial port communications directly from = excel. I have been experimenting with mscomm.dll. It seems to have = problems getting data from the serial port sending is no problem. Is = there a better solution than mscomm? --=20 K.Brown /************************************************************************= ***** To the optimist, the glass is half full.=20 To the pessimist, the glass is half empty.=20 To the engineer, the glass is twice as big as it needs to be.=20 *************************************************************************= *****/ ------=_NextPart_000_0008_01C525BF.24031450 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.2900.2604" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>I am looking for a way to do serial = port=20 communications directly from excel. I have been experimenting with = mscomm.dll.=20 It seems to have problems getting data from the serial port sending is = no=20 problem. Is there a better solution than mscomm?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><BR>--=20 <BR>K.Brown<BR>/*********************************************************= ********************<BR> =20 To the optimist, the glass is half full. <BR>  To the pessimist, = the glass=20 is half empty. <BR>  To the engineer, the glass is twice as big as = it needs=20 to be.=20 <BR>*********************************************************************= *********/</FONT></DIV></BODY></HTML> ------=_NextPart_000_0008_01C525BF.24031450-- Tag: Suppress warning message Tag: 64872
  - 25
    - Creating a macro to open a dialog box. Using MS Word 2003 I would like to create a macro that opens a dialog box that prompts the user to accept or deny certain terms. The best example I can use is a EULA. Either you agree to the terms and the document opens, or you disagree and document does not open. Trying to figure this out alone is quite difficult, and any assistance offered will be greatly appreciated. Can anyone help me with this issue? Tag: Suppress warning message Tag: 64870

I have written a macro in Word VBA using Word 2002. This
macro opens an excel spreadsheet then copies some graphs
into a Word document. However, because the excel file
contains macros, the Word macro halt execution due to a
warning message that the file contains macros and ask if I
want to continue. I would like to suppress this warning
message from within the Word macro such that the macro
will continue to run.

Any and all help would be greatly appreciated

Garry

Top

Re: Suppress warning message by Word

Word
Fri Mar 18 06:49:15 CST 2005

G'day "Garry" <boswellgw@hotmail.com>,

try setting

Application.DisplayAlerts=wdAlertsNone

Steve Hudson - Word Heretic

steve from wordheretic.com (Email replies require payment)
Without prejudice

Garry reckoned:

>I have written a macro in Word VBA using Word 2002. This
>macro opens an excel spreadsheet then copies some graphs
>into a Word document. However, because the excel file
>contains macros, the Word macro halt execution due to a
>warning message that the file contains macros and ask if I
>want to continue. I would like to suppress this warning
>message from within the Word macro such that the macro
>will continue to run.
>
>Any and all help would be greatly appreciated
>
>Garry

Top