ConmandButton dissappears when Content dispalyed on Page 1

SamDsouza · #1 08-09-2019, 05:57 AM

Hi

I just created an ActiveX command button on Page 1 of document to initilize userform
How can this be retained. ? because when clicking the command button of userform the document code overwrites and doest not display the command button as the content overwrites on page 1
any ideas if the document content is seen on Page 2. because on Page 1 i would just like the command button to retain

coding in thisDocument for CommandButton on Page1 of document

Code:

Private Sub cmdInitilizeuf_Click()
     Load userform1
    userform1.Show vbModeless
End Sub

in userform1 Coding

Code:

Private Sub cmdButton1_Click()
Dim objWord As Word.Application
Dim txtword As String
Dim objDoc As Document
Dim objRange As Range
Dim objTable As Table
Dim intRows As Integer
Dim intCols As Integer

    txtWord = "fsdhfkhfkdhfdskfhd fkdshfdkfhdskfhdsfd fdshgfdjdsjfg" & vbCr
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add
    objDoc.Range.Text = txtWord
    Set objRange = objDoc.Range    
    objRange.Collapse Direction:=wdCollapseEnd
    intRows = 8: intCols = 5
    Set objTable = objDoc.Tables.Add(objRange, intRows, intCols)
    objTable.Borders.Enable = True
End Sub

Thanks SamD

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
using styles to generate content page	TYPO	Word	2	12-20-2015 12:48 PM
Insert the page before table of content without altering it	kbhalakiya	Word	2	08-29-2012 03:53 AM
Rotate Page and Content Within It.	walker140	Word	1	11-13-2011 11:08 PM
Page number in table of Content	Ritu	Office	1	09-19-2011 05:10 AM
Paragraph Disappears when Tabbing it over	GWalkaa	Word	11	07-22-2011 03:19 AM