Word

DutchOirs · 22 jan 2019

L.S.

Probeer onder Word 2003 een logo te verbergen.
Maar krijg er geen beweging in. Ben wel redelijk bekend met VBA Excel, maar blijkt toch dat Word heel anders is.

Heb een vb-tje bijgevoegd en probeerde van alles, maar krijg er geen beweging in.:-(

Iemand een idee hierover?

Al many thanks

Dutch

snb · 22 jan 2019

zie bijlage

Of anders:

Code:

Sub M_snb()
    ThisDocument.InlineShapes(1).Height = 1
    ThisDocument.InlineShapes(1).Width = 1

'    ThisDocument.InlineShapes(1).Height = 300
 '   ThisDocument.InlineShapes(1).Width = 240
End Sub

cow18 · 22 jan 2019

ik ben ook niet zo goed thuis in VBA voor Word.
Met de macrorecorder deed hij dit.
Normaal moet je die macro dan nog wat fatsoeneren, maar daar hed ik de tijd niet voor.

Code:

Sub Macro1()
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("WordPictureWatermark14377953").Select
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

DutchOirs · 22 jan 2019

Cow & snb thanks voor de reactie,

Heb beidde geprobeerd maar geen beweging.

heb onder de Button ook staan:

Code:

MsgBox "yep"

Dit voor check of ie passeert. Maar ook dit geeft ie niet weer?

HSV · 22 jan 2019

Heb je macro's wel ingeschakeld?

cow18 · 22 jan 2019

grappig, ik druk op je knop en die afbeelding wordt na de "yep" miniscuul klein.
Verander ik die 2 ééntjes in 100 en druk ik nogmaals op de knop, dan staat die afbeelding er terug.

Het 1e bestand dat ik zag, dat was precies die afmelding, maar dan als watermerk. Dus mijn macro verwijderde een watermerk.
Correctie, het was het bestand in #2, van snb

DutchOirs · 22 jan 2019

HSV zei:
Heb je macro's wel ingeschakeld?

Thanks, dat was hem, macro beveiliging stond te hoog.

Moet wel zeggen dat die van snb werkt. Bij die andere een foutmelding.

Heb een aanvullend vraagje kom zo terug.

DutchOirs · 22 jan 2019

Ok hier komt ie

in dit vb-tje is een tabel ingevoegd. Rechts in de tabel onder "Met een Prijs" staat SP.

Is het mogelijk om als er SP staat, dan het Logo naar voren en als er niets staat niets te verkrijgen?

Dutch

DutchOirs · 22 jan 2019

Ok heb het volgende bereikt.

Als ik in de Tabel, rechts onder SP neerzet komt de JPG tevoorschijn en als er niks of iets anders staat verdwijnt hij.

Misschien is er een kortere versie in de macro?

Maar het werkt. Blijven nog 2 vragen over.

1e: als de JPG verdwijnt komen de regels naar elkaar, is er ook een optie dat ie over alles heen gaat?

2e: zou het in plaats van een JPG een autovorm kunnen zijn?

snb · 22 jan 2019

Geluksvogel:

DutchOirs · 23 jan 2019

He mooi snb, thanks

weer een stapje verder

zal het origineel er ff bij doen, maybe snap je het geheel dan. [Origineel = Basis Update #]

De bedoeling is om als er een SP of een JP prijs is dan autovorm SP of autovorm JP te laten verschijnen.
Dit op de plek waar nu de autovorm SP staat.

Dit moet gebeuren als in de (rode) cel, onder Met een (prijs) een SP staat of een JP.

Dus eigenlijk moet het gebeuren niet onder een knop komen, maar onder een change sub.
Weet alleen niet hoe ik dat kan formuleren, dat als die bepaalde cel verandert.

Ga weer veder met volgende stap, er zijn meerdere tabellen en als ik die ervoor zet werkt de huidige niet meer.
Opzet is als er in die cel SP staat dat de autovorm SP tevoorschijn komt en als er JP staat de autovorm JP tevoorschijn komt.
Systeem werkt nu net andersom.

DutchOirs · 24 jan 2019

Ok, ben er uiteindelijk achter dat "Trigger VBA Word macro based on Cell change Value" dus niet werkt in Word.
Jammer, moet dus een andere oplossing zien te verzinnen.
snb, Cow18 & HSV bedankt voor de hulp allemaal.

Vr. Gr. Dutch

snb · 24 jan 2019

Het aantal 'gebeurtenissen' in Word is vele malen beperkter dan in Excel.
In plaats van een tabel, waarin je "SP" of iets anders moet invullen kun je beter gebruik maken van ActiveX-controls: vinkvakken, keuzerondjes, keuzelijst, etc.

DutchOirs · 25 jan 2019

Goedemorgen snb,

Tja door ondervinden kom je er achter. Maar inderdaad zou een mogelijkheid zijn richting een Active Control.
Neem aan dat deze vanuit Excel aan te sturen zijn?

Thanks.

snb · 25 jan 2019

Als je het vanuit Excel doet heb je die ActiveX control helemaal niet nodig, maar kun je de VBA code die ik je gaf vanuit Excel uitvoeren.

DutchOirs · 25 jan 2019

Thanks snb, ben er mee bezig

DutchOirs · 25 jan 2019

Weet iemand toevallig ook de mogelijkheid om een CheckBox.value op True of False te zetten, vanuit Excel dus?
Een variabele gaat als hieronder:

Code:

      With GetObject(WrdBestand)                                                    ' Update variabelen van Excel --> Word doc.
        .variables("MaakDatum") = ActiveWorkbook.Worksheets("Control").Range("C18") ' MaakDatum   voor Basis
        .Fields.Update
    
       .FormFields("CheckBoxSP").CheckBox.Value = True
    End With

De CheckBox die veranderd moet worden heet CheckBoxSP.
Probeerde hierboven deze op True te zetten, maar helaas geeft foutmelding: gevraagde lid van collectie bestaat niet.
Enig idee hierover?

Dutch

snb · 25 jan 2019

Het forum is voor iedereen; daarom de aanhef gewijzigd.

Neem eens een macro op in Word voor het aan/uitvinken van het vinkvak.

DutchOirs · 25 jan 2019

Helaas werkt niet die truuk :-(

Geeft weer:

Code:

Sub Macro2()
'
' Macro2 Macro
' De macro is opgenomen op 25-1-2019 door Admin.
'

'
End Sub

Heb geprobeerd met:

Code:

 '   .FormFields("CheckBoxSP").CheckBox.Value = True
 '   .Bookmarks("CheckBoxSP").Value = True              ' https://www.helpmij.nl/forum/showthread.php/455509-Word-aansturen-via-Excel

Dus de bedoeling is om vanuit Excel met VBA in Word een CheckBox op True of False te zetten.

Dutch

snb · 25 jan 2019

Zonder bestand is het gissen.

Code:

Sub M_snb()
    With ActiveDocument.FormFields(1).CheckBox
      .Value = Not .Value
    End With
End Sub

Word

Gebruiker

Bijlagen

Verenigingslid

Bijlagen

Terugkerende gebruiker

Gebruiker

Bijlagen

Inventaris

Terugkerende gebruiker

Gebruiker

Gebruiker

Bijlagen

Gebruiker

Bijlagen

Verenigingslid

Bijlagen

Gebruiker

Bijlagen

Gebruiker

Verenigingslid

Gebruiker

Verenigingslid

Gebruiker

Gebruiker

Verenigingslid

Gebruiker

Verenigingslid

Wij waarderen jouw privacy