Looping through text boxes to change font

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - running another application from word Hello, I'd like to push a button on a toolbar to run another application. The program should receive arguments too. One of them should be the Word application. Regards, Roy Tag: Looping through text boxes to change font Tag: 74338
  - 2
    - Avoid deletion of text based on colour? I'm currently working with a template that contains a lot of text in a which should not be deleteted by the user. This text is inside protected sections and has a different colour thant the user-text. Due to numerous problems with these protected sections (e.g. spellchecking, macro's manipulating the document leaving it unprotected sometimes, ...) I was wondering if there is another way to protect text against deletion (e.g. check the colour before deleting it and if wrong colour then don't delete it. Any help is more then appreciated, Romain Tag: Looping through text boxes to change font Tag: 74337
  - 3
    - Hidding test based on style Some time ago the following code was posted to this newsgroup as a way to hide/display text based on its style. Sub ShowMessages() With ActiveDocument .Styles("Message").Font.Hidden = False .Styles("Summary").Font.Hidden = True End With End Sub Sub ShowSummaries() With ActiveDocument .Styles("Message").Font.Hidden = True .Styles("Summary").Font.Hidden = False End With End Sub Sub ToggleMessages() With ActiveDocument If .Styles("Summary").Font.Hidden = False Then .Styles("Message").Font.Hidden = False .Styles("Summary").Font.Hidden = True Else .Styles("Message").Font.Hidden = True .Styles("Summary").Font.Hidden = False End If End With End Sub I have created a document (attached) that has lines of text that are alternately formatted using Summary Style or Message Style. I find that the ShowMessages macro hides all text regardless of style and ShowSummaries shows all rext regardless of style. I feel I am doing something fundamentally wrong. Can you offer any assistance? Many Thanks Tony Starr PS. I am using Word xp Tag: Looping through text boxes to change font Tag: 74335
  - 4
    - VBA - Replace filename Hi guys, I'm just trying to create a little macro to search for the mergefield filename (in any format) and replace with {filename \* lower \p \* mergeformat}. For some unknown reason it really doesn't like this. I've turned on codes, different view, will find filename but won't replace. Then I have to loop it through the sections. Any help much appreciated in advance. Tag: Looping through text boxes to change font Tag: 74331
  - 5
    - How can I help my son with QBasic for a Compter Programming class My son is taking a test he needs help with a computer programming class on QBasic the test is this Friday. Tag: Looping through text boxes to change font Tag: 74330
  - 6
    - Checking readonly & password without opening file Hi, I'm trying to check the Read Only and Password protection properties of a list of Word (and Excel) files by a macro. Is there a VBA method, that I can use in batch, to check these properties without actually opening the file itself? If the file is password protected I obviously cannot open the document in batch to check the ActiveDocument property. Check if the document is read only ActiveDocument.ReadOnly ActiveDocument.ReadOnlyRecommended Or a way to find out if document has been password protected: ActiveDocument.SaveAs .. Password:="pwd" ActiveDocument.SaveAs .. WritePassword:="pwd" I tried to use the "Microsoft Scripting Runtime" library FileSystemObject but it did not give me the file properties I needed. If possible, I would like to run this check from an Excel macro. Thanks for your help in advance, E Tag: Looping through text boxes to change font Tag: 74329
  - 7
    - Open as New document... Is there a way using VBA to open an existing document or a template as an unnamed document, similar to double-clicking a .DOT file and having it open as Document1? I'm trying this but it only opens the document, which I don't want overwritten: Dim wd as Word.Application Dim wDoc as Word.Document Dim WordFile as string WordFile = "test.doc" Set wDoc = wd.Documents.Open(WordFile) Thanks, King Wilder Tag: Looping through text boxes to change font Tag: 74327
  - 8
    - Using fields with VBA: need explanation I need (a link to?) an explanation with examples of how to insert and manipulate fields using VBA. I can do it by recording, but I know there's a cleaner, more robust way to do it. [This was the real question in my longer post, which got no replies: http://www.officekb.com/Uwe/Forum.aspx/word-vba/10038/Conditional-even-page-macro-bad-VBA-to-good-VBA] Thanks... Chris Brewster -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200509/1 Tag: Looping through text boxes to change font Tag: 74326
  - 9
    - How to perform a "pseudo" ActiveDocument.protect I have a need to prevent changes from being made to an ActiveDocument. The limitation is I'm trying to "band-aid" a 3rd party application. It breaks if the ActiveDocument is protected. I know that I can capture the user moving the mouse (i.e making a selection) via WindowSelectionChange event. How can I then prevent the user from making any changes or additions (pseudo-protect)? Is there a built-in macro(s) that I could override? Tag: Looping through text boxes to change font Tag: 74325
  - 10
    - SEND I have created a Word 2003 form. I would like to develop a simple Macro that emails this Word form, as an attachment, to a distribution list (or individual recipients). I use an Exchange 2003 server. Any links or suggestions to get me started would be appreciated. Aaron Neunz Tag: Looping through text boxes to change font Tag: 74319
  - 11
    - Scrolling to the selection Hello, How can I programmatically scroll to the selection? Word doesn't allways do it automatically. Regards, Roy Tag: Looping through text boxes to change font Tag: 74317
  - 12
    - Hyperlinks and paste Hi, I'm using Word 2003. I have a Word document which has a hyperlink. The link "Click here" opens the URL ?page=something. When I save the document and open it, the link is just fine. But when I copy the link and paste it, save the document, close it and open it again, the URL will be: %3fpage=something (it should be ?page=something) How can I tell my VBA application not to convert "?" to "%3f"? Mika Tag: Looping through text boxes to change font Tag: 74316
  - 13
    - FILL IN FIELDS I have a macro which creates a document based on a template. It prompts at all the fill in fields. Can I de-activate the fill in fields until later as I have written a counter macro which searches for each fill in field in the document, prompts you for an answer (I do this so that you can see exactly where you are in the document), adds the answer to the fill in field, clears that specific field and moves onto the next one. Problem comes in that when you add the document it promps for the fill in fields which I don't want. How can I disable it. At the moment my macro looks like this: Sub Test() Documents.Add Template:="c:\templates\Articles Employment Contract.dot", NewTemplate:=False, DocumentType:=0 With ActiveDocument.Variables For i = .Count To 1 Step -1 .Item(i).Delete Next i End With Call counter End Sub Can I when I say documents.add tell it not to prompt at the fill in fields? Can I lock the fields not to update as suggested by someone else. If yes, how do I lock the fields? Tag: Looping through text boxes to change font Tag: 74310
  - 14
    - Problem loading picture in Forms.Image Hi, i "use" VB6 to open MS Word document and fill Forms.Image controls. The problem is that when i execute function below in VBA works, but when i execute this function in VB6 it i get this error: Run-time error -2147418113 (8000ftfty): Method Picture' oF object 'Ilmage' Failed My code : For Each sh In ActiveDocument.Shapes If sh.OLEFormat.ClassType = "Forms.Image.1" Then With sh.OLEFormat.object .BackColor = wdColorWhite .BackStyle = fmBackStyleTransparent .AutoSize = False .PictureAlignment = fmPictureAlignmentCenter .PictureSizeMode = fmPictureSizeModeZoom .Picture =LoadPicture("image path file") End With end if next ---------------------------------------------- Posted with NewsLeecher v2.0 RC2 * Binary Usenet Leeching Made Easy * http://www.newsleecher.com/?usenet ---------------------------------------------- Tag: Looping through text boxes to change font Tag: 74298
  - 15
    - word not opening correctly. When I try and open word, I get that it has encountered a problem and needs to close. Then it ask to open word in safe mode. I am unable to open docs that have been saved in this mode. I have used the installation disk to repair and even reistall, but I get the same response. Please help. Tag: Looping through text boxes to change font Tag: 74297
  - 16
    - Copy current page + next two pages Hi, I'm wanting to select and copy the current page + next 2 pages to a new document. I use the following code to copy a page, but can "\page" be modified to "\page +2"???? Code is.... Sub CopyPage() 'Select and copy the text to the clipboard ActiveDocument.Bookmarks("\page").Range.Copy ' Open new document to paste the content of the clipboard into Documents.Add Selection.Paste End Sub Thanks Simon Tag: Looping through text boxes to change font Tag: 74296
  - 17
    - WORD VARIABLES NOT CLEARING I have a huge vba project in word. I previously had a variable called "ELet_Heading" in my .dot document. I renamed this to "ELet_RE" and added a few more variables. When I run the macro its seems to remember what the previous variables were called and do not count through all variables although I use the following in VBA: For Each avar In ActiveDocument.Variables If avar.Name = "ELet_RE" Then num = avar.Index Next avar If num = 0 Then ActiveDocument.Variables.Add Name:="ELet_RE", Value:=TextBox2.value Else ActiveDocument.Variables(num).Value = Textbox2.value End If I do this for each and every variable but when I do the test counting the variables it only has 10 variables instead of for instance 15 variables and looking at the avar.Name I see that it doesn't run through all the variable names. Is there a way of clearing / deleting / removing the variables attached to that template so that it can see the new variables as well. Tag: Looping through text boxes to change font Tag: 74293
  - 18
    - Importing Excel data into Word i'd like some suggestions on how to proceed. i have an automation task i'd like to accomplish. instead of cutting and pasting data from excel to word, Iid like to dynamically generate a set of report paragraphs from each row in an excel spreadsheet. i have a report format in a word table. the excel spreadsheet has the report data and each column heading corresponds to a data field type within the word table. each row in the spreadsheet would be a different set of data and would need to be on a separate page. so, i'd like to programmatically ... fill in the word table with the first row of data, then insert a page break and generate a similarly formatted table with row 2 data, and so on until all of the rows with information have been imported into the word tables. some of the key things to consider are that I will not have a static set of excel rows for each report, so the code has to figure out how much data i have and make the appropriate number of pages in word. what is the best approach here? is it to use fields? thanks for any feedback, suggestions, or pointers to examples. NBA Tag: Looping through text boxes to change font Tag: 74291
  - 19
    - Add Blank Lines Prior to Table - Word2002 Hello, I have a two-column Word table which is triggered in MS Access. It properly opens Word, sets the Access data into the respective columns, obediently autoformats the Word table, saves the formatted document into a folder as .doc file on the server and opens the "Envelope Visible" feature for emailing. However, not being yet savvy in the Word-side of the programming spectrum, I have one final need and am asking if someone could please help me out with the proper method of inserting a couple of vbCrLf's prior to the insertion of the table? I've searched many sites as well as the Word vb help files and have probably seen the answer many times over but am not properly assimilating into the block of ice between my shoulder blades, sometimes known as my head. Also, does anyone know if the table autoformatting process forces the table to the top of the document anyway, where it could potentially override my needed vbCrLf (or best procedure) coding? Thank you. Tag: Looping through text boxes to change font Tag: 74290
  - 20
    - Page Ref Field Hi everybody I know how to use the Page Ref Field in a document but I need to use it in one document while the bookmark is located in an other one, eg. a study book (document 1) where it is said: "after reading this lesson, go to the workbook (document 2) and do the excercise "two" page Y. How to do that? Any idea. Could not find any clues anywhere... Thanks in advance Alain Kadlec Ottawa Tag: Looping through text boxes to change font Tag: 74288
  - 21
    - Hyperlinks Collection Incomplete Hi, My cover page is an ordinary Word 2000 doc which has many hyperlinks (often 50 or more). Then, there is a Word macro which is coded to follow all hyperlinks and print each document. I have noticed two problems: Problem #1: The Hyperlinks collection will sometimes return the hyperlinks in the wrong sequence (not in the order they appear on the page). Problem #2: The Hyperlinks collection will miss many hyperlinks in the current document. Both problems happen more often when the hyperlinks "wrap" from one line to the next. (Yes, that's a long link, but they are indented too by several levels). In that case, the second line of the hyperlink is blue and underlined, but the first line is not. Tried these fixes: 1) Install SR-1, SR-2, and SR-3. These work for a while (about a week), then problem #1 comes back 2) Put a sequence number into the text of the hyperlink, then wrote code to print based on the value of the sequence number. Unfortunately, I discovered Problem #2. My macro prints a few documents, then it stops. All it does in my loop is to put the Address into an array. (It doesn't delete any hyperlinks ever). Sometimes, in Problem #2, the Hyperlinks collection is totally empty. Then, the macro obviously prints nothing. Yet, the hyperlinks are clearly visible on the cover page. What can I do? Thank you VictorReinhart Tag: Looping through text boxes to change font Tag: 74286
  - 22
    - Conditional even-page macro: bad VBA to good VBA? I wrote a macro that adds a section break with a blank page before it (blank other than saying "Blank Page" in the middle). This page appears only if it is an even-numbered page. The macro works fine, but it's made from recording within Word. I've tried to understand how to do this with better VBA but can't find a good explanation of creating and manipulating fields with VBA. (O'Reilly's "Word Macros" gives a glimpse but not enough to go on.) I'll put my code here. What I'm hoping is that someone can show how good VBA would do this. (I learned about this field from John McGhie's page at http://word.mvps.org/FAQs/TblsFldsFms/InsEvnPgEndChap.htm.) If you try my macro as written, your document or template needs paragraph styles called "Body Text" and "BlankPage" (mine is centered, italic, 250pt before). When your document has the conditional field in it, it must be updated to work; this usually happens automatically at appropriate times. Public AddSectBrkAndCondPage() ' ' Adds a section break and a conditional blank page saying ' "Blank page", which appears only if the preceding section ' ended on an odd-numbered page. ' Macro recorded 9/26/2005 by Christopher Brewster ' ' Conditional field will be in the following form. Spaces ' are important, and {} characters are not from those keys ' on the keyboard, but are generated by Ctrl-F9. ' { IF { =MOD( { PAGE },2) } = 0 " " " ' ----------------Page Break-------------- ' Para ' Blank page" } ' ======Section Break (Next Page)========= ' Add section break ' Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.InsertBreak Type:=wdSectionBreakNextPage Selection.MoveLeft Unit:=wdCharacter, Count:=1 ' Create three nested fields Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False ' Add var. to be tested within the innermost field Selection.TypeText Text:="PAGE" ' Go to beginning of the line and add code details Selection.HomeKey Unit:=wdLine Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="IF " Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="=MOD( " Selection.MoveRight Unit:=wdCharacter, Count:=8 Selection.TypeText Text:=",2) " Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=" = 0 "" "" """ ' Paragraph mark must appear on blank page, not on last page ' of the section... ' Add page break, which also creates a paragraph mark Selection.InsertBreak Type:=wdPageBreak ' Go back and delete paragraph mark Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 ' Go forward and add paragraph mark Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph ' Add label to display on the blank page Selection.TypeText Text:="Blank page""" ' Go back and set correct paragraph styles ' The "Blank page" line has no para mark. The BlankPage ' style applies to the label and the section break Selection.Style = ActiveDocument.Styles("BlankPage") ' Set the para mark and page break as Body Text Selection.HomeKey Unit:=wdLine Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Style = ActiveDocument.Styles("Body Text") ' Put the field into effect Selection.Fields.Update ActiveWindow.View.ShowFieldCodes = False End sub -- Message posted via http://www.officekb.com Tag: Looping through text boxes to change font Tag: 74284
  - 23
    - VBA coding to delete styles I want to delete all styles from the active document and copy new styles from another(xyz.dot) template. What will be the coding? Thanks Tag: Looping through text boxes to change font Tag: 74283
  - 24
    - Carry a variable content to a new document I generate a variable, named "MyVariable", using the Public statement. When the variable is set, I want to use the contents in another document, using the same name, within the new documents macro. Example MyVariable = "55555" ChangeFileOpenDirectory _ "C:\MyDocuments\" Documents.Open "Filename.doc" Application.Run MacroName:="Look4Me" In "Look4Me", I set a variable equal to MyVariable, but MyVariable is always empty. The original document which identified MyVariable is still open and running. How can I keep the variable contents? Tanks Tag: Looping through text boxes to change font Tag: 74281
  - 25
    - Extracting Field Data Using VBA Once a document is open in VBA, is it possible to get the data associated with named reference fields: For example the document has the following field: { REF DocNum \h \* MERGEFORMAT } How can I retrieve the value (i.e. 2005-West-11 in this case) using VBA? Thanks! Don Tag: Looping through text boxes to change font Tag: 74280
- Next
  - 1
    - Inserting a macro into a macro I am trying to put a macro in a form through a hyperlink that when the hyperlink is used, it automatically sends the form to my email. Is there any way to do that? Tag: Looping through text boxes to change font Tag: 74277
  - 2
    - Setting the value for CustomDocumentProperties I am trying to create a version feature in Word VBA. I've got most of it to work properly, but for some reason, I am unable to set this value. I have created both a bookmark and a Word.Variable named "Version" to handle this processing. I have correctly linked the source of the bookmark, Version, to the variable. The bookmark source correctly updates, but the bookmark value does not update correctly, and shows a broken link when I view it in the File-->Properties window. So everything is working properly, except for the updating of the Value of the Version property. Below is the code that is crashing, specifically, the line that reads, CustomDocumentProperties("Version").Value = lnkSrc. This keeps saying that the Value method of DocumentProperty has failed. Value is not a method, but a property in this instance, how can I fix this? The following code is run when the user clicks on a button to update the version number: For Each prop In ThisDocument.CustomDocumentProperties If prop.Name = "Version" Then Dim lnkSrc lnkSrc = ThisDocument.Variables(1).Value CustomDocumentProperties("Version").LinkSource = lnkSrc CustomDocumentProperties("Version").Value = lnkSrc End If Next Tag: Looping through text boxes to change font Tag: 74276
  - 3
    - Are there smart tags available for chemical names? How do I get around the differences between common English and the rules used for complex chemical nomenclature? Tag: Looping through text boxes to change font Tag: 74274
  - 4
    - Copy multiple paragraphs from multiple documents into one document I need to copy addresses from 1000 documents and put them into one document. I need a macro that will copy from all documents under one Folder and Paste them into another document, preferably a Table. I can work with the formatting later. I located a "How to Find & ReplaceAll on a batch of documents in the same folder", but I am not good enough to modify it to Select the correct area and Copy and Paste instead. Tag: Looping through text boxes to change font Tag: 74272
  - 5
    - Opening File Dialog throws odd memory error Hi all, I have a line of VBA code that displays a file open dialog using the Application.FileDialog(msoFileDialogOpen) object. However, sometimes when I execute the .Show method I get a message box saying "There is not enough memory or disk spec to complete the operation". I don't believe it really a hardware related issue as I'm not shot of either RAM or HD space, but more curiously if I change the object to be of type msoFileDialogPicker then it will display the dialog. In fact the problem seems to be interchangeable between the two file dialog types, i.e. they will both cause the problem at some point. So does anyone know either a) what might cause the problem in the first place? b) something I could do in my code prior to calling Show to sort out the memory? I can't catch the error either to dynamically switch object types because it seems to be raised by Word and not the VBA runtime. TIA Craig Tag: Looping through text boxes to change font Tag: 74271
  - 6
    - How to (Task Pane) Is it possible to create task pane in word 2003 without using smart document? Bcoz I dont need any xml or xsd files. Please help. Tag: Looping through text boxes to change font Tag: 74264
  - 7
    - DsoFramer ActiveX Control Problem I am having a problem with the BeforeDocumentSaved event for the DsoFramer: http://support.microsoft.com/default.aspx?scid=kb;en-us;311765 Here is the sig: BeforeDocumentSaved(ByVal Document As Object, ByVal Location As String, Cancel As Boolean) I *can* get the save to be cancelled in VB6: e.g. Private Sub oFramer_BeforeDocumentSaved(ByVal Document As Object, ByVal Location As String, Cancel As Boolean) MsgBox "not going to save :p" Cancel = True End Sub But I *can't* get this to cancel in VBScript or JScript... JScript: <script language="JScript" for="oframe" event="BeforeDocumentSaved(Document, Location, Cancel)"> BeforeDocumentSaved(Document, Location, Cancel) </script> function BeforeDocumentSaved(Document, Location, Cancel){ alert("will still save :("); Cancel=true; } VBScript: Sub oframe_BeforeDocumentSaved(Document, Location, Cancel) MsgBox "saving" Cancel = True End Sub Can someone offer some ideas on how to get this to cancel the save. My thoughts are that somehow this is passing the Cancel parameter by value rather than reference. Thanks, Owen. Tag: Looping through text boxes to change font Tag: 74263
  - 8
    - This one's tough: Finding Character Styles from VBA I need to determine whether character styles are in use for any sub-portion of a Range. If you've worked with Range properties, you know that MOST properties (e.g. .Bold) return a special undefined value (such as 9999999) when the property value is not uniform over the range. However, Word uses the Range.Style property for BOTH Paragraph Styles and Character Styles. If you query the .Style property for a Range which is ENTIRELY in one Character Style, the value will be the name of the Character Style. The moment that the Range overlaps by a single character, into a run with either another Character Style or no Character Style, then the return value will be the name of the Paragraph Style for the Range. (If the Range overlaps two paragraphs with different Styles, then Range.Style will be Nothing) One solution is to check every single character in the range. That's effective, but extremely slow. Word-by-word checks would be faster, but not 100% reliable. A second solution is to examine all of the character styles in defined for the document (I'm really only interested in the ones which Word has created on its own from Paragraph styles, such as "Heading 1 Char"), map out everywhere they are in use in the document (including Footnotes, etc.), and then see whether any of those ranges overlap the areas of the document that are of interest to me. That is faster than solution 1, but requires 1-200 lines of VBA code, and is still a kludge. Does anyone have a direct and elegant way of accomplishing this? A direct cc: to me, in addition to a reply-to-group, would be appreciated. -- Fletcher James President Levit & James, Inc. (703)771-1549 MailTo:fjames@levitjames.com http://www.levitjames.com Tag: Looping through text boxes to change font Tag: 74258
  - 9
    - Macro inconsistently refuses to let me size columns I have a macro that builds a table, populates it, and sizes the columns. Sometimes, expecially when I am debugging, the system throws an error that says that I can't access table columns because the table contains cells of different sizes. Then, other times the system sizes the columns correctly. This is driving me crazy! -- Nancy Tag: Looping through text boxes to change font Tag: 74256
  - 10
    - I want to create macros within custom toolbars I would like to create macros with customized toolbars and THEN put them in a drop down list available to users Tag: Looping through text boxes to change font Tag: 74255
  - 11
    - How do I prevent users from using the "Enter" button on my form? I made a form for work, however when someone uses the "Enter" button, it ruins the formatting of the form. Could someone illistrate to me how I can disable the Enter button in my form when I protect it. Tag: Looping through text boxes to change font Tag: 74254
  - 12
    - Word automation questions (Using from VB6) I'd like to create a new Ms Word document from my VB6 application using a template. I'am new using automation, so i have some questions. 1) I set a reference to my project "Microsoft Word 11.0 Object Library". Is this backwards compatible with older versions of Microsoft Word ? Is it possible to load it dynamic (depending on a users version of Microsoft Word) 2) Is it possible to check if Microsoft Word is installed ? 3) Whats the best way to create an instance of Microsoft Word and create a new document from my template ? (Must work with and without an existing running instance of Microsoft Word) Dim wdApp As Word.Application Dim docNew As Word.Document Set wdApp = New Word.Application Set docNew = wdApp.Documents Add(App.Path & "\report.dot") -Or - Dim wdApp As Word.Application Dim docNew As Word.Document Set wdApp = GetObject(, "Word.Application") If wdApp Is Nothing Then Set WordApp = CreateObject("Word.Application") End If Set docNew = wdApp.Documents.Add(App.Path & "\report.dot") -Or Better solution Thanks in advance, Robertico Tag: Looping through text boxes to change font Tag: 74248
  - 13
    - Can I launch MSO Document Imaging from a Word macro? I need to be able to display a *.tif file programmatically from a Microsoft Word Visual Basic macro. I'm running Microsoft Office Professional 2003 in Windows XP. I've created a reference to the Microsoft Office Document Imaging 11.0 Type Library and added the MODI Viewer control to my toolbox, but when I try to add the control to a form or document I get a message saying "Library not registered." What do I need to do to be able to use this control, or even just to launch the *.tif file in Microsoft Office Document Imaging from a Word macro? Tag: Looping through text boxes to change font Tag: 74246
  - 14
    - Smart Document Deployment Issue I am using Code Signing certificate from Thawte for signing the Manifest.XML and C# DLLs. If I deploy this pack on my development machine everything works fine. But when I try to deploy it on QA machine I get a Security Warning dialog stating "An error occurred while verifying signature. Do not trust these credentials." and "Always trust macros from this publisher" checkbox is disabled. If I use XMLSign tool to verify it on QA machine, the Security Warning dialog displays as "Publisher authenticity verified by Thawte Code Signing CA". Can anybody please help me to resolve this issue? Any help will be really appreciated, Thanks is advance, Milind Kadam Tag: Looping through text boxes to change font Tag: 74245
  - 15
    - Repeat Header problem Hi I encounter the following problem: After inserting a table to the document I add the following lines: obTable.Rows.HeadingFormat = True obTable.Rows.AllowBreakAcrossPages = False and the table heading is not repeated, however when I record this design to a macro the come seems identical but that table does repeat the heading Thank you, Shmuel Shulman Tag: Looping through text boxes to change font Tag: 74243
  - 16
    - Save As Macro Guys, I am trying to create a Word 2002 macro that when ran it'll pop up the save as box which will be a specific network folder. Can anyone help. Many Thanks kevin Tag: Looping through text boxes to change font Tag: 74236
  - 17
    - macros that runs when move to another document of change focus Is there a way to run a macro when you chnage focus to another word document? ie. got two documents open and you switch between them without closing them? MervB :-) Tag: Looping through text boxes to change font Tag: 74231
  - 18
    - Smart Document Problem We have developed a smart document program which adds document action pane in word 2003. As we are suppose to delevering this to endusers they do not see the XML tags as we are hidding it programmatically. We want to show the action pane globally for a document I said globally because the XML tags are not important to us we are storing the changes made in active pane as a custom property of that document. But now the problem is that I want to place the XML tag like one at start of document and one is at end of document. Please guide me, I am new to smart document SDK. Am I going on the right track? Is it the proper way of using smart document? and also we want to deploy this on only office 2003 machines. Lots of thanks in advance. Tag: Looping through text boxes to change font Tag: 74230
  - 19
    - I need to attach a toolbar in a .doc so that it travels with the . I have created the custom toolbar, but need to attach is so that when the template is emailed the toolbar will appear - even if it's not previously set up on their computer. I have the template as a .doc as I understand it is not possible to attach custom toolbars to .dot that will work in the way I wish Does anyone know how to attach the toolbar? Many thanks Tag: Looping through text boxes to change font Tag: 74227
  - 20
    - Insert text into certain position in word Hello: I want to export some data from Ms project and insert these text into special position ( Line and column ) . But i don't know how to navigate in word. i mean i have no idea about how to mark the position where i want to add new text. please give me some good ideas on how to do it. Thanks for your attention ! Tag: Looping through text boxes to change font Tag: 74223
  - 21
    - Objects disconnected from clients In Word 2000, I created a template with a toolbar button that runs a macro that inserts 4 returns and an AutoText entry. The AutoText entry is a "Verify No Defects" symbol that I drew in Word. It consists of a 4 grouped objects: a circle, a diagonal line, the word "Defects", and a checkmark. This AutoText inserts consistently without a problem when the toolbar button is clicked. However, I have another toolbar button that does exactly the same thing except that the AutoText entry that it inserts has 5 grouped objects: the same 4 described above and an additional check mark. This macro works fine on some occasions but on others gives this Run-time error: '-2147417848 (80010108)' Automation error. The object invoked has disconnected from its clients. Can anyone explain this error message to me and tell me how to fix the problem? I have come up with one solution but I don't like it. I copied the grouped items and pasted them into Microsoft Picture. They then became one "inline with text" object instead of a "floating" object and the macro works fine. However, I really want the floating grouped object. TIA, Vivian Carroll Tag: Looping through text boxes to change font Tag: 74220
  - 22
    - Shapes OLEObject FileName change How do you cnange the FileName of an existing shapes? Tag: Looping through text boxes to change font Tag: 74219
  - 23
    - EMail from Word2003 hi i ask this as no one replied to my earlier query. i want to send a word document as an attachment without using Outlook. is there a .dll file that comes with WinXP or something (something high level, not socket level :) ) that can be used to send email using VBA? i'd rather not use a third party library/dll as i want to maximise the chances of a user being able to send the email at one go. thanx again riyaz Tag: Looping through text boxes to change font Tag: 74214
  - 24
    - Print Mailmerge - Access Password Protected Hi, I use VB6 for mailmerge a Word2000 document connect with access2000 database. My customer throw my program set a access database password. I'd like to do a word's print from my program without change doc's files. I'd tried with this code.... x = WrdApp.Application.Documents.Open( myDocument ) !!!!!!! Here Word Ask me database's Password With WrdApp.ActiveDocument.MailMerge .DataSource.ConnectString = (IMPOSSIBLE Is ReadOnly) .Destination = wdSendToPrinter .Execute End With Can i solve this problem without change word's document ?? Sorry for my bad english !!!!! Thank's Daniele Pinai (Italy) Tag: Looping through text boxes to change font Tag: 74212
  - 25
    - Macro from WORD to FRONT PAGE Hallo everybody. I have a really big problem: I made many macro in WORD, EXCEL an ACCESS (I made quite 100 macros, in OFFICE 2000). Now, to make my work simpler, I want to prepare a web site with the links I need to work, and some commands in the pages. So: I need to prepare a button that, on click, run my macro. What can I do to obtain this? Please help me!!! Guido Tag: Looping through text boxes to change font Tag: 74210

Hi,

I'm wanting to create a macro to change the font in all text boxes with a
document. I'm guessing I need to select each box and change the
properties....one at a time. Each document has different types of objects
(Select All doesnt work).

If any one can help with code so make a simple loop macro, I'd appreciate
it.

Thanks
Santa

Re: Looping through text boxes to change font by Jean-Guy

Jean-Guy
Thu Sep 29 09:35:12 CDT 2005

Santa Claus was telling us:
Santa Claus nous racontait que :

> Hi,
>
> I'm wanting to create a macro to change the font in all text boxes
> with a document. I'm guessing I need to select each box and change the
> properties....one at a time. Each document has different types of
> objects (Select All doesnt work).
>
> If any one can help with code so make a simple loop macro, I'd
> appreciate it.
>

Try this (There are two loops in case some of the Textboxes are inline with
the text):

Dim myShape As Shape
Dim myInlineShape As InlineShape

For Each myShape In ActiveDocument.Shapes
With myShape
If .TextFrame.HasText Then
.TextFrame.TextRange.Font.Bold = True
End If
End With
Next

For Each myInlineShape In ActiveDocument.InlineShapes
With myShape
If .TextFrame.HasText Then
.TextFrame.TextRange.Font.Bold = True
End If
End With
Next

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

Re: Looping through text boxes to change font by Jonathan

Jonathan
Thu Sep 29 08:08:23 CDT 2005

Hi Santa

Something like this should put you on the right track

Dim oShape as Shape
For each oShape in ActiveDocument.Shapes
If oShape.TextFrame.HasText Then
oShape.TextFrame.TextRange.Font.Name = "My new font"
End If
Next oShape

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

"Santa Claus" <santaclausinau@hotmail.com> wrote in message
news:433bd2a5_1@news.iprimus.com.au...
> Hi,
>
> I'm wanting to create a macro to change the font in all text boxes with a
> document. I'm guessing I need to select each box and change the
> properties....one at a time. Each document has different types of objects
> (Select All doesnt work).
>
> If any one can help with code so make a simple loop macro, I'd appreciate
> it.
>
> Thanks
> Santa
>