|
![](/images/profiles/noicon.gif) | gem som Fra : emiliebech | Vist : 249 gange 50 point Dato : 02-09-04 21:40 |
|
hej
er der nogle der ved hvordan man laver en markro, der gemmer som (en del af Dokomentet)
| |
![](/images/profiles/icons/135500.jpg) | Kommentar Fra : berpox ![Tre en halv stjerne](/App_Themes/Normal/images/stars/small/star35.gif) |
Dato : 03-09-04 09:18 |
|
Ja - sikkert - du må bare lige beskrive lidt mere om hvad det er du vil have din makro til.
Er det bare i stedet for at klikke sig frem til "Gem Som" eller hvad?
Men du kan starte makrooptageren i Word og så gøre/optage det du vil - bagefter kan du så rette makroen til så du får dialogbokse m.v. til at skrive eksempelvis hvad filen skal hedde, og i hvilken folder m.m.
mvh Berpox
| |
|
Undskyld
Det er et Word Doc med en masse Felter hvor det er et eller flere af disse der skal danne titlen på Doc.et.
Der må også gerne værer en forud bestemt sti til Doc.et
Det er "nemt" nok i Excel men jeg ved ikke hvordan i Word
| |
![](/images/profiles/icons/135500.jpg) | Kommentar Fra : berpox ![Tre en halv stjerne](/App_Themes/Normal/images/stars/small/star35.gif) |
Dato : 04-09-04 01:35 |
|
Hej Emilie. Du skal finde feltværdierne istedet for celleværdierne i excel.
I Word tæller man sig frem til feltet, og læser så værdien (kan ikke lige få det til at virke med at slå op efter et bogmærke og hente feltværdien lige efter....men det bør kunne lade sig gøre!)
Nedenstående kode kan du jo prøve af på et simpelt dokument med to feltværdier.
Kode Sub GemSom()
Dim StringNo1, StringNo2 As String
Dim SaveAsString As String
StringNo1 = ActiveDocument.Fields(1).Result 'læser første feltværdi
StringNo2 = ActiveDocument.Fields(2).Result 'læser anden feltværdi
SaveAsString = InputBox("Gem under dette navn?", "Gem Som Dialogboks", Trim(StringNo1) & Trim(StringNo2)) 'sætter feltværdierne sammen
ChangeFileOpenDirectory "C:\" 'her sætter du stien du vil gemme i
ActiveDocument.SaveAs FileName:=SaveAsString & ".doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub |
mvh Berpox
| |
![](/images/profiles/icons/135500.jpg) | Kommentar Fra : berpox ![Tre en halv stjerne](/App_Themes/Normal/images/stars/small/star35.gif) |
Dato : 07-09-04 22:40 |
|
Hvaaa, Emilie - kan du bruge svaret, eller skal der yderligere hjælp til?
mvh Berpox.
| |
|
Undskyld berpox
Jeg har løst problemet selv så jeg hade helt glemt Kandu.
Men tak for hjælpen. Dit forslag viker fint så du får lige point
| |
![](/images/profiles/noicon.gif) | Godkendelse af svar Fra : emiliebech |
Dato : 18-12-04 11:51 |
| | |
![](/App_Themes/Normal/images/Window/Backgrounds/User_Message.gif) | Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|