check if specific picture exist in footer

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - I no longer have the cd for xp and word won't do certain function I have windows xp but, I no longer have the cd and I am not able to use certain functions on microsoft word and other programs ( such as in microsoft word I can't use the dictionary or look up a word. Please help. ~Thanks~ Tag: check if specific picture exist in footer Tag: 93098
  - 2
    - Error 462: Server not available Hi, I execute a program from Excel that copy excel table into Word and format the table thereafter. Sometimes (about 1 time on 3), the program stop at the following line: .LeftIndent = CentimetersToPoints(0) (see program below) The error message is: "Error 462": Server not available After having an error, I can restart the macro and all works. I really don't know what is the problem. It seems to come with: With appWord.Selection.ParagraphFormat The Word reference is open inside Excel (10.0) and there's no missing error. Thanks a lot! Alex Dim appWord As Word.Application Dim docWord2 As Word.Document Dim oExcel As Object 'Excel.Application Dim owb As Object 'Excel.Workbook Dim oXlRng As Object 'Excel.Range Dim tbl As Word.table On Error Resume Next Set appWord = GetObject(, "Word.Application") If appWord Is Nothing Then Set appWord = CreateObject("Word.Application") End If On Error GoTo 0 Set owb = oExcel.ActiveWorkBook Set docWord2 = appWord.Documents.Add Set oXlRng = owb.Sheets("abc").Range("TableOutput") oXlRng.Copy appWord.Selection.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False Set tbl = docWord2.Tables(1) docWord2.Bookmarks(1).Delete tbl.Select appWord.Activate With appWord.Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) 'Error here .RightIndent = CentimetersToPoints(0) .SpaceBefore = 2 .SpaceBeforeAuto = False .SpaceAfter = 2 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle End With -- Alex St-Pierre Tag: check if specific picture exist in footer Tag: 93097
  - 3
    - Bookmarks and references to bookmark in a table HI, I have the following requirement. Would it be possible to do in a macro code? 1. I have 2 tables. Each has 3 rows and 2 columns. 2. From table2-row1, I would like to reference table1-row3. This includes creation of bookmark in table1-row3 and reference the same from table-2-row1 3. By executing above step - In table-2-row-1 (reference) I would like to have a proper text that mentions "At row - 3 of table-1....."(bookmark location) 4. If I insert an additional row in table-1 before the bookmark row(row-3), I would like the reference in table-2-row1 to mention "At row - 4 of table-1....." automatically. Need your assitance in getting the macro code for step-2, 3 and 4. Thanks in advance, Seekar. Tag: check if specific picture exist in footer Tag: 93096
  - 4
    - error 5941 debugging help needed. I have set up a macro to insert filename and path in the footer of a document as follows. For some reason this code stops at the line of code midway down where it is actually putting the info in the footer. All you see in the document is "IF 1 = 1" on some workstation but not others. All workstations are using the same image of Office installed some time ago. Does anyone have any ideas what would cause this to happen?????? ' RefTag Macro ' Macro recorded 10/7/2005 by ' 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.Font.Size = "10" Selection.TypeText Text:="IF " Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeText Text:=" = " Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages Selection.TypeText Text:=" " ActiveDocument.AttachedTemplate.AutoTextEntries("Filename and path"). _ Insert Where:=Selection.Range, RichText:=True Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.EndKey Unit:=wdLine Selection.Fields.Update Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Fields.Update ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Tag: check if specific picture exist in footer Tag: 93095
  - 5
    - insufficient memory - ActiveDocument.Fields.Update We have a macro that updates all the fields in a document using the following: ActiveDocument.Fields.Update On larger documents we are getting the insufficient memory error. Is there anyway around this? Tag: check if specific picture exist in footer Tag: 93090
  - 6
    - Macro's in MS Word leading into Outlook I have a table set up in MS Word. I have a column that the answer is either Y or N. What im looking to do is, when a user enters a Y, this automatically opens an email from outlook. Depending on how complicated it is to do, the email can either be blank, and just be used as a prompt containing the title 'New CBP SITE ISSUE', or open containing the email adresses of Project leads on the team and including the title above. I am currently working on MS Word 2000 9.0.3821 SR-1 and MS Outlook 2000 SR-1 9.0.03821 Is this something anybody can help me with. TIA Dani Tag: check if specific picture exist in footer Tag: 93087
  - 7
    - Action on New Page Is it possible to automatically invoke a macro when a New Page is created in a Word Document, either by reaching the end of a page, or by inserting a page break? I'm thinking in a similar way to AutoNew or AutoOpen... Word 2000 solution needed if there is one Tag: check if specific picture exist in footer Tag: 93086
  - 8
    - Dutch Math I need to write program code for 'international' applications. I have set my Region settings to Dutch(Netherlands). In Dutch (and other major languages), commas represent the decimal point and periods represent the thousands separators. I wrote this simple formula: Dim mynumber As Single Dim mynumber2 As Single Dim mynumber3 As Single Dim mynumber4 As Single mynumber = 1,50 mynumber2= 5 mynumber3=mynumber + mynumber2 mynumber4=mynumber3 + 1.5 I get a 'Compile Error, Expected End of Statment' message with the row "mynumber = 1,5" highlighted. What am I doing wrong? How can I overcome this? Unfortunately, it seems not to be simple matter of putting a period in place of the comma, for when I actually try to run a calculation using decimals as, the results come out in commas. Chaining calculations becomes more than very confusing (at least to me), because of the fact that the answer returned after the first calculation is expressed in Dutch (e.g., 1,5), but the next entry must be entered in 'American'. And if the initial values are picked up as string variables from an input box, it becomes even more confusing. Are there resources to help explain this? Tag: check if specific picture exist in footer Tag: 93075
  - 9
    - AutoNew and Private I am trying to get my head around Private declarations and AutoNew/AutoOpen options. I have the following code that works: Option Explicit Dim cb As CommandBarComboBox Sub AutoNew() SetComboBox End Sub Private Sub SetComboBox Set cb = CommandBars("Test").Controls.Add(msoControlComboBox) with cb .OnAction = "SetColour" .AddItem "Green" ' Other setup stuff that works.... End With End Sub Private Sub SetColour Select Case cb.Text Case "Green" 'Run another Macro that doesn't matter here EndSub If however I declare AutoNew as Private so that it is hidden from the Macro list then the above breaks at the Select Case Statement. Where am I going wrong? Tag: check if specific picture exist in footer Tag: 93072
  - 10
    - Error when trying to copy Excel Chart into Word Doc -Method 'Activ Office2003 SP2 I am getting this error when I use the code below. -2147417851 Method 'Activate' of object 'ChartObject' failed The code is intended to copy a chart from sheet1 of the XL workbook to a bookmark in the current Word doc. You will see that I have tried some diagnostic code and I get the correct answers to those commands. Can anyone suggest any way of resolving this? Pete Sub InsertXLChart() Dim xlapp As Excel.Workbook Dim chrt As Excel.ChartObject On Error GoTo errhandle Set xlapp = GetObject("c:\testbk.xls") ' debug code (shows correct info) ' MsgBox xlapp.ActiveSheet.Name 'For Each chrt In xlapp.ActiveSheet.ChartObjects ' Debug.Print chrt.Name ' Next chrt ' Activate the first chart in the workbook. (tried Both methods) xlapp.ActiveSheet.ChartObjects("Chart 1").Activate '************error here********* ' xlapp.ActiveSheet.ChartObjects(1).Activate ' Select the chart. xlapp.ActiveChart.ChartArea.Select ' Copy the chart. xlapp.ActiveChart.ChartArea.Copy ' go to the position in Word doc Selection.GoTo What:=wdGoToBookmark, Name:="Rng2" ' The wdPasteOLEObject constant will insert the chart as an ' embedded object, and the wdInLine constant will insert the ' chart on the text layer and not the drawing layer. Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine exitsub: ' Close the instance of Excel. xlapp.Close Set xlapp = Nothing Exit Sub errhandle: Debug.Print Err.Number Debug.Print Err.Description Resume exitsub End Sub -- Tag: check if specific picture exist in footer Tag: 93067
  - 11
    - Mail Merge problem with Headers I have a odd problem using Word 2002 VBA I have a mailmerge document set up as a Directory with merge fields in both the header and main body of the document When I automate the mailmerge process the merge works fine with the exception of the Header records which still have the merge field names displayed However when I use the mailmerge wizzard and manually do the merge the Header has the correct data merged I duly recorded a macro to see if I was missing a parameter and when I re - run the recorded macro the Headers do not merge Can anybody shed any light on this behaviour Any info very very gratefully recieved Tag: check if specific picture exist in footer Tag: 93065
  - 12
    - Userforms - working with decimal places I would like to be able to enter an amount into a textbox within a userform and have the amount fill from the right hand side. (This much I can do using the Align Property). However, as the numbers are typed I would like to see the decimal point to be placed 2 decimal places within the number, ie if I enter 123456 I would like to see: As soon as the 12 is typed â?? see .12 As soon as the next digit is typed, the 3 â?? see 1.23 As soon as the next digit is typed, the 4 â?? see 12.34 If I then deletes the last number, the 4 â?? see 1.23 So if I type 123456 â?? see 1234.56 So a value of $2000.00 would be typed as 200000 and the decimal point is not typed but appears correctly. Is this possible? Many Thanks, Angie. Tag: check if specific picture exist in footer Tag: 93063
  - 13
    - Another Word <-> IE problem Hi everyone I use the following code to create new document On Error Resume Next Set oWord = GetObject(, "Word.Application") If Err.Number <> 0 Then '*** It's not loaded - create a new instance. Set oWord = CreateObject("Word.Application") End If oWord.Visible=true If oWord.PrintPreview = True Then oWord.ActiveDocument.ClosePrintPreview End If oWord.Documents.Add It works but when any word document is embedded into IE the last Add method fails. What can I do? Thanks in advance. Tag: check if specific picture exist in footer Tag: 93058
  - 14
    - Identifying and calling Application Data folder Withe a Word macro, how do I identify and call the C:\Documents and Settings\UserName\Local Settings\Application Data folder? I want to write a macro in Word that merges form file: C:\Documents and Settings\USERNAME\Local Settings\Application Data\mergeform.doc with it's data source: C:\Documents and Settings\USERNAME\Local Settings\Application Data\data.txt. Thank you in advance, KW Tag: check if specific picture exist in footer Tag: 93054
  - 15
    - prompt for "saveAs" I need to create a macro which prompts for "SaveAs" example: open a letterhead go to the address line and the prompt for "SaveAs'" because I want to save the letterhead with another name. Karin Tag: check if specific picture exist in footer Tag: 93037
  - 16
    - There is not enough memory or disk space to run Word There is not enough memory or disk space to run Word Tag: check if specific picture exist in footer Tag: 93036
  - 17
    - Removing unwanted macro code by savinng as .RTF affects the document styles? Based on some good advice in a different thread, I saved a Word document as .RTF in order to remove unwanted macro code. While this worked, when the document was opened, it had a different set of styles defined for it than the original document. I am quite keen to stick with the original set of styles as I use them heavily, but my current customers are disconcerted by the Macro security message that is being activated due to the presence of the macro code. I should add that the document is based on a template where all the styles are defined and uses a macro in the creation stages to display a form for the user to set some document properties. Thanks in advance. Tag: check if specific picture exist in footer Tag: 93030
  - 18
    - Set up a function in a MS word letter to add days to system date? I am trying to set up a function in a MS Word mail merge letter that adds 14 days to the system date (e.g to tell the addressee when to respond by). I have tried the "DateAdd" function and it doesn't seem to work as well as taking the system date and trying to add 14 to it. Help! Tag: check if specific picture exist in footer Tag: 93026
  - 19
    - Problem formfields in table Hello, I'm working with a form that is made up of several tables. The table has several formfields. The user goes thru them and is prompted to add another item. The macro adds a new row and creates new formfields. See code below: The problem that I'm having is when I go to type in the first newly created formfield. Word is not accepting the first character. What am I doing wrong? I've played around with different ways of selecting the cell and am at a loss. Thanks. jbc Sub AddNew1() Dim ff As FormField Dim intResponse As Integer intResponse = MsgBox("Add Another Option?", vbYesNo, "Please Make a Selection") If intResponse = vbYes Then ActiveDocument.Unprotect 'Remove Exit Macro From Last Cell in Row Selection.GoTo what:=wdGoToBookmark, Name:="LastFormField1" With Selection.FormFields(1) .ExitMacro = "" End With Selection.Tables(1).Rows.Add Selection.MoveRight Unit:=wdCell, Count:=4 'Document Number Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .Name = "TypeHere1" .OwnStatus = True .StatusText = "Type Document Number" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .OwnStatus = True .StatusText = "Type Code" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .OwnStatus = True .StatusText = "Type Name" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .OwnStatus = True .StatusText = _ "Type Date, If No Date, Type 'Issued' Date, xx/xx/xx" .TextInput.EditType Type:=wdDateText, Format:="MM-dd-YYYY" End With Selection.MoveRight Unit:=wdCell Set ff = ActiveDocument.FormFields.Add _ (Range:=Selection.Range, Type:=wdFieldFormTextInput) With ff .Name = "LastFormField1" .ExitMacro = "AddNew1" .OwnStatus = True .StatusText = "Type Requested Information" End With ActiveDocument.Bookmarks("TypeHere1").Range.Fields(1).Result.Select ActiveDocument.Protect wdAllowOnlyFormFields, noReset:=True End If Tag: check if specific picture exist in footer Tag: 93024
  - 20
    - VB 2005 question - BindingSource object VB Gerus, I am new to VB 2005 and am receiving the "Update requires a valid UpdateCommand when passed DataRow collection with modified rows." message tied to the TableAdapter line when trying to save data modified in a DataGridView. MyEray is the table name. What obvious thing am I missing? Thanks. Charlie from Texas Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click ' Save data routine Me.Validate() Me.MyErayBindingSource.EndEdit() Me.MyErayTableAdapter.Update(Me.EAdataDataSet1.MyEray) End Sub Tag: check if specific picture exist in footer Tag: 93022
  - 21
    - Hyperlinks on userforms??? Hello, I want to add an internet address to a userform that the user can simply click on and it will launch the site. Normally I would do this with a hyperlink but I haven't figured out how to do it in VBA. Is there a hyperlink control or a special way of formatting a text string in a label to create an active link? FYI, my client is using Word 2000. Much appreciated if someone can point me in the right direction. Tag: check if specific picture exist in footer Tag: 93020
  - 22
    - How to change the size of a text box on a page I am writing a macro to change the size of a textbox that already exists on a page to match the top and bottom margins on that page. I could not find a specific example from the posts. Any help would be appreciated. Regards, Bob Tag: check if specific picture exist in footer Tag: 93014
  - 23
    - Help Needed Speeding Up Code Hi, Everyone. I've got the following code: Sub Datamerge() Dim rDcm As Range Dim r As Long ' row Dim c As Long ' column Dim pipe Dim oMainDoc As Object ========== Set oMainDoc = CreateObject("Word.Document") fd = Dialogs(wdDialogFileOpen).Show Word.Application.ScreenUpdating = False Selection.Homekey Unit:=wdStory Selection.Tables(1).Select Selection.Tables(1).Delete Selection.SelectColumn Selection.Cut Selection.Find.Text = "Drug" 'Selection.Find.Font.Bold = True Selection.Find.Execute If Selection.Find.Found = False Then MsgBox ("Database Column Not Found! Aborting...") End Quit End If Selection.Homekey Selection.Paste DisplayAlerts = wdAlertsNone r = 1 Set rDcm = ActiveDocument.Tables(1).Range With rDcm.Find .Text = "Database" ' must be found in a table ' otherwise things will get out of control .Execute ' now rDcm isn't the active document any more ' but the result of find.execute c = rDcm.Cells(1).ColumnIndex End With rDcm.InsertAfter "/" ' beware, this will add a slash in every test run With rDcm.Tables(1) .Cell(r, c).Merge mergeto:=.Cell(r, c + 2) For r = 2 To .Rows.count ActiveDocument.UndoClear '.Cell(r, c).Range.Font.Bold = True .Cell(r, c).Merge mergeto:=.Cell(r, c + 2) '.Cell(r, c).Select ActiveDocument.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft Next End With Selection.Homekey Unit:=wdStory Set rDcm = ActiveDocument.Tables(1).Range With rDcm.Find For numb = 0 To rDcm.Rows.count .Text = numb .Font.Bold = True .Replacement.Text = "" .Execute Replace:=wdReplaceAll .Text = " ^l" .Replacement.Text = "" .Execute Replace:=wdReplaceAll Next End With Selection.Homekey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Font.Bold = True With Selection.Find .Text = "Database" .Forward = True End With Selection.Find.Execute Selection.SelectColumn Selection.Cut Selection.Find.ClearFormatting Selection.Find.Font.Bold = True With Selection.Find .Text = "Indications" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, count:=2 Selection.Paste MsgBox ("All Done!!") Selection.Homekey Unit:=wdStory End Sub ============ Basically what it does is merge 3 columns together, move another column around, and delete some superflous numbering of the rows. My problem is that on tables > 800 rows, it runs very slowly and takes up 100% of the CPU resources, according to Task Manager. This occurs even if I set the window to invisible. Can anyone give me some tips for speeding this puppy up? Thanks!! Brian Tag: check if specific picture exist in footer Tag: 93007
  - 24
    - Toolbar Combobox initialization I have a template which contains a number of Macros Simply speaking I have one Macro that creates and populates a Combobox on a CommandBar. Selecting an item from the Combobox in turn runs other Macros. This all works apart from one thing. At the moment I have to Manually run the initial "SetComboList" macro in order to create the Combobox. I cannot figure out how to get the combobox to generate when the template is opened (I only want the drop list to appear for this one template) Any pointers? Tag: check if specific picture exist in footer Tag: 93006
  - 25
    - Save a Word doc with SaveFileDialog Hello I have a word document formed from tables that do not have to be subdivided in 2 pages: in fact during their creation I have inserted a command which if the table is subdivided is moved in the successive page. Now I would save my document and I use a SaveFileDialog. But I have three problems 1) When I press Save the dialog is reopened and the document isnâ??t saved until I have not pressed Save the second time 2) I have set up as filter the extension .doc but the document is saved as â??Model of documentâ?? and I instead would that it was saved like document 3) serious ; when I open the saved document I find a table that it is divided in two pages!!! It seems that it has reorganized the document! why I cannot save it as I have created it? This is the code that I have used: â??Save_test is the SaveFileDialog â??Wordoc is my document Wordoc.Protect(WdProtectionType.wdAllowOnlyReading, , "psycodec") Wordapp.Visible = True Save_test.FileName = List_test1.Text Save_test.DefaultExt = "|*.doc" Save_test.ShowHelp = False Save_test.InitialDirectory = "Risorse del computer" Save_test.RestoreDirectory = True Save_test.Filter = "Documento Word(*.doc)|*.doc" Save_test.ShowDialog() If Save_test.FileName <> "" And Save_test.ShowDialog() = System.Windows.Forms.DialogResult.OK Then Wordoc.SaveAs(Save_test.FileName, Save_test.FilterIndex) Wordoc.Close() Wordapp.Quit() End If I hope that you have understand my problem Thank you Tag: check if specific picture exist in footer Tag: 93002
- Next
  - 1
    - Find.Text found but Replacement not exectuted. I type the word "One" in a document, select it and bookmark it as "BM" I run this code: Sub Scratchmacro() Dim oRng As Word.Range Set oRng = ActiveDocument.Bookmarks("BM").Range With oRng.Find .Text = "One" .Replacement.Text = "Two" .Execute Replace:=wdReplaceOne If .Found Then oRng.Select MsgBox "Item found" End If End With End Sub The oRng is selected, the message displays, but the replacement does not occur. If I add a space before or after the word "One" and include it in the bookmarked range then the replacement does occur. Can anyone explain why the replacement does not occur if the found text includes the entire bookmarked range? Thanks Tag: check if specific picture exist in footer Tag: 93001
  - 2
    - Stripping Hard Returns I have tried to do this with Pattern Matching to no avail I am working on a job which entails reformatting some horribly formatted docs I spent lots of time stripping out the hard returns manually Everyone who worked on this mess didn't know about Paragraph formatting and just kept pressing "return" which drives me crazy Any suggestions would be appreciated BTW, this is Word 2003 and I still cannot write code (I have tried!) Tag: check if specific picture exist in footer Tag: 92994
  - 3
    - Calculating the height (in mm) of a text line in Microsoft Word I'm making a program, in VB.NET, that creates and fills a table in a Microsoft Word document. Therefore I need a method to calculate the exact height, in millimeters, of a text line written with a certain font, at a certain size. Searching the Internet I've found this: Private Function GetFontHeight(ByVal FontName As String, _ ByVal FontSize As Single) As Single Dim myGraphics As Graphics = Me.CreateGraphics() Dim myFont As Font = New Font(FontName, FontSize) myGraphics.PageUnit = GraphicsUnit.Millimeter Return myGraphics.MeasureString("Ag", myFont).Height * 0.9 ' <<< STRANGE!!! End Function The result was so imprecise that I had to add that 0.9 coefficient (I calculated it with several attempts by approximation). But the result is imprecise. There seems to be a discrepancy between the height of a line in the Graphics object, and the height of that same line in Microsoft Word. That discrepancy is about 10%. Strange, isn't it? Tag: check if specific picture exist in footer Tag: 92990
  - 4
    - FORMAT INFORMATION IN LINE WITH AN ORGANISED HOUSE STYLE i've been asked to organise doc. in house style, what do they meen Tag: check if specific picture exist in footer Tag: 92984
  - 5
    - including image in excel Welcome. I have a excel document with 5 sheets. In first sheet i chose number in 1 to 8 and when i chose 1 i would like in 4 sheet insert image 1.jpg in cell A4, when chose 2 insert 2.jpg in cell A4 etc. Sorry, my english is not good. Please help me. Tag: check if specific picture exist in footer Tag: 92983
  - 6
    - Add Macro to Normal.dot when user log in Hi All, I made a .doc file that can add a costumize toolbar when user opens the file. And those toolbar, forms, modules will also be saved in user's Normal.dot. I am now trying to add this tool bar and Macro to all users in a domain. Insert of replacing users' normal.dot, is there any better idea? Thanks! gnowcwc Tag: check if specific picture exist in footer Tag: 92974
  - 7
    - Linking fields in Word forms I have about 12 forms (separate Word files) which have common fields (e.g. project number). Is there a way to populate all forms with the common data when the first form is filled in? Thanks Mike Tag: check if specific picture exist in footer Tag: 92972
  - 8
    - Strip Visio diagrams out of a Word Document A word doc with lots of Visio diagrams is too large to send via email. Is there a way to strip the diagrams (via a macro?), send the doc via email then exit (w/o saving). That way my client can get the doc (w/o diagrams) via email, then I would send him the complete word doc (w/Diagram) on a CD via USPS. MSPLearner Tag: check if specific picture exist in footer Tag: 92957
  - 9
    - Tables In Word I've asked this question before -- I've learned quite a bit from some of the help I've gotten, so I'll try to condense my original version/post: Does anyone have some sample code I could use to do the following ============================================== I have a series of forms with a variety of checkboxes and radio buttons. For Example -- When checkboxes and radio buttons on frmMonAnaly are checked, I need for data that spans (4) colums in a Word Table (a separate document -- C:\Temp\Shane.doc) to populate in a table in the active document (SOF.dot). I created bookmarks for each row in the table (SOF.dot), but I'm not sure if I need to duplicate these bookmarks in the Shane.doc Table. I'm not sure which would be easiest (not that either is particularily easy for me) -- to import the data from a Word Table, or from an Excel wb -- in the SOF.doc, I'll untimately need to sum/calculate the totals in (3) of the columns. Thank -- I hope I've been concise here, and I appreciate whatever guidance you can offer. Sample Code would help greatly :) Shane Tag: check if specific picture exist in footer Tag: 92954
  - 10
    - unwanted formatting of everything Whenever I select a text to format, to underline, for example, Office not only underlines the selected text, but the entire document. What do I need to do to prevent this? Tag: check if specific picture exist in footer Tag: 92951
  - 11
    - merging template with rtf is there a proces that when a rtf files is created from an Access Report to specify which word Document (in this case a template) the rtf is to be included in. -- Karen Tag: check if specific picture exist in footer Tag: 92949
  - 12
    - Count tables for each page Hi! I would count how many tables are present in each page of my document Word I tried this: Dim pagine As Integer = Wordoc.ActiveWindow.ActivePane.Pages.Count Dim p As Integer Dim sel As Word.Range sel = Wordoc.Bookmarks("\Page").Range Dim tabelle As Integer For p = 1 To pagine tabelle = sel.Tables.Count Tab_box.Text = ("Pagina" & p & "tabelle" & tabelle) sel = sel.GoToNext(WdGoToItem.wdGoToPage) Next but i have problems to go to the next page the count of the first page is right the second gives me 1 table in the second page (When there are 9 tables) i don't understand why Help me please! Thanks! :-) Tag: check if specific picture exist in footer Tag: 92940
  - 13
    - On Exit Macro I discussed this issue in a very long post yesterday as a sidebar and thought it better to simplify my observations and question here as a dedicated post. I will sacrifice my second born child as repentence for double posting. This code works as expected: Sub Test() Dim oDoc As Word.Document Dim oRng As Word.Range Set oDoc = Documents.Add Set oRng = oDoc.Range oRng.Text = "Test" MsgBox oDoc.Range oDoc.Close wdDoNotSaveChanges End Sub I can call the code above using this code and it still works as expected: Sub OnExitFormField() Test End Sub However, if I assign OnExitFormField () to the exit event of a protected formfield then when I tab out of that formfield a Run-Time Error 4198 "Command Failed" occurs on this line: oDoc.Close wdDoNotSaveChanges But, if I put a break in the code at that line and then tab out of the field the editor runs to that line and stops and I can manually step through the remainder of the code without error. Can anyone explain why this happens? Thanks. Tag: check if specific picture exist in footer Tag: 92934
  - 14
    - How to determine current text column number Hi, I need to work out (using the api) which text column the cursor is currently in. I have tried Selection.Range.Information(wdStartOfRangeColumnNumber) but this always gives the value -1 (it only seems to work correctly for table columns and not text columns). How can I do this? I am using Word v11.8026.8028. thanks. Simon Steps Create a blank document. Change section to two column Insert a column break and move the insertion point to the second column Find out the current column number using the api Tag: check if specific picture exist in footer Tag: 92929
  - 15
    - Check Boxes on a form I have a form with (2) check boxes (neither of which are required to be checked) and a cmdOK button. I want to have a message box display if neither are selected when the user clicks the "OK" button. Here's what I have: Private Sub cmdOK_Click() If cbx6850.Value = False Then MsgBox "You must make a selection before choosing the OK button!" _ , vbOKOnly + vbCritical cbx6850.SetFocus Exit Sub End If End Sub I don't know how to modify it so that it requires at least one of the check boxes to be checked -- any ideas (I'm sure there's a simple solution, but I'm relatively new to VBA) Thanks in Advance! Tag: check if specific picture exist in footer Tag: 92910
  - 16
    - VBA Code - Pasting Pictures from Excel into Word I am using Excel to automate the creation of a simple report in Word. Due to limited stack space I've had to copy my charts in Excel as pictures. When I then try to copy and paste these pictures into a Word document as part of the automation, the picture doesn't stay where I pasted it in the report. Does anyone have the code that can be used in Excel to paste a picture in Word and have it stay in the same place? The other picture formatting (ex. wordwrap) specifications seem to work properly. I'm just having problems with the picture moving with the text written after it's pasted. I'm working in Excel and Word version 11 (2003) on XP. Thanks. Tag: check if specific picture exist in footer Tag: 92909
  - 17
    - Default font Hi all, Is it possible to code (in VB) the changing of the default font? I can`t seem to find much on this... Thanks! Tag: check if specific picture exist in footer Tag: 92905
  - 18
    - Preventing mailmerge "select data source" dialog Hello. I need to prevent the "select data source" dialog from displaying when I open a mailmerge document from my code. It doesn't matter if it's VB, VCS or VC++. For example, I have a word document that is connected to an Excel data source. When I open the file with something like "wrdApp.Documents.Open" it shows the dialog, while I need it to be fully automated. At the moment I noticed that I can make it work by "simulating" escape key by trapping the dialog window and sending a WM_KEY message. But I think this is a bad approach (I have to check the window caption and obviously it doesn't work if I check for the caption in a language different from that in which Office is installed). I tried to record a macro when opening a mailmerge file but it shows nothing useful (only "ChangFileDirectory" actually). Anyone who can help me? Thanks a lot and sorry if I wrote too much. Gabriele. Tag: check if specific picture exist in footer Tag: 92903
  - 19
    - Day of week of any date Please can anyone tell me if there is a way of obtaining the day of the week from a date dtMeeting = 25/10/2006 strDay = DayofWeek(dtMeeting) I want it to return Wednesday in this case! Thanks Stephen Tag: check if specific picture exist in footer Tag: 92891
  - 20
    - How do I change the spell check back to english and not spanish? I installed the spanish default dictionary but I can't reset the english dictionary back. Your help would be greatly appreciated :) Tag: check if specific picture exist in footer Tag: 92889
  - 21
    - Variable to declare function lib location? I call several functions in an external dll file. I would like to avoid placing the dll in the system32 folder. I tried regsvr32 but the dll has no entry point define for this. If I put this in my module it works fine: Public Declare Function my_function Lib "c:\My App\my.dll" My question is: Is there any way I can somehow use a variable for the folder instead of hard-coding "c:\My App\"? Specifically, I have a registry setting with the folder name that I want to use. I cannot figure out how to do this. Thanks. Hafabee Tag: check if specific picture exist in footer Tag: 92877
  - 22
    - *Another* MoveDown bug in Word? Hi, I think I have come across another MoveDown/MoveUp bug in word. To begin with, I have tested this with - Windows 2000 Professional (No service packs and SP-4) - Word 2000 (No service packs and SP-3) - Screen resolutions of (1024x768) and (1280x1024) Under particular circumstances, the MoveDown/MoveUp method will not work at all, and no error is produced (unlike the known bug 235876) To make this happen you first need to start Word, and exit it with the word window in the following state: - The Word window height less than 1/2 the height of the vertical screen resolution - The bottom of the Word window must be in the lower 1/2 of the screen Next, start word and close all open documents. Then run a macro which does the following - Minimizes word & - Then utilizes MoveUp/MoveDown NOTE: The bug will not manifest itself if - There is already a document open - Or the application window is visible on the screen. I have written a macro which should reproduce the problem. What will happen is: - Bug NOT exhibited: There will be 9 empty/blank lines in the document - Bug IS exhibited: There will be 9 lines containing the text Line[1-9] To stop the bug from exhibiting, you must start & then exit word with in the following state: - The word window height more than 1/2 the height of the vertical screen resolution. NOTE: Maximizing the window does NOT affect the window height. The window must be in 'Restore Down' mode Then restart word and run the macro. The bug should not be produced '------ START HERE ------ Sub RunIt() ' Close all the documents If (Documents.Count > 0) Then Call Application.Documents.Close(wdDoNotSaveChanges) End If ' Minimize the application window Let Application.WindowState = wdWindowStateMinimize ' Create a new document Call Documents.Add.Activate ' Insert some text Dim i As Integer For i = 1 To 9 Call Selection.InsertAfter("Line" & i & vbCrLf) Next i Call Selection.InsertAfter("Line" & i + 1) ' Go to the last line Call Selection.GoTo(wdGoToLine, wdGoToLast) ' Start deleting text For i = 1 To 10 Call Selection.MoveRight(wdWord, 1, wdExtend) Call Selection.Range.Delete Call Selection.MoveUp(wdLine, 1, wdMove) Next ' Restore the window Let Application.WindowState = wdWindowStateMaximize ' Goto the first line (i.e. scroll up) Call Selection.GoTo(wdLine, wdFirst) End Sub '------ END HERE ------ I would be very interested to hear if other people can reproduce this. Thanks, Nick ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=6752c14e-4dbc-43bd-a137-85809136c67c&dg=microsoft.public.word.vba.general Tag: check if specific picture exist in footer Tag: 92874
  - 23
    - Forms / Send to Not quite sure which thread this should be on, but I'll try here: I have a straightforward form in Word with some drop-down selections and text input. After completing the information I save the .doc file, and do a Send To, which looks beautiful in Outlook, except that ALL drop-down selections are missing. The saved .doc file looks perfect. Am I missing something - or is this not supported? Thank you in advance. Trouvera Tag: check if specific picture exist in footer Tag: 92869
  - 24
    - Word document with XML - content copy causes error. Hi. The program I'm working on saves the current Word document in WordML format, modifies the saved data (as an XML document), saves the modified data in temp XML file, opens that file in Word and copies the contents form the temp document over the original one: (Original Doc) -> (SaveAs WordML) -> (Modify WordML) -> (Save Temp WordML) -> (Open Temp WordML in Word) -> (Copy Temp contents over Original contents). I use this process to speed up otherwise slow operations in Word. The documents involved have custom Schema and XML markup themselves. The problem comes when I do this (C#): wdDocument.Content.FormattedText = tempWdDoc.Content.FormattedText; The line above throws an exception: System.Runtime.InteropServices.COMException (0x800A17EA): This action is not valid outside of a block-level XML element. at Microsoft.Office.Interop.Word.Range.set_FormattedText(Range prop) It seems only some machines have this problem. Does anyone have a clue what this message is? Thank you. Tag: check if specific picture exist in footer Tag: 92862
  - 25
    - Range Madness and Other Frustrations This is a very long post. I have had fits today working with ranges and an on exit event. My challenge (perhaps your childs play) was to create a conditional additional question in a form. Example: Why did the chicken cross the road? "Dropdown field containing multiple choices" If the selection made above was "To get the other side" Then display a follow-up question: Did she say why she wanted to cross the road: "Dropdown field containing yes and no" I created the first question and dropdown field using "Question" as the bookmark name. >From the beginning, I figured that using a stored AutoText entry of the follow-up question and dropdown field would be the easiest approach. I created the follow-up question and dropdown field using "FUA" as the bookmark name. I then stored the follow-up question and formfield as AutoText "FUQ." I used a bookmark "FUQ" to designate the placement of the conditional question. Since the FUQ needed to be displayed or hidden depending on the condition, I realized that I would need to write either the AutoText FUQ or "" to the bookmark range and redefine the range with each change. My first coding attempt was: Sub OnExitDropDown() Dim oFF As FormFields Dim oRng As Word.Range Set oFF = ActiveDocument.FormFields Select Case oFF("Question").DropDown.ListEntries(oFF("Question").DropDown.Value).Name Case Is = "Yes" ActiveDocument.Unprotect Set oRng = ActiveDocument.Bookmarks("FUQ").Range oRng.Text = NormalTemplate.AutoTextEntries("FUQ") ActiveDocument.Bookmarks.Add "FUQ", oRng ActiveDocument.Protect wdAllowOnlyFormFields, True Case Else ActiveDocument.Unprotect Set oRng = ActiveDocument.Bookmarks("FUQ").Range oRng.Text = "" ActiveDocument.Bookmarks.Add "FUQ", oRng ActiveDocument.Protect wdAllowOnlyFormFields, True End Select End Sub To my dismay, I realized that "oRng.Text =" must be taken literally as the displayed result was: "Did he say why he crossed the road? * FORMDROPDOWN **" and not the questions text with a functional formfield :-( I monkey around with the oRng object a bit but I couldn't find a method that would allow me to put the actual working content of the AutoText entry in oRng. Question 1 - Is there a method to put something other than literal text in a range? Giving up that approach, I next thought about using a find and replace with autotext routine that me and friend Graham Mayor worked out sometime ago. My approach was to write a "flag" within the bookmark range then use the find replace routine to replace the flag with the AutoText entry. I used this code: Sub OnExitDropDown() Dim oFF As FormFields Dim oRng As Word.Range Set oFF = ActiveDocument.FormFields Select Case oFF("Question").DropDown.ListEntries(oFF("Question").DropDown.Value).Name Case Is = "Yes" ActiveDocument.Unprotect Set oRng = ActiveDocument.Bookmarks("FUQ").Range oRng.Text = "*@*" ActiveDocument.Bookmarks.Add "FUQ", oRng RWAT ActiveDocument.Protect wdAllowOnlyFormFields, True Case Else ActiveDocument.Unprotect Set oRng = ActiveDocument.Bookmarks("FUQ").Range oRng.Text = "" ActiveDocument.Bookmarks.Add "FUQ", oRng ActiveDocument.Protect wdAllowOnlyFormFields, True End Select End Sub And Sub RWAT() Dim oSPRng As Word.Range Dim oSrchRng As Range Dim pFN As String 'Create a scratch pad Set oSPRng = Documents.Add.Range NormalTemplate.AutoTextEntries("FUQ").Insert oSPRng 'Cut the inserted entry to the clipboard oSPRng.End = ActiveDocument.Range.End - 1 oSPRng.Cut ActiveDocument.Close wdDoNotSaveChanges 'crumple up the scratch pad 'Replace found text with the clipboard contents. Set oSrchRng = ActiveDocument.Bookmarks("FUQ").Range With oSrchRng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "*@*" .Replacement.Text = "^c" .Execute Replace:=wdReplaceOne If .Found = True Then MsgBox "Flag found" 'Added for testing End With End Sub Again to my dismay and despite the Msgbox displaying "Flag found," the result in the document at the bookmark was: *@* I stepped through the code repeatedly and each time all indications where that the flag was found, the replacement executed, but the result was the same as shown above :-( I fiddled around with this and soon realized (but can't explain why) that if I set the flag as "*@*" and the then searched for "*@" the result at the bookmark was: Did he say why he crossed the road? "a fully functional dropdown"* Viewing this as a minor concession, I changed the flag to: oRng.Text = "*@ " 'note the trailing space and this left just a single extra space at the end of the bookmark range instead of "*." Question 2 - Can someone explain the behavior described above? Why when the found range includes the entire bookmark range does the replacement fail? Thinking that I had found a solution, I set my macro to run on exit from the "Question" formfield. My euphoria was quickly dashed. While the code worked perfectly when I a) stepped through it with the editor, and b) ran it directly from the editor, it failed when triggered by tabbing out of the formfield. It was generating a RTE 4198 "Command failed" while attempting to execute this line of code in the RWAT procedure: ActiveDocument.Close wdDoNotSaveChanges Since it ran normally from the editor, I suspected that this must have something to do with the field controlling the activedocument until the procedure is completed. I tried all I know to create a specific document object e.g., Dim oDoc as Word.Document Set oDOC = Documents.Add ..... oDoc.Close but I got the same error regardless of what I tried. Question 3 - Can anyone explain the behavior described above? Sticking with the find and replace autotext theme and convinced that attempting to close the scratch pad was the stumbling block, I elected to add a scratch pad at the end of the active document and then delete it. This is the RWAT code (note the main code stayed the same): Sub RWAT() Dim oSPRng As Word.Range Dim oSrchRng As Range 'Create a note area Set oSPRng = ActiveDocument.Range oSPRng.Start = ActiveDocument.Range.End 'Write the AutoText entry NormalTemplate.AutoTextEntries("FUQ").Insert oSPRng 'Cut the inserted entry to the clipboard oSPRng.End = ActiveDocument.Range.End - 1 oSPRng.Cut 'tear off the scratch pad :-) 'Replace flag with the clipboard contents. Set oSrchRng = ActiveDocument.Bookmarks("FUQ").Range With oSrchRng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "*&" .Replacement.Text = "^c" .Execute Replace:=wdReplaceOne End With End Sub This appears to be working as expected but I have not fully tested the possible effects on the document from creating and then deleting the note area. Additionally, I learned that I could get rid of the extraneous space within the bookmark by redefining the bookmark again using oRgn after it contained the functioning AutoText and I added code to select the new dropdown field: Final version: Sub RWAT() Dim oSPRng As Word.Range Dim oSrchRng As Range 'Create a note area Set oSPRng = ActiveDocument.Range oSPRng.Start = ActiveDocument.Range.End 'Write the AutoText entry NormalTemplate.AutoTextEntries("FUQ").Insert oSPRng 'Cut the inserted entry to the clipboard oSPRng.End = ActiveDocument.Range.End - 1 oSPRng.Cut 'tear off the scratch pad :-) 'Replace flag with the clipboard contents. Set oSrchRng = ActiveDocument.Bookmarks("FUQ").Range With oSrchRng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "*&" .Replacement.Text = "^c" .Execute Replace:=wdReplaceOne End With End Sub Question 4 - This seems like a brutally complicated process yet appears that it could be applied relatively to several scenarios. An earlier thought this morning was to simply insert the AutoText at the bookmark then move the bookmark range and redefined it: This code worked but I didn't like the idea of having to "know" what the last text character was in the formfield (i.e., the "?") Sub OnExitDropDown1() Dim oFF As FormFields Dim oRng As Word.Range Set oFF = ActiveDocument.FormFields Select Case oFF("DropDown1").DropDown.ListEntries(oFF("DropDown1").DropDown.Value).Name Case Is = "To get to the other side" ActiveDocument.Unprotect Set oRng = ActiveDocument.Bookmarks("FUQ").Range NormalTemplate.AutoTextEntries("FUQ").Insert oRng oRng.MoveEndUntil Cset:="?", Count:=wdForward oRng.MoveEnd wdWord, 2 ActiveDocument.Bookmarks.Add "FUQ", oRng ActiveDocument.Protect wdAllowOnlyFormFields, True ActiveDocument.Bookmarks("FUA").Range.FormFields(1).Select Case Else ActiveDocument.Unprotect Set oRng = ActiveDocument.Bookmarks("FUQ").Range oRng.Text = "" ActiveDocument.Bookmarks.Add "FUQ", oRng ActiveDocument.Protect wdAllowOnlyFormFields, True End Select End Sub However after all this effort I am beginning to think that I should have stayed with this idea. LOL Interested in any other ideas and simplifications. Thanks. Tag: check if specific picture exist in footer Tag: 92858

i need to check if specific picture by pic name or something else is
exist in the first page footer or in the primary footer.
i need to check it with VBA code from macro in word
thanks

Top

Re: check if specific picture exist in footer by Jezebel

Jezebel
Fri Oct 27 17:12:40 CDT 2006

Not easy. You can check that there is *a* picture by checking the footer
range shapes and inlineshapes collections: if the collection is not empty,
then check the type of shape to see if the shape is a picture.

But I don't know any way to check what the picture actually is. I guess you
could export it to a file then compare that file with another copy of the
picture you're checking for.

"4tis" <garbagem@walla.com> wrote in message
news:1161979146.332272.129180@m7g2000cwm.googlegroups.com...
>i need to check if specific picture by pic name or something else is
> exist in the first page footer or in the primary footer.
> i need to check it with VBA code from macro in word
> thanks
>

Top