Using VBA to look for Styles

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Which checkbox is checked, which isn't? Within each of two AutoTextList fields is a Wingdings symbol: in one, a blank checkbox; in the other, a checked checkbox. Both fields are bookmarked, so the contents can be tested as either the text of the bookmark range or the result of the field. Problem: how to tell which checkbox is checked and which is blank? Reminder: neither is a form field checkbox. This code inserts the two symbols and may give you some clues: Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3842, Unicode _ :=True'CHECKED CHECKBOX Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3928, Unicode _ :=True'BLANK CHECKBOX Every VBA test I've run so far gives the same number for both symbols. Scrolling through the entire object browser was fruitless; symbol isn't an object. Searching for Unicode, CharacterNumber and Checkbox proved an equal waste of time. Your one-line code solution will be much appreciated! Tag: Using VBA to look for Styles Tag: 40707
  - 2
    - copy styles macro Hello, We use Word 2000. I need to create a macro that will copy all the styles from a template to the ActiveDocument. I can create a dialog box where the user can specify which template, but I don't know how to copy all the styles from that template to the ActiveDocument. When I just record the keystrokes, it does each style individually. And Help shows only how to do it individually. I want to copy all of the styles as a group to the Activedocument. Is this possible? Thank you in advance. Mary Tag: Using VBA to look for Styles Tag: 40706
  - 3
    - Parsing text from a word doc by keywords to an Oracle table I have text doc that I want to parse out certain data in to an oracle table. What I would like to do is search the doc by keyword, then grab all text between the keywords and update a column in a table. Below is sample of what the text doc would look like. The keywords I am looking for are: -Project Number -Title -Market Segment(s) -Product Segment(s) -Product(s) -Description Text Doc Example: Project Number B1F0050 TitleTREATMENT OF FINANCE CHARGE DEBIT ADJUSTMENTS Market Segment(s)CREDIT Product Segment(s)CUSTOMER CORRESPONDENCE OMAHA MERCHANT/DEBIT USAGE, RETENTION & MARKETING Product(s)INFOSIGHT (NOAH) LEGAL/REGULATORY COMPLIANCE ONLINE PCF CARDHOLDER POSTING & MASTERFILE STATEMENTS MONETARIES DescriptionFinance charge debit adjustments that are manually entered will be identified and treated as finance charges to comply with Regulation Z. Currently, manual debit adjustments post as sales. Does anyone have any suggestions on how to do this. I would need help with the code that loops through the text doc, grabs the text between keywords and the code to connect to and update the oracle table. Tag: Using VBA to look for Styles Tag: 40705
  - 4
    - enable wordcount in a protected cell I have created a word form using text fields within tables. I would like to use the wordcount feature within the table cell. I have tried putting the table between section breaks but the option is still disabled. Tag: Using VBA to look for Styles Tag: 40698
  - 5
    - Word Form Hi Request some help in automating a form in word. I need to create form which would be sent as an email to users. This form would accept numerical data in combo boxes from the users. Then average result needs to be calculated and stored in a hidden field in the form, which could be viewed by me when the users update the form and send it to me. I am able to put the combo fields using the forms menu. I am not able to calculate the average of the inputed fields and hide the same. Any advice, appreciated. Thanking you. PR. Tag: Using VBA to look for Styles Tag: 40697
  - 6
    - How to apply XSL automatically I need to open an XML data file in word2003, then apply an XSL to the XML, then save as a .Doc , How can this be done automatically using VBA? Where should I keep the code, in a template maybe? Thanks! CD Tag: Using VBA to look for Styles Tag: 40696
  - 7
    - preview autotext entry in RTF-Control Hello everybody, I guess, you know Word's build-in autotext dialog that lets the user add, delete and insert text modules. This dialog has a preview of the selected autotext that can show the format of the text, too. In a user form, I would like to make this feature available as well. I put a rich text box (RICHTX32.OCX) on my form in that I would like to load the selected autotext into. Unfortunately this does not work: RTB_Preview.TextRTF = _ ActiveDocument.AttachedTemplate.AutoTextEntries( _ "myAutotext").Value The .Value-Property just returns the autotext without any formating informations. Any suggestions how to get the RTF data stream would be very appreciated. Regards Daniel -- daniel@bolege.de http://www.bolege.de Tag: Using VBA to look for Styles Tag: 40694
  - 8
    - Word automation/VB.NET VB.NET and automation of Word XP. I am doing Find/Replace on a large document. Because of the nature of how this document is built, I want to limit the Find/Replace to the last two pages of a document. Someone kindly gave me this code: 'Dim iP As Integer 'Dim sP As String 'Dim rR As Range 'rR = Selection.Range 'iP = ActiveDocument.ComputeStatistics(wdStatisticPages) 'sP = Trim(Str(iP - 1)) 'Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=sP 'rR.Start = Selection.Start 'rR.End = ActiveDocument.Content.End 'rR.Select() 'With rR.Find ' .Text = "i" ' .Replacement.Text = "#" ' .Wrap = wdFindStop ' rR.Find.Execute(Replace:=wdReplaceAll) 'End With The problem I am having is that this is written to run in VBA behind a Word doc ("Active Document", "Selection", etc). So I thought I could just tweak it to run in VB.NET using a Word document object. The Selection object is where I am having problems. I think I need to create a Selection object (dim oSelection as selection) and then set that object variable equal something. I dont want the whole document, do I? Or do I? And if so, how do I do that? oDoc is my Word doc object. It has no .Selection property. So I am confused on how to get this code to run in VB.NET. Can anyone advise? Tag: Using VBA to look for Styles Tag: 40692
  - 9
    - Word 2002 >> Method oDocument.close >> crash I posted this yesterday to microsoft.public.word, but this seems to be the better place ( sorry for cross posting ) ------------------------------------------------------------------------------- Hi I wrote some VBA script for Word templates. It works on W97 and W2000 without any problems but W2002 seems to have a real bug. I traced down the problem and found that closing a previous opened Document crashes Word 2002. You can try the following script in Normal.dot: Sub AutoNew() set oTemplate = Documents.Open("C:/test.doc", ReadOnly:=True, Revert:=False) MsgBox "try to close document test.doc..." oTemplate.Close SaveChanges:=wdDoNotDaveChanges End and here how to produce the crash: - create an empty word document under c:\ and name it "test.doc" - open Word 2002 - File >> New >> general templates >> blank document - you will see the message box "try to close document test.doc..." - click ok and Word 2002 will crash things to mention: - if I choose "Recover my work and restart Microsoft Word" Word starts by itself and now creating new Documents works perfectly - create a new Document with <ctrl> - n doesn't crash at all (strange..) - I'm not sure, if there could be some problems caused by McAffe. I did turn off all scannings first and after that I removed the Antivirus Package. But I still have the same crashes. It might be possible, that McAffe has altered some dll's or important registry entries I'm very happy to get some feedback. Somebody faces the same problem? Thanx Rolf Schöpfer Tag: Using VBA to look for Styles Tag: 40691
  - 10
    - office 2003 What happens to VBA in the latest version of Office? Is it supported/backward compatable? Tag: Using VBA to look for Styles Tag: 40689
  - 11
    - Moving code from ThisDocument (template) to ThisDocument (ActiveDocument) How can I programmatically move the content from the code embedded within ThisDocument from the template to the ActiveDocument ? Using OrganizerDelete I can delete "ThisDocument" from the ActiveDocument, but when I use OrganizerCopy, I get an error... Tag: Using VBA to look for Styles Tag: 40671
  - 12
    - ChangeFileOpenDirectory help Hi, Using Word2002, I have the following script which works OK. My problem is that I have used the ChangeFileOpenDirectory command. I would like the users directory to remain at whatever it was before they run this macro. So for instance if the user were to press Ctrl-O and the directory was Y:\MyFiles then I would like them to be able to run the following macro and for Y:\MyFiles to remain as the default directory when they press Ctrl-O. What is the command/procedure for that (please)? Sub proInputText() Dim strAns As String strAns = InputBox("Type the number of the" & Chr(13) & _ "paragraph you wish to insert", "Will Retrieval") If strAns = "" Then Exit Sub Else ChangeFileOpenDirectory "Y:\Masters\WILLS\" Selection.InsertFile FileName:=strAns, Range:="", ConfirmConversions:= _ True, Link:=False, Attachment:=False End If End Sub Tag: Using VBA to look for Styles Tag: 40669
  - 13
    - Open Outlook if Not Open A newbie to VBA. I have a user supplied Word Template that "has" to have Outlook running. It opens in ready to mail form. How can I upon opening of the document check to see if Outlook is running (we are running either XP or O2K3) and if not, open it up as the template is opening. Thanks, Ivan Grozney Tag: Using VBA to look for Styles Tag: 40666
  - 14
    - Re-size specific images in a doc I'm trying to write a macro that would search through all the images in a document, check if they have a specific width (> than 6", let's say), and re-size them to a width of 6", while the height changes proportionally. In other words, fix the figures that spill over the page margins. I also have other figures in the document (that have a size<6") that I don't want to touch. Can this be made? Thanks for any help. Tag: Using VBA to look for Styles Tag: 40664
  - 15
    - Mail Merge formating zip code This is a multi-part message in MIME format. ------=_NextPart_000_0034_01C3A3A7.7E733050 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I am working on a Mail Merge where the data source originates from a = different data base. and is imported into excel. If I do the Mail Merge = from word. I believe it looks for the original formatting from the data = that was shipped and therefore defaults to 7754 rather than 07754 taken = from the cell format in excel. Is there an easy fix for what I am trying to due, or should I Alt+F9 and = format it for a Zip code. I will also need to know what that is. Thanks Matt ------=_NextPart_000_0034_01C3A3A7.7E733050 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.2800.1264" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV>I am working on a Mail Merge where the data source originates from = a=20 different data base. and is imported into excel. If I do the = Mail=20 Merge from word. I believe it looks for the original formatting from the = data=20 that was shipped and therefore defaults  to 7754 rather than 07754 = taken=20 from  the cell format in excel.</DIV> <DIV> </DIV> <DIV>Is there an easy fix for what I am trying to due, or should I = Alt+F9 and=20 format it for a Zip code. I will also need to know what that is.</DIV> <DIV> </DIV> <DIV>Thanks</DIV> <DIV><BR>Matt </DIV></BODY></HTML> ------=_NextPart_000_0034_01C3A3A7.7E733050-- Tag: Using VBA to look for Styles Tag: 40662
  - 16
    - MSWord 2000 menu bar I need to modify the Word menus that were created by another staff person who is not available for assistance. I have searched for the code and have not been successful. Tag: Using VBA to look for Styles Tag: 40660
  - 17
    - Macro breaks but works when breakpoint used I'm pulling my hair out on this one. I've got a document w/ several protected sections. In the event that the text in one of the unprotected sections is accidently deleted, I've written a macro to replace the text and tag it with some required character and paragraph styles. Here's the catch: when I execute the macro, I get a Runtime error 4605 - "This method or property is not available because the object refers to a protected area of the document." Yet, when I set a breakpoint on and step through the "Selection.Style = ActiveDocument.Styles" line, it all works as expected. Here's all i'm trying to do: Selection.MoveRight unit:=wdCharacter, Count:=17, Extend:=wdExtend Selection.Style = ActiveDocument.Styles ("IntelinkSummaryTitle") Selection.MoveRight unit:=wdCharacter, Count:=7 Tag: Using VBA to look for Styles Tag: 40657
  - 18
    - Word VBA Problem Hello I've been maintaining a set of Word VBA macros for a few years at the office, and have a routine which prints the current document to a pre-set printer and tray(s). The pre-sets have been saved in the Registry, so the routine pulls these out and uses them to reset the ActivePrinter, print the document and then reset the ActivePrinter from saved data. This works fine for Word 97 (on Win 98 & 2000) and Word 2000 (Win2000 & XP). Word 2002 (Win XP) crashes completely (not just a VBA error, but Word itself) when it reaches the line which alters the DefaultTray to the saved setting. I have pasted the essential elements of the routine below. I'm hoping someone will be able to tell me why this is happening with the "new and improved" Word, when the old versions work quite happily with it. Any help is greatly appreciated. Best wishes Peter Kessler Kessler Associates E: digital@kessler-web.co.uk W: http://www.digital.kessler-web.co.uk Public PrintDocument() Dim SelectedComboBox As String 'Get the saved printer and tray settings from the Registry cboCInvPrint1 = System.PrivateProfileString("", lsection, "CInvPrint1") cboCInvPrint2 = System.PrivateProfileString("", lsection, "CInvPrint2") cboCInvTray1 = System.PrivateProfileString("", lsection, "CInvTray1") cboCInvTray2 = System.PrivateProfileString("", lsection, "CInvTray2") SelectedComboBox = cboInvPrint1 ComboBoxChange ' Set Tray 1 for Page 1 If cboInvTray1 <> "" Then With Options .DefaultTray = cboInvTray1 '******************** Word crashes here End With 'Routine then prints page 1... End Sub Public ComboBoxChange() With Dialogs(wdDialogFilePrintSetup) .Printer = SelectedComboBox .DoNotSetAsSysDefault = True .Execute End With End Sub Tag: Using VBA to look for Styles Tag: 40652
  - 19
    - Can VBA in Office v.x do interprocess communication? I am in the process of designing a solution for the following requirement: We need to allow users to create a "template" in word (not necessary a word template, but a word document that will be used to create other word documents via parsing). The template will be dynamically populated with data from the active document in our application which is running in another process. The solution must work on PC and Mac. On Windows, the obvious route is to use COM to pull data from our app into VBA and then push it into the template. My question is this: is there any equivalent to that using VBA in Mac Office v.x? Does Apple Script provide the same capability as COM does on windows? I'm pretty new to Mac development, so pardon my ignorance. Other solutions we are considering are using RTF and writing our own parser/template engine...not sure which would be easier. Any feedback would be extrement appreciated. Greg Tag: Using VBA to look for Styles Tag: 40650
  - 20
    - styling references using wildcards/find-replace I am trying to style references with macros/wildcards, using the find/replace function, like 140 Vogler BK, Pittler MH, Ernst E. Feverfew as a preventive treatment for migraine: a systematic review. -Cephalagia- 1998; *18:* 704?08. I managed to bold the volume numbers, since nowhere else in references there are digits followed by a colon. However, I don't know how to specify the place where the publications sit: they are followed by the publication date, and the semi-colon, but the space before is not specific enough (there are many other occurrences of a full stop followed by a space), so that any find/replace function I created selected more text than I wanted. Any solutions? ------------------------------------------------ ~~ Message posted from http://www.WordForums.com/ ~~ View and post usenet messages directly from http://www.WordForums.com/ Tag: Using VBA to look for Styles Tag: 40649
  - 21
    - Problem with VBA runtime efficiency I have a VB standard exe program as following: Dim app as new Word.Application app.Visible = False Dim doc as Word.Document Set doc = app.Documents.Open("some word document") Dim str As Word.Range StartTime = Time For i = 1 To 10000 Set str = doc.Range Next i EndTime = Time MsgBox DatedDiff("s",StartTime,EndTime) doc.Close Set doc = nothing app.Quit Set app = Nothing It takes 25 senconds to execute this program,o my god,I don't know why,because if i use macro to run this program in word document,it takes less than 1 sencond.why the execution efficiency is so slow?Could anybody tell me how can i improve the efficiency or what's wrong with my program.thank you very much Tag: Using VBA to look for Styles Tag: 40647
  - 22
    - Find and Replace macro Hi everyone, I have a very simple macro that all it does is search and replace for text in the document. The problem is that it doesn´t find nor replace the text inside footers and headers. However, if I use Find and Replace from the Edit menu... works ok. It's weird, since I irecorded the macro using that menu. Any ideas? Thanks, from Spain. Juan Tag: Using VBA to look for Styles Tag: 40646
  - 23
    - escape codes can anyone help me with an example code of how to sent an Escape code to the printer in VBA. For instance I want to sent the code <esc>&I3G to an OCE printer. regards, mario Tag: Using VBA to look for Styles Tag: 40641
  - 24
    - DocumentOpen event does not run We use a DocumentOpen event procedure to carry out a set of checks/actions whenever a document is opened. This works fine, as a rule. But if in a Word session any other procedure is stopped for whatever reason (this seems to be one of the reasons we 'lose' it but there may be others), after that the event procedure does not kick in until Word is restarted, unless the application object is re-initialised. But no error/message is displayed to hint that anything gone wrong. Can duplicate the 'error' by stepping through and stopping any procedure. After doing so the event procedure doesn't run. Is there a way to stop this happening, or to automatically re-initialise the application object if it does? Any help appreciated. Caroline Tag: Using VBA to look for Styles Tag: 40639
  - 25
    - Tooltips in listbox? Hi Folks, Does anyone know how I can get tooltips for Listbox items in VBA? I know how to do this in VB (Have code) but the same process does not work in VBA! Are the activeX controls different? If anyone knows how to do this I'd be mighty grateful! Cheers J Tag: Using VBA to look for Styles Tag: 40638
- Next
  - 1
    - Moving macro's from Template to Document I have a template from which users can create a document. When they then send the document to someone else (that does not have the template), the macro's have disappeared. Is there a possibility to copy the macro's and modules from the template to the document, each time a new document is created from the template ? Tag: Using VBA to look for Styles Tag: 40637
  - 2
    - programatically setting the footer of a word document Hi, I am new to VBA, so would appretiate some help. I am trying to programatically create many word documents from VB. I have a word template with a few form fields in it, which I open and substitute whatever I want to into the form fields and save the doc. (all this i do in a loop) 1. I am not being able to put a form field in the footer. 2. Alternatively, I would also like to set the footer of the word document. But I am not being able to do that too. Can anyone pls. tell me how to set the footer of a word document from a VB code ? I tried doing some recording which gave me the foll. code 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 Selection.TypeText Text:="Header that I want to set" Selection.MoveDown Unit:=wdScreen, Count:=3 Selection.TypeText Text:="Footer Left text" & vbTab & "Footer center" & vbTab NormalTemplate.AutoTextEntries("Page X of Y").Insert Where:=Selection. _ Range, RichText:=True ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument On putting this code in the VB form, I am getting an error saying that Command not available since no word document is open ! (in the vb code, the word application instance is set to NOT visible) Thanks in advance Darshan Tag: Using VBA to look for Styles Tag: 40634
  - 3
    - ! Referencing Bookmarks from Code ! Hi, I have set up bookmarks and other merged fields in a word DOT file and want to use code to perform some calculations to populate certain bookmarked fields. I was wondering if it was possible to reference a bookmark from a Word doc, and if so, how it is written? E.g. The GrossAmount is the bookmark in Word. And the Datafields "Dollar1/2/3" are referencing "Documents ("filename.DOT").mailmerge.datasource" GrossAmount = .DataFields("Dollar1").Value _ + .DataFields("Dollar2").Value _ + .DataFields("Dollar3").Value If there is a way to reference bookmarks, which event do I put this in so that Word knows when to sum it after the fields have been merged (because prior to merge, there is no data there for it to sum). Thanks Wembly. Tag: Using VBA to look for Styles Tag: 40630
  - 4
    - Opening Excel Workbook from Word using VBA - Always Read Only Hi All, I wasn't sure whether this should be a Word or Excel query so I have cross-posted. Apologies if anyone objects! I am using the following code in a module in Word to open an existing Excel document: Sub Open_Plan() Dim xls As Object Dim wrk As Object Dim xlfilename As String xlfilename = "F:\Alan\Plan.xls" Set xls = CreateObject("Excel.Application") xls.Visible = True Set wrk = xls.workbooks.Open(FileName:=xlfilename, Updatelinks:=0, ReadOnly:=False, Password:="password") End Sub This works fine, except that it seems to skip or ignore the 'ReadOnly = FALSE' argument, and the file still opens as Read Only every time. I am stumped as to how to get around this. Thanks in advance for any help you can provide. Alan. Tag: Using VBA to look for Styles Tag: 40627
  - 5
    - fonts Is there a way when choosing a font [in Word 97] to return to the previously used font? It always goes back to the default font. Thanks, Eileen Tag: Using VBA to look for Styles Tag: 40625
  - 6
    - Repeated consecutive words This is a multi-part message in MIME format. ------=_NextPart_000_000B_01C3A32A.AFA81CD0 Content-Type: multipart/alternative; boundary="----=_NextPart_001_000C_01C3A32A.AFA81CD0" ------=_NextPart_001_000C_01C3A32A.AFA81CD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blanco HI: I need a macro that find any repeated consecutive word in a Word = document. I'm working with large document and sometimes it have (wrong) = consecutive repeated words, and sometimes it pass the manual revision = and the final document goes with that repeated words. I don't need that the macro eliminates the word, just mark it and we = decide if eliminate it or not. Any help will be so much apreciated. Thanks in advance, Omar ------=_NextPart_001_000C_01C3A32A.AFA81CD0 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><TITLE id=3DridTitle>En blanco</TITLE><BASE=20 href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft = Shared\Stationery\"> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <STYLE>BODY { MARGIN-TOP: 25px; FONT-SIZE: 10pt; MARGIN-LEFT: 25px; COLOR: #000000; = FONT-FAMILY: Arial, Helvetica } P.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } LI.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } </STYLE> <META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD> <BODY id=3DridBody bgColor=3D#ffffff=20 background=3Dcid:000601c3a343$d4f2e3d0$7ef82bc8@mipcxt400> <DIV><FONT face=3DTahoma color=3D#008080 size=3D4></FONT> </DIV> <P><FONT face=3D"Californian FB"></FONT></P> <P> </P> <P>HI:</P> <P> </P> <P>I need a macro that find any repeated consecutive word in a Word = document.=20 I'm working with large document and sometimes it have (wrong) = consecutive=20 repeated words, and sometimes it pass the manual revision and the final = document=20 goes with that repeated words.</P> <P>I don't need that the macro eliminates the word, just mark it = and we=20 decide if eliminate it or not.</P> <P>Any help will be so much apreciated.</P> <P> </P> <P>Thanks in advance,</P> <P> </P> <P> </P> <P>Omar</P> <P> </P></BODY></HTML> ------=_NextPart_001_000C_01C3A32A.AFA81CD0-- ------=_NextPart_000_000B_01C3A32A.AFA81CD0 Content-Type: application/octet-stream; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <000601c3a343$d4f2e3d0$7ef82bc8@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_000B_01C3A32A.AFA81CD0-- Tag: Using VBA to look for Styles Tag: 40624
  - 7
    - format problems when cut/paste on letterhead doc I have a "letterhead" document (not a template) which I use to create letters by copying and pasting the body of the letter onto it. With the exception of the letterhead portion, it is blank until I copy/paste the body or substance of the letter onto it. But when I do so, the part that I copied requires alot of cleaning up: incorrect font, messed up paragraphs, spacing, bold, margins, etc. Can anyone help me so that when I copy onto my letterhead, it will not require all this cleaning up? Thank you very much for your assistance. (I tried to create a template, but copying and pasting created the same problem.) attymusic Tag: Using VBA to look for Styles Tag: 40621
  - 8
    - Bring Word to the front (ZOrder 0) Hi, I have an application which outputs RTF files to Word, which in turn runs a macro on the open document. The problem is sometimes Word does not open in the foreground, I need to manually select it in the task bar to bring it to the front. How can I bring the active window in Word to the foreground (using VBA). I've tried using the Activate method on the document's window but it only makes it the active window in Word, it does not bring it to the foreground. I've looked at the SetWindowPos API call but I need to pass it the hwnd of the active window, something which to my knowledge VBA does not provide for. I am using Word 2000/2002 on Windows 2000. Cheers, John Tag: Using VBA to look for Styles Tag: 40620
  - 9
    - Macros on a protected document I have a global template that is loaded when Word starts up. It contains some macros that used to work for some protected documents that have form fields. On exiting one of the form fields, I used to run a macro, but today that all stopped?!? I don't understand what happened. Now when I open the template I can no longer access the macros let alone even run one. Any ideas what I may have done? Thanks in advance, Chris Tag: Using VBA to look for Styles Tag: 40619
  - 10
    - Form Fields I am using the following code to protect a form. Is it possible that protecting a form can set a checkbox to true? ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True, Password:=FORM_PASSWORD Mark Baird Tag: Using VBA to look for Styles Tag: 40615
  - 11
    - Merging documents I am trying to open a series of Word documents and then merge them into one larger document. Allis going well until I get to a document that as a Header....this does not get merged into the one larger document. The process I am using is: objDoc = Documents.Open(FileName:=strDocumentName, _ ReadOnly:=False, _ PasswordDocument:="xxx", _ WritePasswordDocument:="xxx") objWordApp.Selection.WholeStory ' *** this is not getting the Header objWordApp.Selection.Copy objWordDoc.ActiveWindow.Activate ' activate new document objWordApp.Selection.MoveDown Unit:=wdScreen, Count:=2 objWordApp.Selection.InsertBreak Type:=wdPageBreak objWordApp.Selection.Paste Can anyone please help me? Thanks, Barry Tag: Using VBA to look for Styles Tag: 40612
  - 12
    - Word Form-Field Capitalization Is it possible to set up a Word 2002 form field such that sentences beyond the first one entered into the field begin with a capital letter? I use fields that contain multiple sentences not infrquently and the first letter issue is easily tackled with the "First Capital" setting for the first sentence only. The setting appears not to be carried through to subsequent settings, however. Any help or pointers appreciated. Tag: Using VBA to look for Styles Tag: 40604
  - 13
    - Invoke a macro using the last-typed word as a macro name? I've previously asked about using an AutoCorrect entry to open a UserForm or invoke some code. I have a feeling that this may not be possible, but have an idea that would simulate it. Could someone please sketch out the code for: As I'm typing a document, instead of typing the next word in the sentence, I type the name of a macro. After the last character of the macro name I just typed, I press a function key, or an Alt+SomeLetter combination. At that time, Word deletes the previously-typed macro name from the document and invokes a macro having the same name as the previously-typed-but-now-erased word. (This would either insert text at the cursor, or open a userform. The fields in the userform would then be put into a string that would insert some canned text at the cursor.) If you can make any sense out of what I just wrote, please head me in the right direction ... TIA Tag: Using VBA to look for Styles Tag: 40598
  - 14
    - Can I "Get *this* table and put *here*"? I hope I can word this intelligently. I get a range from an Excel spreadsheet and paste it as a table into Word. The Word table is then broken into several smaller tables, based on a code group in the last column - this is saved as its own document. Could be anywhere from 20-40 smaller tables, each of which needs to go in its corresponding place in a report. There are actually about a hundred possible code groups. Is there any way I can write some code for the report that will: (A) find the code group mentioned in the paragraph preceeding the table's place, (B) open the document with the tables, find the right one, and paste it in, and (C) automatically update the report upon opening with the latest saved tables? Ed Tag: Using VBA to look for Styles Tag: 40597
  - 15
    - Can an Autocorrect entry open a Userform or run VB code? I have a situation in which the use of AutoCorrect entries are a great advantage in typing reports. It would be even more useful if an AutoCorrect entry could open a UserForm and data entered in that form could be inserted into the document. Is that possible? Could anyone supply, or tell me where to find some code to do that? TIA Tag: Using VBA to look for Styles Tag: 40591
  - 16
    - Word Save Document Macro Hi, i have create a Word Makro with has Events for SaveAs, SaveAll, DocumentClose. I don't want that the user saves the Document. That works fine. But my question is the following: How can i call a Makro with Events like onClose, onSave from another Word Document? That means i have Doc1.doc and MacroDoc.doc. Now i want to run Doc1.doc and on Startup or CommandLine i want to call the Macros of MacroDoc.doc. Or otherwise: How can i add a Macro to a Word Document wich is stored in a .bas File via CommandLine???? Thank you Yavuz Bogazci Tag: Using VBA to look for Styles Tag: 40590
  - 17
    - Mail Merge I have a HP9000 with a saddle stich option which allows me to make booklets. The limitation for a booklet is 40 pages. Currently I have a 36 page booklet that I wish to use in a mail merge for 20 unique people. When the mail merge is complete I end up with a document of 720 pages (36 x 20). Now my printer will not make the booklets because it thinks there are too many pages. How can I do a mail merge like this and instruct the printer to start a booklet after each 36th page?? Help. Tag: Using VBA to look for Styles Tag: 40588
  - 18
    - Filesearch... How can'I search the files what are including a string? (+ Filesearch) Tank Juan Carlos Biancotti jcbiancotti@QUITAESTOiespana.es Tag: Using VBA to look for Styles Tag: 40587
  - 19
    - Merging two cells into one I have a short macro that selects the current cell of a table, and the one below it, and merges them both into one cell: Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Cells.Merge However this macro does not work when the current cell contains text of more than one line (because of the 'Unit:=wdLine' bit, presumably). Is there a parameter I can use instead of wdLine? It does not seem to accept wdParagraph or wdTableCell or anything like that... Steve Wylie Tag: Using VBA to look for Styles Tag: 40586
  - 20
    - Searching a string till eof I want to search (through VBA) a string "ABC N.N", where n may be any number, one by one till end of Document & simoultaneously add a unique value to it, can this be possible? Regards, G Bahri Tag: Using VBA to look for Styles Tag: 40577
  - 21
    - Searching a string till eof I want to search (through VBA) a string "ABC N.N", where n may be any number, one by one till end of Document & simoultaneously add a unique value to it, can this be possible? Regards, G Bahri Tag: Using VBA to look for Styles Tag: 40576
  - 22
    - Searching a string till eof I want to search (through VBA) a string "ABC N.N", where n may be any number, one by one till end of Document & simoultaneously add a unique value to it, can this be possible? Regards, G Bahri Tag: Using VBA to look for Styles Tag: 40575
  - 23
    - Make e-mail window open without DOS window This code opens an e-mail window, but before the e-mail window opens, a DOS window opens and then goes away. Is there any way to have the e-mail window open without having the DOS window open at all? Dim RetVal RetVal = Shell("start mailto:", vbNormalNoFocus) Thanks, Larry Tag: Using VBA to look for Styles Tag: 40571
  - 24
    - Saving doc as MHTML Hi , I am generating a Word 2003 document using VBScript similar to the following: ' Create an instance of Word Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True ' Add a new document Set wrdDoc = wrdApp.Documents.Add wrdDoc.PageSetup.Orientation = wdOrientPortrait wrdDoc.Select Set wrdSelection = wrdApp.Selection wrdDoc.Select ' Create a string and insert it into the document StrToAdd = "Release Note" wrdSelection.Font.Name = "Arial" wrdSelection.Font.Size = 12 wrdSelection.Font.Bold = True StrToAdd = "Build Information" wrdSelection.ParagraphFormat.Alignment = 0 'wdAlignParagraphLeft wrdSelection.TypeText StrToAdd 'now save it as MHTML wrdDoc.SaveAs "C:\Temp\Dev\BuildReleaseNotes.mhtml",10 ' I have also tried wrdDoc.SaveAs "C:\Temp\Dev\BuildReleaseNotes.mhtml",8 But the resulting mhtml file is not in the correct MHTML format, I would like to know how to emulate the Word -> File -> Save As -> Web Archive (*.mht, *.mhtml) function in VBScript. Any help much appreciated.. thanks in advance Regards David E Tag: Using VBA to look for Styles Tag: 40566
  - 25
    - How do I use a custom function? This should be a simple but I cannot find the answer anywhere in the help index. I've created my own VB function in Word 2000 that converts a number to text. For example, if a cell in a table holds the number 1,234.56 it will return One thousand two hundred and thrty four pounds 56 pence. It's called F_AmountInWords. But I can work out how to use it in a cell. I've tried inserting a field with the field code = AmountInWords (RIGHT) \* MERGEFORMAT But it just returns "!Syntax Error,(." I gather this is because the = function only uses built in function, but how do I call one from Module1. Many thanks, Mark Tag: Using VBA to look for Styles Tag: 40561

Is there a way to move through a document until you find
text of a specific style (i.e. Header 1) and
then "capture" that text?

Top

Re: Using VBA to look for Styles by Steve

Steve
Thu Nov 06 16:58:34 CST 2003

Hi Brian,
Here ya go...

Sub FindStyle
Dim strFound as String
With Selection.Find
.ClearFormatting
.Format = True
.Forward = True
.Style = "Header 1"
.Text = ""
.Execute
End With

if Selection.Find.Found then strFound = Selection.Text

End Sub

This captures the text of the named style into a string variable (strFound)
to do with what you will.

HTH and have a great day!

Steve Lang

"Brian" <anonymous@discussions.microsoft.com> wrote in message
news:035601c3a4b6$6d972150$a501280a@phx.gbl...
> Is there a way to move through a document until you find
> text of a specific style (i.e. Header 1) and
> then "capture" that text?

Top