upgraded vba dll to vb.net dll not working with createobject

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Save WORD DOC in TIFF format using VB6 Script to Hi Guru, I am trying to save WORD 2003 document in TIFF format using Vb6 script. How to do it? Here is my Vb script Reference Lib:Microsoft Office Document Imaging 11.0 library Dim oWord As Word.Application Dim oDoc As Word.Document Dim oTiffDoc As MODI.Document Dim newTiff As String Set oWord = New Word.Application Set oDoc = oWord.Documents.Open("H:\Junk\TestTiff.doc", , ReadOnly:=True) Set oTiffDoc = New MODI.Document newTiff = " E:\Westpac\TestWORD2TIFF\Myfile.tif" oTiffDoc.SaveAs oTiffDoc, miFILE_FORMAT_TIFF Please Help me. Thanks. Cheers, Lennie Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113560
  - 2
    - Tell if a comment is tracked as deleted Can VBA decide whether an embedded comment is within an area marked by tracked changes as deleted text? I'd hoped there'd be some range-like property representing the tag itself (the space occupied by the initials-and-number). Doesn't look like it though. Eh? Word 2003 SP3. MT Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113558
  - 3
    - assigning macro/code to picture? in Excel 2007, you can assign a macro or code item to a picture. can the similar be done in Word 2007, or can codes only be assigned to a command button object? thank you, jat Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113554
  - 4
    - opening this document will run the following sql command Office 2003: Today, for the first time, I've started getting the following annoying message box every time I open a Word document, or even when I create a new document from scratch: opening this document will run the following sql command Data from your database will be placed in the document. Do you want to continue? The line below this line in the dialog box is blank and if I close the document, I am not prompted to save anything. Running Detect and Repair does not correct the problem. Reverting to older versions of Normal.dot does not correct the problem. This computer is not networked, Office 2003 was installed from original CDs and I am the only user of this computer. I use Word almost every day, and each day's work is backed up to an external drive. Researching the text of the message led me to this: http://support.microsoft.com/kb/825765 but I am reluctant to try it because of the warning attached to the information. It also says that this message is encountered when I open a mail merge document that is linked to a data source. I have never used mail merge since installing Office 2003. I know nothing about VBA and do not use programming code other than simple, basic Word macros which I have written myself. My AVG Professional 8.0 antivirus is kept up-to-date. I routinely apply all Windows patches through Windows Update. The only unusual event that I have noticed here was that last night when I shut down the computer, Windows prompted me that there were updates ready to apply and offered me the option of applying them before shutting down the computer. As yesterday was Patch Tuesday, I assumed that Windows had downloaded these updates automatically as the system is configured to do. Usually I go to Windows Update myself and manually download and install updates, but I was busy with a number of things yesterday and so did not visit Windows Update. I allowed Windows to install the updates before shutting down because I assumed that these updates had been downloaded by Windows in the absence of any action by me. Further research has led me to the discovery that one of the patches applied was to Word 2003 (KB950241). I removed this update and the problem went away. I spent an hour on the phone with a Microsoft technician only to eventually be told that a technician from the "Word department" would have to call me back. As the security update is flagged as critical, I cannot block its download and installation. For the time being, my only recourse is to use the registry hack provided in http://support.microsoft.com/kb/825765, but for obvious reasons I'm not comfortable with this arrangement. I would really appreciate help from any Word MVP out there who can draw a bead on this issue. Tom -- remove .spoo to reply by email Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113546
  - 5
    - Creating a master document made up of several linked source docume My company has me taking apart some of our current manuals and setting them up so that each individual section of the manuals could be accessed from one of our offices remotely and the changes that they make update their in the master copy that goes out to each of the workers on site. The sending of the master and compiling of the sections individually is no problem, however whenever I got to link the files into the master copy I usually would just select Insert>Objects>Create From File>browse>insert the file and select for the file to be linked to the source and for it not to be displayed as an icon. I'm getting to larger word documents and I found that anything that is longer than 1 page in length in the original source document is only being displayed as one page of content in the master. It seems to just cut off at the bottom of the page that I'm trying to link it into. Any suggestions? Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113540
  - 6
    - IntelliSense & Passing Range and/or Document Objects I realize that my questions here might be simply a matter of taste and programming style, but Iâ??m also wanting to run this pass those on this forum to make sure Iâ??m not getting myself into trouble by making unwarranted assumptions. Iâ??ve been using the following to open a new document and to set a range object. Dim oDoc as Document Dim oRange as Range Set oDoc = Documents.Add(sTemplate) Set oRange = Selection.Range But, if Iâ??m not mistaken, this is the same as: Set oDoc = Documents.Add(sTemplate) Set oRange = oDoc.Range Yes? Is there a difference between them? (And doesnâ??t the latter make more sense? At least it took me some time to figure out that by creating a new document, the new document as now the active document, and so here â??Selectionâ?? = â??oDoc,â?? yes?) Also, Iâ??ve been passing both the document object and range object to functions, would it be simpler to pass only the range object and when/if I need the document object to recreate it such as: Function Xyz(ByVal oRange as Range, ... etc.) Dim oDoc as Document Set oDoc = oRange.Parent It also seems to me that: Dim oStyle as Style Set oStyle = oDoc.Styles("Some Styleâ??) is the same thing as: Set oStyle = oRange.Parent.Styles("Some Sytle") Both statements appear to work equally well, the only difference appears to be that the IntelliSense doesnâ??t work with â??oRange.Parent,â?? but the code ran fine. It also seems to me that one could even dispense with creating a styles object and write: Dim ptFontSize as Single ptFontSize = oRange.Parent.Styles(â??Some Styleâ??).Font.Size I apologize if all this seem trivial, but it has taken me hours to figure all this out. My question is this: Instead of passing both a document object and its range object to another function, wouldnâ??t it simplify things to pass only one, and then use that object to create the other if needed? The reason I ask is that my current project works with three documents, and passing three ranges, plus one or two document objects, as well as other variables. It creates a long and cumbersome augment/parameter list. Or am I better off with a long augment/parameter list? I would greatly appreciate any feedback on the above. Steven Craig Miller Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113537
  - 7
    - Text box formatting moves text box In normal Word usage I can change the text margins and size of a text box using the Format Text Box dialogue and the text box stays in the same position. However, when I try to do the same operations while recording a macro the text box gets moved to the top left corner of the page when I click on OK. How can I stop this happening, or at least edit the macro so the position of the text box is not altered? Grateful for assistance. Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113535
  - 8
    - Word 2007 and my macros? We just got the word - we will be "upgrading" to Office 2007 shortly. I _live_ by my macros! If they worked fine in Word 2000 and 2003, will they still work in 2007? I figure I need to make a backup of my Normal and templates. I know the toolbars won't show up in 2007, and any macros that show or hide toolbars on open or close won't work. If I clean these macros out of my files, should everything else be mostly okay? Ed Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113531
  - 9
    - How to change sign of paragraph on the space? There is a document Word (see example: http://www.box.net/shared/luo0o336so). Some sentenses in paragraphs are broken off by paragraph signs, other paragraphs is ok. The problem - I need to join the broken of lines of each paragraph, but thus not uniting normal paragraphs. The end of the normal paragraph consists of a point and a paragraph sign. The end of a line of the broken off paragraph consists of a paragraph sign. Here the code which I try to use, but has stopped on replacement operation. Correct me please and explain what is my wrong. Thanks. Code: Sub delpar_3() Dim sPar As String Dim par As Paragraph Dim i As Integer i = 0 For Each par In ActiveDocument.Paragraphs If Right(par, 2) = Chr(46) & Chr(13) Then i = i + 1 Else If Right(par, 1) = Chr(13) Then par = Replace(par, Chr(13), " ") 'Here is error!!! End If Next par End Sub Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113529
  - 10
    - Date Function manipulate result Help to manipulate/assign result CalculateAge to my ActiveDocument screen, assign it toa DocProp or DocVariable and a ContentControl or the ActiveDocument screen at a bookmark please? I can read result CalculateAge in a MsgBox fine. Function Calculate(birthDate As Date) As Byte Dim birthdayNotPassed As Boolean birthdayNotPassed = CDate(Month(birthDate) & " / " & _ Day(birthDate) & " / " & _ Year(Now)) > Now CalculateAge = Year(Now) - Year(birthDate) + birthdayNotPassed End Function Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113528
  - 11
    - SEQ numbering within IF fields in Word 2003 Hi, I have a template I am developing which uses the SEQ field to auto number the paragraphs. However, a number of these paragraphs are within IF fields, so that if certain conditions are met/not met then they do not get output into the document when ran. Unfortunately, the SEQ number (which is also in the IF) is still getting set. So for example; IF is true = 1. paragraph one 2. paragraph two 3. paragraph three 4. paragraph four IF is false = 1. paragraph one 4. paragraph four What I need to see is (IF false) = 1. paragraph one 2. paragraph four How can I prevent the SEQ from being set if the IF is false? Thanks Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113520
  - 12
    - Issue with Office 2007 Macro security I have some word templates which were originally made from earlier versions of word. They all open fine till Word 2003. But in Word 2007 the macros do not show up in the macros list. I also cant debug the macros through VB Editor. I have added the location of the templates in Trust Center Locations and also enabled all the macros in the Macro Settings, but still these are blocked. Can anybody help me out with this please. Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113518
  - 13
    - Access to Adobe PDF menu? I use the AutoOpen macro to pop up a user prompt. I need this prompt here to set correct font sizes depending on language. Apparently, when I Convert to PDF from the Adobe PDF menu, the AutoOpen macro is run. I am trying to figure out a way to determine if AutoOpen was called from Adobe's PDF creation process, and if so, bypass my user prompt. Any ideas? Thanks! Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113509
  - 14
    - UserForm question I have created several bookmarks in my document. I then created a UserForm (UserForm1) and added code to the command button on the form such as: Private Sub CommandButton1_Click() With ActiveDocument .Bookmarks ("RecipientName").Range_ .InsertBefore TextBox1 .Bookmarks("RecipientReturnAddress").Range_ .InsertBefore TextBox2 .Bookmarks("RecipientCSZ").Range_ .InsertBefore TextBox3 .Bookmarks("ReferenceNo").Range_ .InsertBefore TextBox4 .Bookmarks("Salutation").Range_ .InsertBefore TextBox5 .Bookmarks("Scope").Range_ .InsertBefore TextBox6 .Bookmarks("PrimaryAttorney").Range_ .InsertBefore TextBox7 .Bookmarks("PrimaryAttorneyRate").Range_ .InsertBefore TextBox8 .Bookmarks("SecondaryAttorney").Range_ .InsertBefore TextBox9 .Bookmarks("SecondaryAttorneyRate").Range_ .InsertBefore TextBox10 .Bookmarks("MoniesRecoveredBy").Range_ .InsertBefore TextBox11 .Bookmarks("AmountsRecoveredFrom").Range_ .InsertBefore TextBox12 .Bookmarks("Retainer").Range_ .InsertBefore TextBox13 .Bookmarks("SigningAttorney").Range_ .InsertBefore TextBox14 .Bookmarks("DayofMonth").Range_ .InsertBefore TextBox15 .Bookmarks("Month").Range_ .InsertBefore TextBox16 .Bookmarks("TwoDigitsYear").Range_ .InsertBefore TextBox17 End With UserForm1.Hide End Sub Bookmark names are enclosed in " " after .Bookmarks and text box names are referenced after .InsertBefore I created a macro that will show the userform. WHen the userform is filled in and the command button is clicked, I get an error message: Compile error: Method or data member not found The vba window opens and .Range_ is highlighted Any ideas what is going wrong? Also, the macro that shows the userform - what do I need to call it to get it to run automatically when the document is opened? The file is saved as a .doc (Word 2003 Pro) - can't do a .dot in this particular situation so it needs to be a doc, not a template. THanks so much, in advance, for any assistance. Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113504
  - 15
    - Extract character styles into new document Hi all, I'm trying to extract text with particular character styles into a new document. I've tried the following code, and it just runs an endless loop: Sub CollectCustomTopics() ' highlight parts of speech in a particular color then count the number of lines in the new document! Dim NewDoc As Document, MainDoc As Document, r As Range If Documents.count = 0 Then Exit Sub Set MainDoc = ActiveDocument Set NewDoc = Documents.Add MainDoc.Activate Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .Highlight = True Do While .Execute DoEvents Set r = NewDoc.Range r.Collapse wdCollapseEnd Select Case Selection.Style Case "Topic Level 1" r.InsertAfter "Topic Level 1" 'r.ParagraphFormat.LeftIndent = 18 Case "Topic Level 2" r.InsertAfter "Topic Level 2" Case "Topic Level 3" r.InsertAfter "Topic Level 3" Case "Topic Level 4" r.InsertAfter "Topic Level 4" Case "Topic Level 5" r.InsertAfter "Topic Level 5" Case "Topic Level 6" r.InsertAfter "Topic Level 6" End Select r.InsertAfter Selection.Range.FormattedText If Selection.Characters.Last.Text <> vbCr Then _ r.InsertAfter vbCr Loop End With NewDoc.Activate End Sub Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113503
  - 16
    - Invoke, and pass argument to, File Save As dialog, with a macro? For a specific template only, can a macro trigger a file/save as AND place a suggested file naming convention prompt in the Filename window of the File 'Save As' dialog? ie, User clicks a macrobutton; Word's Save As dialog opens; In the File Name window, a suggested file name schema appears, ie., "please type the date (yymmdd), check number, and brief description of item" Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113497
  - 17
    - Resize ActiveX Checkbox/Radiobutton Ok i'm hoping this is simple because I just can't figure it out. Is there anyway to increase the size of the ActiveX controls in Word 2003 like how you can with the From buttons? Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113496
  - 18
    - AutoOpen macro doesn't run this macro issupposed to automatically display the AutoText menu when a document is created from a template: Sub AutoOpen() CommandBars("AutoText").Visible = True End Sub When I create a new document from the template, and tell Word to enable macros, a new document opens but the autotext menu does not display. Why? Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113488
  - 19
    - custom ui editor getting rid of code I don't know if it something I am doing or not - but it is driving me crazy. I am using the Custom UI Editor to customize the ribbon in Word 2007. I create my ribbon and saved to my template. I then opened the template and added the RibbonControl vba code and a module containg some code for showing message boxes, etc. Saved the template. All code is present. Then I went back into the Custom UI Editor to make changes, saved it to the template, but when I opened the template in Word, all my previous modules and code are gone. What am I doing wrong? Help! Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113477
  - 20
    - Macro execution by Autotext entry Hello, Is there any way to get an autotext entry to execute a macro? In other words, I'd like to create an autotext entry that when the user gets the pop-up to press enter, that when they do, it executes a macro. I'm pretty sure there is no way to do this but I just thought I'd ask to be sure. I'm using Office 2003 but 2007 available. Thanks, Peter Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113473
  - 21
    - Word interop from c# - Find replace sometimes not working I use the following code to replace all instances of "[VAR]" with "value to set" in a word document : Word.Document document; ... Word.Range rng = document.Content; rng.Find.ClearFormatting(); Object findText = "[VAR]"; Object matchCase = Type.Missing; Object matchWholeWord = Type.Missing; Object matchWildcards = Type.Missing; Object matchSoundsLike = Type.Missing; Object matchAllWordForms = Type.Missing; Object forward = true; Object wrap = Word.WdFindWrap.wdFindStop; Object format = Type.Missing; Object replaceWith = "value to set"; Object replace = Word.WdReplace.wdReplaceAll; rng.Find.Execute(ref findText, ref matchCase, ref matchWholeWord, ref matchWildcards, ref matchSoundsLike, ref matchAllWordForms, ref forward, ref wrap, ref format, ref replaceWith, ref replace); On most pc's, this ALWAYS works fine, but on some pc's, it NEVER works. The text is not replaced, nothing happens. I had this problem 2 times until now, while 13 other machines worked perfectly. Then I tried : ... Object replaceWith = Type.Missing; Object replace = Type.Missing; while(rng.Find.Execute(ref findText, ref matchCase, ref matchWholeWord, ref matchWildcards, ref matchSoundsLike, ref matchAllWordForms, ref forward, ref wrap, ref format, ref replaceWith, ref replace) == true) { rng.Text = "value to set";// The range is now changed to the found "[VAR]" instance, we can replace it rng = document.Content;// reset to loop further } This also does or does not work on the same systems. The basic problem is, that the Find.Execute method does NOT select the found text part on those pc's where it does not work. Also when I tried to work through Selection.Find (instead of using Range.Find), nothing changed. So at this moment, I have before me 2 almost identical pc's, with the same windows and office version (office XP SP3), handling the same document, and on 1 pc it works, on the other one it does not. I checked all Word options and settings, there is no difference. Does anyone have any idea where this is coming from ? Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113470
  - 22
    - protected form checkbox macro This was previously discussed as subject "RE: if chkbox is ticked then un-strikethrough textbox text" - where I used an active-x control as the checkbox, but I found out that I need to use a protected form. I want to convert Jean-Guy Marcil's code (thank you Jean!) to something I can use with a protected checkbox. So far I have... Sub Click() 'I call this in the checkbox properties - run macro on entry/exit ToggleStrikeThru Selection.Range End Sub I get a Runtime Error 5941 with the next part (The requested member of the collection does not exist) Sub ToggleStrikeThru(rngStrike As Range) With rngStrike.Rows(1) .Cells(2).Range.Font.DoubleStrikeThrough = Not _ .Cells(1).Range.InlineShapes(1).OLEFormat.Object.Value .Cells(3).Range.Font.DoubleStrikeThrough = Not _ .Cells(1).Range.InlineShapes(1).OLEFormat.Object.Value End With End Sub Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113464
  - 23
    - Word 2007 Font.Color fun Can someone please help me understand what gives with Font.Color values in Word 2007? Recording a macro to see the Font values for Heading 1 style in a new 2007 document, the Color value is: .Color = -738148353 I don't think this corresponds to an RGB value, even though the 2007 VBA Help says the Font.Color property: "Returns or sets the 24-bit color for the specified Font object. Can be any valid WdColor constant or a value returned by Visual Basic's RGB function." If I record a macro where I select Heading 1 style, choose Modify > Format > Font, click OK to close the Font dialog, then OK again to close the Modify Style dialog, the Color value is: .Color = 9527094 Exact (?) same colour, very different value, which is an RGB colour. Does anyone know how to get the correct RGB colour value in the first place without having to drill down through dialogs? I need the RGB colour for a VB application. Many thanks for any help. Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113460
  - 24
    - F&R or Macro sort on last word in a line for selection Hi, how do I sort on last word of selection in Word. I want to select a group of single lines (as below) about 1,000 and sort by last word only? I know I can I never remember how! Thanks in advance for any help. objCC.DropdownListEntries.Add "Dr Edward Rowel" objCC.DropdownListEntries.Add "Dr Michael Adams" Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113459
  - 25
    - inserting autotexts into word document Hi, I have a question in regards to autotexts in word 03. At the moment, there are 4 autotexts being used in my word document template. Each autotexts have their own contents. For example, we have autotexts for "methodology", autotexts for "executive summary", "Bibliography", and "Glossary" To insert these autotexts into word document is via a userform. User can click the ones he/she wants to incorporate into his/her word report. My question is there will be a case where user needs to add another autotexts to the existing word report. For example, in the existing report, there are methodology, executive summary, bibliography and glossary. Now, he wants to add another autotexts called "Sections". This autotexts, by our standard, should go between "executive summary" and "bibliography". My headache is whether there're some way of inserting this new autotexts somewhere between executive summary and bibliography? Thank you in advance url:http://www.ureader.com/gp/1022-1.aspx Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113458
- Next
  - 1
    - inserting autotexts into word document Hi, I have a question in regards to autotexts in word 03. At the moment, there are 4 autotexts being used in my word document template. Each autotexts have their own contents. For example, we have autotexts for "methodology", autotexts for "executive summary", "Bibliography", and "Glossary" To insert these autotexts into word document is via a userform. User can click the ones he/she wants to incorporate into his/her word report. My question is there will be a case where user needs to add another autotexts to the existing word report. For example, in the existing report, there are methodology, executive summary, bibliography and glossary. Now, he wants to add another autotexts called "Sections". This autotexts, by our standard, should go between "executive summary" and "bibliography". My headache is whether there're some way of inserting this new autotexts somewhere between executive summary and bibliography? Thank you in advance url:http://www.ureader.com/gp/1022-1.aspx Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113457
  - 2
    - Late binding code Hi I have the below code to create a word document programmatically. What would be the late binding version of this code? Many Thanks Regards Dim obj As Word.Application Set obj = GetObject(, "Word.Application") obj.ActiveDocument.Activate With obj .Selection.Text = "Some text..." End With obj.Visible = True Set obj = Nothing Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113454
  - 3
    - Copy from Excel to Word - dropping characters I am not sure if my problem here is a Word or Excel problem. In the code below, I am copying data from an Excel worksheet to a Word doc. It works great, except only the first 1024 characters in a cell are getting copied. The rest is getting dropped. I have verified the data (over 1024) is in the Excel cell when it is copied. I can't figure why this is happening. I know some eariler versions of Excel had display limitations. I have also tried formatting the worksheet before it is copied to make sure all data is visible in the cell before it's copied and it still drops char over 1024. Any ideas would be greatly appreciated. I am using Excel 2002 and 2003 and Word 2002 and 2003 Anne ----------------- Sub PasteDataTest() 'go to the worksheet and copy the data to the word file Worksheets("Temp").Activate Range("A1").Select ActiveCell.CurrentRegion.Select Selection.Name = "myRange" ' copy the range, assumes current excel active workbook Range("myRange").Copy ' Paste as formatted text. WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _ Placement:=wdInLine, DisplayAsIcon:=False End Sub Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113453
  - 4
    - Print Continuous Page Numbers Excel & Word Document I need to print a Excel & Word document as 1 combined document. It is very important the page numbers be accurate because it is a legal doument. The Excel part prints first, and then a 5 or 6 page word document prints at the end. The page number format on the entire document is "Page 4 of 20" (4=Current Page, 20=Total pages both documents). I have all the code working except I can't figure out how to start the Word document with page 16 (Assuming 15 is the last page of the Excel document that is printed). I never did anything in Word VBA before this, I have been doing Excel VBA for years. Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113449
  - 5
    - Word 2007- Can Default Template Tabs be hidden? Is there any way to hide the Default tabs so they don't appear in the Templates dialog box? MS KB Article 826867 indicates that you can mark them as unavailable in the Setup program. I was unable to find this when I ran setup on Office Professional. Thanks. Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113448
  - 6
    - Question regarding an Excel to Word link in a Word doc Hello, If this is posted in the wrong group, sorry, and could you please direct me to what group. I have a word doc and an excel sheet that are linked. The word doc has fields that are link to cells in the excel spreadsheet. Everything works fine until I try to email it to someone. The way the links are setup are as follows: Both the spreadsheet and the docs are going to live in a "Z: drive" on someone's network. I mapped a "Z: drive" on my home network (Vista to W2K machine) and setup the sheets. They work fine here but when I send them to my buddy they do not have z:\directory\sub dir\sub dir\source . They have 10\100\100\100\directory\sub dir\sub dir\source. My question is: Is there a way to make the links point to "Z" and stay pointed. Thanks Larry C Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113446
  - 7
    - Look for ASK field first before creating it. Hi - I have a macro that inserts 2 ASK fields at the top of an active document as follows: I would like to first look for the ASK fields first, and only add them if they do not exist yet. Can someone help with the IF statement needed? Sub AddFieldCodes() ' Used to add ASK field codes to an existing document, not initially created using this template. ' Add ASK Reference Field Codes at start of document. Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Name:="" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ " ASK Name ""Name"" \d ""<Name>"" ", _ PreserveFormatting:=False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ " ASK Type ""Type"" \d ""<Type>"" ", _ PreserveFormatting:=False End Sub Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113442
  - 8
    - Not printing correctly... The code below is supposed to ask the user if they would like to print a PDF of their document, then bring up the print dialog box with CUTEPDF already selected. Then once they select to print, it waits until the document is spooled until doing the next step. If not, it will skip it will ask if they want to print a hard copy. If they select yes then it will bring up the print dialog box from the CutePDF printer. I can't get the code to work as it seems to be written here: 'START Save PDF If MsgBox("Would you like to print a PDF of your proposal?", vbYesNo) = vbYes Then With Dialogs(wdDialogFilePrintSetup) .Printer = "CutePDF Writer" .DoNotSetAsSysDefault = True .Execute End With ActiveDocument.PrintOut (Background = False) End If 'END Save PDF 'START Print Proposal If Response = MsgBox("Would you like to print your proposal?", vbYesNo) = vbYes Then Dialogs(wdDialogFilePrint).Show PPSPrintForm.Show ActiveDocument.PrintOut (Background = False) Else Application.Quit (wdDoNotSaveChanges) End If 'END Print Proposal Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113441
  - 9
    - Access denied error when trying to delete a file - Word 2003 I have developed a template that is used by greater than 100 users that is used for a particular type of document. To ensure consistent file naming, I have developed a routine that determines a filename based upon the document variables for each file (called SmartFName). I have tied this routine into FileSave. The routine performs the following: 1. Checks to ensure that the document variables used for the file name are set. 2. Determines the SmartFName based upon the document variables. 3. Compares the SmartFName to the existing filename. 4. If the same, saves the file. 5. If not the same, it prompts the user asking if the SmartFName should be applied. 6. If No, it saves the file. 7. If Yes, it performs a ActiveDocument.SaveAs to the SmartFName. 8. It then prompts the user asking if the old file should be deleted. 9. If Yes, a Kill oldpath filename is performed. It is at this point, an "Access Denied" error is generated sometimes. Thanks in advance for all help. -- Tim Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113436
  - 10
    - Word VBA Errors Hello, I have a VB application which calls the templates stored on a network share. These templates support wordbasic. Everything was fine untill Office 2003, but when i upraded to Office 2007 the word templates have stopped working. Whenever the VB application tries to open the file it throws an error "Sub or Funcion not defined" and "Microsoft Visual Basic" written in the title bar. I've also added the network share in the trusted locations. Can anybody help me solve this issue please? Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113431
  - 11
    - VB Command Button Question I've been having problems hiding and showing the command button in MS Word. When the button is pressed it will bring up a form. The form has another command "OK & CANCEL" and also "Input Field". I was able to reduce the size of the Command Button to .0001 for printing, but not able to bring it back to the original size after the document is printed. (See Below) Question: How can have the CommandButton1 show again without closing the document and opening it again? With ActiveDocument.CommandButton1 .Height = 0.0001 .Width = 0.0001 End With MsgBox "Your document is now being printed..." ActiveDocument.PrintOut With ActiveDocument.CommandButton1 .Height = 25 .Width = 160 End With Exit Sub End Sub Thank you for your help! Tom Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113427
  - 12
    - issue with creating template for letter Hi, I have a problem in regards to word template for office 03. I have a template designed to generate a company letter. Like any normal letter, it has date, sender, address, regarding, body of the letter, and signature of the manager. So, when user runs the template, a userform comes up. They can then fill out all empty textfields which are then placed into the word document. This works so far. However, my problem here is about the body of the letter. Since i use {DOCVARIABLE mybodytext} in the word document, all the texts entered or typed in by user via userform is treated as a variable. This is something i didn't anticipate or give it a thought when designing this template. Today, i have one of my colleagues wanting to create a letter to be sent to his client. (By the way, i use a normal text-box in the userform that allows user to enter multiple lines) He put in some bullet points to the text-box in the userform as if it was for a normal report. After pressing the button "ok", all the DOCVARIABLE-s are replaced with values from the textboxes and it worked. However, there is a problem with the bullet points. It didn't look like bullet points at all. The other problem is with the gap spacing between the previous line and the next line. Obviously, he couldn't fix them individually with the spacing and bullet points as they all are one variable. I must have taken the wrong approach here. I wonder if there are any better approaches that may help me out. Basically my aim is to create a template so that any users who want to write letter to their client, can actually use it. Your help is greatly appreciated Thank you in advance Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113424
  - 13
    - Find and use a user's template directory path Hi - I would like to automatically attach a template file named "AutoWork.dot" when a user is ready to use it. The user has this file stored in their template directory, wherever that may be. How do I write a macro that finds a user's MS default template path (there a many users and this may vary between users), then attaches this .DOT file to the active document? Thanks so much, Pia Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113423
  - 14
    - Any way to insert .............. till end of line via shortcut ? Hi, is there a way to have a line completed till its end with dots ............... ? ( not exceeding to next line, nor too short). Number of characters on the line can be variable, so inserting just a fixed number of dots wouldn't be appropriate. Any help ? Word XP & Word 2k3 TIA Phil Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113421
  - 15
    - Macro to select ALL tables (with different styles) in a word docum sorry if it is a repost(?) How to select ALL the tables (with different Table styles) in a word document (by exemple to apply a "table formatting macro" or a new table style to all the tables in the document at once). I cannot select all the tables at once using the Styles and Formatting pane because the documents have several table with different table styles. I would like to avoid scrolling in the document and hold the CTL key + click in every tables. I have looked for selecting all the tables using the the Find (F5) function in word, but I found "tables" nowhere in the options list. Is there is a solution with the Find function or/and with a Macro? Not sure if I explain well, so ask me if you need further precisions. Thanks Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113417
  - 16
    - Hyperlink in clipboard for Outlook Email Is it possible to create a hyperlink and place this in the clipboard so you can paste it into an Outlook email. I know i can do something like this "<file:///E:\Profile\Desktop\dropbox\sharepoint.docx>" And then after a return it will hyperlink. But i would like the link and the text to be different. Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113414
  - 17
    - Cannot access VBProject object I wanted to remove a VBA Form in a Word template. The following is the code. I have set the Word application property of "Trust Access from Visual Basic Project", but it seems that the VBProject object I got is somehow invalid. Dim wordApp As Microsoft.Office.Interop.Word.Application Dim doc As Microsoft.Office.Interop.Word.Document Dim vbProj As Microsoft.Vbe.Interop.VBProject Dim name As String wordApp = New Microsoft.Office.Interop.Word.Application doc = wordApp.Documents.Open(FileName:="C:\\Temp\\Test.dot") vbProj = doc.VBProject name = vbProj.Name //This line throws exception Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113410
  - 18
    - Renaming bookmarks when inserting file I would like to be able to rename the bookmarks on a document that I am inserting into a template new doc. The template has the abilitiy to add this document many times and I will run sql statements to populate some of the fields on the inserted file. Let's say I'm inserting test1.doc which has 5 formfields, text1 - text5. How can I rename these upon inserting the file? That way I can maintain 1 insertable doc rather than having multiple Thanks, Bryan Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113397
  - 19
    - Index I want to index a book in word - and there are already hundreds of exisiting index entries in the text, produced an older programm. There are two forms (both nomal text in the file): - <$Imainentry> - <$mainetry;subentry>. Can this be achieved in VBA? Replace these existing text fields with word index fields {XE }? Thanks for every answer/help! Matthias Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113395
  - 20
    - Need to Add reference fields to a blank document I have a template with the following hidden reference field. { ASK MyField \* MergeFormat} I use a {REF MyField \*MergeFormat} statement within my document to pull the data where it needs to go. I have a macro that Selects ALL and then saves all reference fields as regular text before the document is distributed online. However, I would like to restore the ASK statements at the top of the document in case further edits are needed. So, what I would like to know is how to create a macro that automatically inserts the ASK statement at the beginning of a document. Thanks so much for any guidance with Word 2000 fields!!! Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113390
  - 21
    - Extract data from Word Table Hey all, I have a large document with hundreds of word tables that I would like to extract into Excel with VBA. The MSDN example I found doesn't work so I'm not sure how to proceed. I don't know the Word Object model at all so any pointers or URLs would be greatly appreciated. Thanks, Cliff Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113387
  - 22
    - Office 2007 Add-in Designer There used to be an Add-In designer in Office XP ( 2002) which you could quickly make add-in DLL's by choosing File -> New Project -> Add- In Project. Is this possible in 2007 or is the only way to do this through visual studio now? Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113385
  - 23
    - delimiter settings recorder a macro no problem. when run it stops on delimiter screen. What can be put in code to set delimiter ="," never been here befor. My recorded code following This is all in 2000 word.I tried all I can think of and my books don't show this. Thanks Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _ Connection:="", SQLStatement:= _ "SELECT Name_of_Entry, Contact_Person, Address, CityState, Zip_ FROM C:\Parade\ZZZ.txt WHERE ((Name_of_Entry IS NOT NULL ) AND (Contact_Person IS NOT NULL ) AND (Address IS NOT NULL ) AND (CityState IS NOT NULL ) AND (Zip_ IS NOT NULL ))" _ & "", PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument _ :="", WritePasswordTemplate:="", DataSource:="C:\Parade\ZZZ.txt", From:= _ -1, To:=-1, IncludeFields:=True ChangeFileOpenDirectory "C:\Parade\" ActiveDocument.SaveAs FileName:="Ztable.doc", FileFormat:=wdFormatDocument _ , LockComments:=False, Password:="", AddToRecentFiles:=True, _ WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False CommandBars("Stop Recording").Visible = False End Sub Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113383
  - 24
    - Inserted Pictures I have documents that were converted from WordPerfect to Word. I created a macro the Resets the outline numbering, page setup and other things. A lot of the documents have inserted pictures and AutoCad drawings in them. Is there a way to over look these when the macro is running? Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113376
  - 25
    - Setting Cursor Position How can I position the cursor at a certain bookmark upon opening a new protected document? Thanks, Bryan Tag: upgraded vba dll to vb.net dll not working with createobject Tag: 113375

Hi ,
I am working on a project to upgrade vb6 dlls, which we use in our vba
project, to vb.net

So I made a sample vb6 activex dll, which has a function that
displays a message box.
Then I upgraded this dll to vb.net and did all the stuff that one
usually does to make a .net assembly visible to COM / vb6.

1) Made the .net dll com visible.
2) registered for COM interop
3) Signed with a strong name and built the project.

Now I tried to display the message box, using VBA.

dim abc as project1.class1
set abc = new project1.class1
abc.display

------it displayed the message box present in the dll.

But when i tried with createobject, an error message comes saying '
ActiveX component cannot create the object'

dim myobj as object
set myobj = createobject("project1.class1")
myobj.display

I tried my best and searched the net for some help but couldnt get
anything.

So could you tell me why this works with early binding(new) and not
with late binding(createobject).
I really need to use createobject in my project.
Any ideas??

Please help.

Top

Re: upgraded vba dll to vb.net dll not working with createobject by givmemore001

givmemore001
Wed May 21 01:16:44 PDT 2008

check out this link , if anyone has same problem

http://www.codeproject.com/KB/vb/MusaExposingCOM.aspx#_top

On May 15, 4:40=A0pm, givmemore001 <iypearun...@gmail.com> wrote:
> Hi ,
> I am working on a project to upgrade vb6 dlls, which we use in our vba
> project, to vb.net
>
> So I made a sample vb6 activex =A0dll, which has a function that
> displays a message box.
> Then I upgraded this dll to vb.net and did all the stuff that one
> usually does to make a .net assembly visible to COM / vb6.
>
> 1) Made the .net dll com visible.
> 2) registered for COM interop
> 3) Signed with a strong name and built the project.
>
> Now =A0I tried to display the message box, using VBA.
>
> dim abc as project1.class1
> set abc =3D new project1.class1
> abc.display
>
> ------it displayed the message box present in the dll.
>
> But when i tried with createobject, an error message comes saying '
> ActiveX component cannot create the object'
>
> dim myobj as object
> set myobj =3D createobject("project1.class1")
> myobj.display
>
> I tried my best and searched the net for some help but couldnt get
> anything.
>
> So could you tell me why this works with early binding(new) and not
> with late binding(createobject).
> I really need to use createobject in my project.
> Any ideas??
>
> Please help.

Top