Kopieren van .docx van Google drive naar One Drive : waar zijn mijn macro's

Status
Niet open voor verdere reacties.
S

SafeConstruct

Gebruiker
Lid geworden
23 apr 2021
Berichten
84
Goeiedag, ik stap over van GDrive naar OneDrive, xlsx files geven geen probleem. De word-file in bijlage geeft na het kopiëren mijn macro's niet meer weer ... Alle VBA is verdwenen ... Wat doe ik verkeerd aub ?
 

Bijlagen

  • 0000 VGP.docx
    107,1 KB · Weergaven: 38
Ter aanvulling : ik constateer dat in de file bij VBA een 'module' staat die bij het kopiëren niet wordt meegenomen.
 
Een .docx en .xlsx document bevat per definitie geen macro's.
 
Dat is me niet echt duidelijk (excuses hiervoor). De xlsx neemt alles mee, maar hoe kan ik de module van VBA van .docx mee kopiëren naar de One Drive aub ?
 
SafeConstruct zei:
De word-file in bijlage geeft na het kopiëren mijn macro's niet meer weer ... Alle VBA is verdwenen
Klik om te vergroten...
Macro’s kun je op twee manieren opslaan in Word en Excel: binnen een specifiek document, of binnen de applicatie omgeving. Word heeft daar een standaardsjabloon voor: Normal.dotm. Sla je de macro’s daarin op, dan werken de macro’s binnen alle documenten. Voordeel: je hebt je macro’s altijd tot je beschikking, en je documenten bevatten geen macro’s en zijn dus veel makkelijker te distribueren. Nadeel: macro’s die hele specifieke dingen doen werken niet altijd goed in de ‘verkeerde’ documenten.
Dat geldt overigens ook voor Excel. Misschien daar nog wel meer.

Documenten zonder macro’s verplaatsen van GDrive naar OneDrive werken daarna dus zonder problemen nog steeds op exact dezelfde manier, want de macro’s zitten nog steeds in je Normal.dotm. Een document met de naam Safeconstruct.docm krijgt na kopiëren ook nooit de naam Safeconstruct.docx. Dat is absoluut onmogelijk. Ik zou zeggen: kijk eens goed naar je werkomgeving.
 
Edmoor, excuses, door het snel typen had ik me vergist, de excel-file is wel degelijk xlsm, dus neemt ie alles mee.

@Edmoor en Octafish, dank voor feedback. Ik heb het artikel genomen en ok, ik sla het word-document op onder docm, doch na het kopiëren naar de One Drive blijft de extensie, maar de vba is er niet ?

PS Ik heb ook gevonden via google dat het niet raadzaam zou zijn vba te plaatsen onder normal.dotm omdat wanneer word niet meer draait, het systeem een andere dotm aanmaakt en de vba dan is verdwenen ... ik meld maar wat ik heb gelezen.
 
Niet alles geloven wat je leest :). Het is waar dat Word wel eens kan vastlopen, maar daarmee is je normal.dotm niet gelijk weg. Vaak wordt aangeraden om (juist….) de normal.dot(m) te verwijderen, en dan Word opnieuw op te starten. Dat zorgt er dan voor dat er een ‘schone’ normal.dotm wordt aangemaakt en je de standaardinstellingen terug hebt. Vaak zijn dan de problemen verholpen. Maar dat vereist dus een handmatige verwijdering van de normal.dotm.

In dit soort situaties (normal.dot verwijderen) verplaats ik de normal.dot naar een nieuwe lokatie, zodat er een nieuwe wordt aangemaakt, maar ik de oude nog heb. Die kun je dan hernoemen en gebruiken om de macro’s/modules in de nieuwe omgeving te importeren. Je hoeft dus niks kwijt te raken. Wat ik ook regelmatig doe, is de werkende modules exporteren zodat ik die altijd achter de hand heb en kan importeren als ik ze nodig heb. Ongeacht dus van de normal.dot. Doe ik overigens ook voor mijn Excel modules. Ik maak dus eigenlijk nooit documenten met macro’s, behalve als het echt nodig is voor een specifiek document. Op die manier hou je de documenten ook veel veiliger.
 
Dit is duidelijk, dank voor deze toelichting en hou ik zeker in mind om het veilig te houden in geval van ...
Maar ik begrijp niet hoe je de macro's integreert naar normal.dotm, ik vind echt niet een spoor om dit te verwezenlijken (het is ook dikwijls niet eenvoudig via google een correct antwoord te vinden, want het is dikwijls moeilijk om de vraag correct te stellen, en wat is dan correct op vlak van interpretatie ...) ?
Ik heb word geopend, menu beeld, macro's weergeven, en macro's in : Normal.dotm (algemene sjabloon) en dan zit ik vast ?
 
Hoezo zit je vast? Je geeft, als je macro’s opneemt via de recorder, als eerste op waar de macro wordt opgeslagen. Dat kan (standaard) de normal.dot zijn, maar ook, als je dat wilt, het actieve document. Als je voor de laatste optie kiest, moet je later het document opslaan als docm of dotm bestand, anders kun je die macro niet opslaan.

Macro’s die je bij het opnemen in het actieve document hebt opgeslagen, kun je daarna gewoon kopiëren naar de normal.dotm als je dat wilt. Kwestie van <Alt>+<F11> zodat je in het VBA venster komt, en de opgenomen macro knippen en in een module in de normal.dot plakken. Dat heeft niks met ‘integreren’ te maken, want de macro doet het in beide situaties even goed.

Bedenk van te voren wat je wilt doen met die macro, dat is het enige eigenlijk dat telt. En zoals ik eerder zei: zet alleen macro’s in een document als die macro alleen bij dat ene document gebruikt wordt. Zet ‘m anders in de normal.dot.
 
Dank voor de feedback, doch ik kan echt niet de weg vinden hoor ? In het bestand in bijlage staat in de vba-module (als ik het zo even mag noemen) in 'Normal' een module 'new macros'. Als ik naar beheer ga zie ik de module rechts staan in Normal doch niet meer in de linkerkolom ?
Hoe kan het dan dat wanneer ik dit kopieer naar One Drive (en heb opgeslagen onder .dotm) deze module met macro's is verdwenen ? Ik volg dit echt niet meer hoor. Ik zet het bestand als bewijs even in bijlage.
 

Bijlagen

  • 0000 VGP docm.docm
    107,2 KB · Weergaven: 31
Als ik in jouw laatste voorbeeld kijk, dan heb je die wel opgeslagen als docm bestand (twee keer zelfs ;)) maar er zit geen VBA module in. Het document bevat dus geen macro's. Het is, zou je kunnen zeggen, hooguit geschikt gemaakt om macro's in op te slaan. Maar zolang je geen macro's opneemt die binnen het document worden opgeslagen, zal er nooit een VBA module in het document worden aangemaakt, en staan er dus ook geen macro's in. En gezien je eerdere opmerking dat Word de macro's opneemt in de Normal.dot, klopt dat ook. Je moet dus, als je een macro opneemt, aangaven dat de macro moet worden opgeslagen in het document "0000 VGP.docm". Overigens blijft mijn vraag staan: waarom zou je dat doen? Je maakt het er normaal gesproken alleen maar moeilijker mee voor jezelf.
 
Beste, ik volg niet meer hoor, ik probeer een printscreen te plaatsen met het bewqijs dat ik onder Normal een Module heb 'NewMacros' waarin wel degelijk een inhoud staat. Deze inhoud wil ik in normal.dotm krijgen maar hoe ?
Kan jij dit proberen aan te passen aub ? Ik zit hier echt in nood, waarvoor excuses

Schermafbeelding VBA Module NewMacros.jpg

En dit is de inhoud

Code: 
Sub Prt_pg4()
'
' Prt_pg4 Macro
'
'
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="4", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub
Sub Bouwpartners_aanvullen()
'
' Bouwpartners_aanvullen Macro
'
'
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="4"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub
Sub VerzendlijstVGP()
Dim Naam As String, Map As String
    Map = ZoekMap("C:\Users\Gebruiker\Google Drive\Safe Construct\SC Werven\")
    With ActiveDocument.MailMerge
        With .DataSource
            .FirstRecord = .ActiveRecord
            .LastRecord = .ActiveRecord
            Naam = .DataFields("VGPINFO").Value & ".docx"
        End With
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        .Execute Pause:=False
        ActiveDocument.SaveAs2 FileName:=Map & "\" & Naam, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=15
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="4"
    End With
   
End Sub
Private Function ZoekMap(Optional Startmap As String) As String
'*********************************************************************************
' Early binding: Microsoft Office 11.0 Object Library of later
Dim fDialog As Office.FileDialog
'*********************************************************************************
' Late binding: gebruik objecten
''Dim fDialog As Object
'*********************************************************************************
Dim varFile As Variant
Dim i As Integer

    '******************************************************************************
    'Opzetten File Dialog met Early Binding.
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    '******************************************************************************
    'Opzetten File Dialog met Late Binding.
    'Set fDialog = Application.FileDialog(4)
    '******************************************************************************
    With fDialog
        '**************************************************************************
        'Pas dit aan voor map met afbeeldingen
        .InitialFileName = IIf(Startmap = "", ActiveDocument.Path & "\", Startmap)
        '**************************************************************************
        .AllowMultiSelect = False
        .Title = "Kies een map.."
        '**************************************************************************
        'Toon het scherm, als methode False teruggeeft is er geen map gekozen.
        '**************************************************************************
        If .Show = True Then
            ZoekMap = .SelectedItems(1)
        Else
            ZoekMap = "Geen map geselecteerd."
        End If
    End With
End Function
Sub VerzendlijstPSS()
Dim Naam As String, Map As String
    Map = ZoekMap("C:\Users\Gebruiker\Google Drive\Safe Construct\SC Werven\")
    With ActiveDocument.MailMerge
        With .DataSource
            .FirstRecord = .ActiveRecord
            .LastRecord = .ActiveRecord
            Naam = .DataFields("PSSINFO").Value & ".docx"
        End With
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        .Execute Pause:=False
        ActiveDocument.SaveAs2 FileName:=Map & "\" & Naam, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=15
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="4"
    End With
   
End Sub
Sub VerzendlijstVCO()
Dim Naam As String, Map As String
    Map = ZoekMap("C:\Users\Gebruiker\Google Drive\Safe Construct\SC Werven\")
    With ActiveDocument.MailMerge
        With .DataSource
            .FirstRecord = .ActiveRecord
            .LastRecord = .ActiveRecord
            Naam = .DataFields("VCOINFO").Value & ".docx"
        End With
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        .Execute Pause:=False
        ActiveDocument.SaveAs2 FileName:=Map & "\" & Naam, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=15
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="4"
    End With
   
End Sub
Sub VerzendlijstPB()
Dim Naam As String, Map As String
    Map = ZoekMap("C:\Users\Gebruiker\Google Drive\Safe Construct\SC Werven\")
    With ActiveDocument.MailMerge
        With .DataSource
            .FirstRecord = .ActiveRecord
            .LastRecord = .ActiveRecord
            Naam = .DataFields("PBINFO").Value & ".docx"
        End With
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        .Execute Pause:=False
        ActiveDocument.SaveAs2 FileName:=Map & "\" & Naam, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=15
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="4"
    End With
   
End Sub
Sub Save_doc_pdf()
'
' Save_doc_pdf Macro
'
'
Naam = InputBox("Bestandsnaam? ", "Naam")
    ChangeFileOpenDirectory "C:\Users\Gebruiker\Google Drive\DOCS SAVED PDF\"
    ActiveDocument.SaveAs2 FileName:=Naam, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=15
    ActiveDocument.ExportAsFixedFormat OutputFileName:=Naam, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="4", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub
Sub Save_docx_pdf()
'
' Save_docx_pdf Macro
'
'
    ActiveDocument.Save
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        Replace(ActiveDocument.FullName, ".docx", ".pdf"), _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    ChangeFileOpenDirectory "C:\Users\Gebruiker\Google Drive\Safe Construct\"
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="4", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
ActiveDocument.Save
End Sub
Sub Ga_naar_pg4()
'
' Ga_naar_pg4 Macro
'
'
    .Find.ClearFormatting
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="4"
    SelectionWith Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub
Sub Pg4()
'
' Pg4 Macro
'
'
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="4"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "4"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

Sub FormatPic300()

''This function will format all images in the document.
''Based on the code from the Tribbs site

Dim iShapeCount As Integer
Dim iILShapeCount As Integer
Dim DocThis As Document
Dim J As Integer
Set DocThis = ActiveDocument
''
Dim origHeight As Integer
Dim origWidth  As Integer
Dim scaleHeight As Double
Dim wid As Integer

wid = PixelsToPoints(300) 'reduce the width to 300 pixels

iILShapeCount = DocThis.InlineShapes.Count

If iILShapeCount > 0 Then

For J = 1 To iILShapeCount
origWidth = DocThis.InlineShapes(J).Width
''scaleHeight = wid / origWidth
DocThis.InlineShapes(J).Width = (wid)
DocThis.InlineShapes(J).Height = 170
Next J

End If

End Sub
Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

Sub Pictures()
'
' Pictures Macro
'
' = sub Picwithcaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
' Sub FormatPic300()
Dim iShapeCount As Integer
Dim iILShapeCount As Integer
Dim DocThis As Document
Dim J As Integer
Set DocThis = ActiveDocument
''
Dim origHeight As Integer
Dim origWidth  As Integer
Dim scaleHeight As Double
Dim wid As Integer

wid = PixelsToPoints(300) 'reduce the width to 300 pixels

iILShapeCount = DocThis.InlineShapes.Count

If iILShapeCount > 0 Then

For J = 1 To iILShapeCount
origWidth = DocThis.InlineShapes(J).Width
''scaleHeight = wid / origWidth
DocThis.InlineShapes(J).Width = (wid)
DocThis.InlineShapes(J).Height = 170
Next J

End If
End Sub
Sub Verzendlijst_database()
'
' Verzend_test Macro
'
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\Gebruiker\Google Drive\Safe Construct\SC Projecten.xlsm", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\Gebruiker\Google Drive\Safe Construct\SC Projecten.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;J" _
        , SQLStatement:="SELECT * FROM `DATABASE$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
End Sub
Sub Test_all()
'
' Test_all Macro
'
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\Gebruiker\Google Drive\Safe Construct\SC Projecten.xlsm", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\Gebruiker\Google Drive\Safe Construct\SC Projecten.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;J" _
        , SQLStatement:="SELECT * FROM `DATABASE$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
End Sub
Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub
 
Ondertussen nog hele namiddag zoekwerk verricht en kom tot de bevinding dat de problematiek niet ligt in het kopiëren van GoogleDrive naar OneDrive, het probleem situeert zich anders. We werken op kantoor met verscheidene laptops, dus start ieder zijn eigen word-versie op. Dus stel ik me de vraag : is de oplossing in dit geval de macro's weg te schrijven onder normal.dotm ? Elke opstart via elke laptop apart heeft toch zijn eigen normal.dotm ? Of vergis ik mij ...
Na deze bevinding/bedenking na opzoekwerk blijft mijn probleem uiteraard nog niet uitgeklaard, vandaar dat ik even jullie hulp wil inroepen.
Ter info : de macro's mogen toegepast worden op alle word-documenten.
 
SafeConstruct zei:
…met het bewijs dat ik onder Normal een Module heb 'NewMacros' waarin wel degelijk een inhoud staat. Deze inhoud wil ik in normal.dotm krijgen maar hoe?
Klik om te vergroten...
Lees eens wat je schrijft: je ‘bewijst’ dat je een module hebt in het document Normal en die wil je kopiëren naar Normal(.dotm)? Het is mij nog nooit gelukt om iets naar zichzelf te kopiëren en dat hóeft natuurlijk ook niet, want het stáát er al!

De rest van je verhaal legt gelukkig al iets meer uit, want je legt de spijker wel een klein beetje op de juiste kop, want het klopt helemaal dat elke gebruiker een eigen Normal.dotm heeft. Dus de macro’s die in jóuw Normal.dotm staan heeft een ándere gebruiker dus niet. En dat is dus typisch een voorbeeld van waarom je een bepaalde macro in een document zou opslaan en niet in de normal.dotm. Want als de macro’s in het document zitten, kan élke gebruiker deze macro’s gebruiken.

Het had gescheeld als je dat er gelijk bij had gezegd, want dan had je dit antwoord uiteraard al veel eerder gekregen. In dit geval kopieer je de macro dus vanuit jouw normal.dotm naar een module in het document. Die module moet je dan wel eerst aanmaken.
 
Zoals ik reeds meldde : het is niet eenvoudig om je weg te vinden in deze materie, er zijn zoveel zaken die meespelen. En het is soms ******* moeilijk om het probleem of de wens te 'omschrijven', en dan zwijg ik nog van de interpretatie ervan. Alvast dank voor deze feedback.
 
Klopt dat het niet altijd even makkelijk is; soms helpt het om je eerst te verdiepen in de materie voordat je ingewikkelde acties gaat uitvoeren. Zelf ben ik héél blij dat ik deze week een loodgieter in huis had die eerst zijn vak had geleerd, en daarna pas bij mij kwam installeren. Ik had natuurlijk ook gewoon iemand van de straat kunnen plukken en vragen of hij/zij zin had om loodgieter te worden en dat die persoon in mijn huis naar harte lust mocht komen experimenteren. Was waarschijnlijk wél iets goedkoper geweest :). De les? Eerst leren wat je zelf wilt kunnen doen, en het dán pas toepassen. Niet andersom :).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan