Recent content by myrgir

Fire Thanks This is working!

Skip xlup make me an error that is not declared...

Skip, Sorry for the confusion, I meant delete de rows. Fire, I tried this but it gives me the error that says "Exeption from HRESULT: 0x800A02EC Check the ErrorCode property of the exception to determine the HRESULT returned by the COM object. Get general help for this exception.

Hi I update an excel worksheet from vb.net. Sometime, I would like to take off some rows in this worksheet for example, row 20 to row 32. How can I make it? Dim exPoolSchedule As New Excel.Application Dim wbPoolSchedule As Excel.Workbook Dim wsPoolSchedule As Excel.Worksheet wbPoolSchedule =...

Hi I have a form with AxMsFlexGrid in it. I would like to make a copy of all components in this form and paste it in another form. When I'm trying to paste the axmsflexgrid I receive and error that says An error occured while processing this command. Exception from HRESULT: 0x800A018A...

Hi I would like to right align text in a specific cell in excel from vb.net. How can I do this? Thanks in advance

hi I would like to create a total from a range that I have. how can I do this? Thanks in advance

what do you mean by late binding or early binding? It tell me that wdStory is not declared

How to declare wdStory?

Ok I tried it ... Case "945" '2.15.9.9.5 SimpleInsertTable(StringDr("Message")) ... Private Sub SimpleInsertTable(ByVal sText As String) Dim tablenew As Word.Table With wrd.Selection With .Font .Name = "Arial"...

TableNew is declared as what?

hi I would like to be able to enter a table in a word document. I tried this: With wrd.Selection With .Font .Name = "Arial" .Size = 12 .Bold = False End With .Tables.Add(wrd.Selection.Range, 6, 3) But After...

ok I got it, I don't know what I did wrong yesterday but today this is working. PHV your code was right. Sorry about that so here is my code Private Sub SimpleBoldNumberMaster(ByVal sText As String) With wrd.Selection With .Font .Name = "Arial"...

OK now look what I've done Sub Test() wrdtest = New Word.Application doctest = wrdtest.Documents.Add() rngtest = doctest.Range() TopicNumberTest("bob") TopicNumberWithoutBoldTest("Bob2") doctest.SaveAs(Path & "\" & "Test3.doc") End Sub...

OK now look what I've done Sub Test() wrdtest = New Word.Application doctest = wrdtest.Documents.Add() rngtest = doctest.Range() TopicNumberTest("bob") TopicNumberWithoutBoldTest("Bob2") doctest.SaveAs(Path & "\" & "Test3.doc") End Sub...